No.1
- 回答日時:
ASPという事はサーバサイドのVBScriptで書かれていると思いますが
Dem 配列名()
で宣言しておき
ReDim Preserve 配列名(配列の大きさ)
で配列の大きさを変える(Preserveを指定すると配列の中身を初期化しない)
詳しくは参考URLにて確認願います。
参考URL:http://asia.microsoft.com/japan/developer/script …
この回答への補足
回答ありがとうございます。
上記のお答えは分かるのですが、どこを調べても動的配列にはReDimと書いて
ありますよね。
そこも私は疑問なのですが、今回のような場合、
dim 配列名a
配列名a=Array(filesコレクション名.Count)
としたら、redimは必要なくなるような気がするのですが、ダメなのでしょうか?
No.2
- 回答日時:
サンプル作っている間に先越されちゃいました(笑)
せっかく作ったの一応
<%@ LANGUAGE="VBScript" %>
<%
Option Explicit
Const m_GetFileDir = "c:\InetPub\wwwroot"
Dim objFso
Dim objFolder
Dim objFiles
Dim strFileName
Dim arrFileName()
Dim i
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder( m_GetFileDir )
Set objFiles = objFolder.Files
ReDim Preserve arrFileName(objFolder.Files.Count-1)
i = 0
For Each strFileName In objFiles
arrFileName(i) = strFileName
i = i + 1
Next
Set objFiles = Nothing
Set objFolder = Nothing
Set objFso = Nothing
For i = LBound(arrFileName) To UBound(arrFileName)
Response.Write arrFileName(i) & "<br>"
Next
%>
インデントに全角スペース使ってますが
言うまでもなく、実際には半角スペースかタブを使って下さいね。
参考になれば
この回答への補足
丁寧にサンプル付きの回答ありがとうございます。
ここまでは分かりました!
ところで、先にご回答いただいた方にも書いたのですが、
どこを調べても動的配列にはReDimと書いてありますよね?
今回のような場合、上記例で言うと、
dim arrFileName()
arrFileName() =Array(objFiles.Count)
としたら、redimは必要なくなるような気がするのですが、ダメなのでしょうか?
ちなみに私はこの後更に、今作ったファイル名の配列から特定の文字列を含んだ
ファイル名のみを抜き出して別の配列を作りたいのです。
難しいでしょうか?
No.3ベストアンサー
- 回答日時:
> dim arrFileName()
> arrFileName() =Array(objFiles.Count)
> としたら、redimは必要なくなるような気がするのですが、ダメなのでしょうか?
ダメです(笑)
上手くいきそうに見えますが文法に誤りがありますね
どこがどう悪いのかは実際に試してみましょう。
各命令のリファレンスは参考URLから「VBScriptドキュメント」へ進むとオンラインドキュメントを参照できます。
ちなみに文法エラーを直してもadrieさんの希望する処理はしてくれなかったりします。
それも何故かはドキュメントを隅々まで目を通して調べてみましょう。
>ちなみに私はこの後更に、今作ったファイル名の配列から特定の文字列を含んだ
>ファイル名のみを抜き出して別の配列を作りたいのです。
>難しいでしょうか?
一度全て配列に落とし込んだ後、InStr関数でファイル名をチェックして配列に落とし込めばOKですよ。
#2のソースに手を加えて作ってみました。
<%@ LANGUAGE="VBScript" %>
<%
Option Explicit
Const m_GetFileDir = "c:\InetPub\wwwroot"
Dim objFso
Dim objFolder
Dim objFiles
Dim strFileName
Dim arrFileName()
Dim arrFileName2()
Dim i, j
'--- 指定ディレクトリ内の全ファイル名を arrFileName() へ
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder( m_GetFileDir )
Set objFiles = objFolder.Files
ReDim Preserve arrFileName(objFolder.Files.Count-1)
i = 0
For Each strFileName In objFiles
arrFileName(i) = strFileName
i = i + 1
Next
Set objFiles = Nothing
Set objFolder = Nothing
Set objFso = Nothing
'--- 更にGIFファイルだけを arrFileName2() へ
j = 0
For i = LBound(arrFileName) To UBound(arrFileName)
If InStr(LCase(arrFileName(i)), ".gif") > 0 Then
ReDim Preserve arrFileName2(j)
arrFileName2(j) = arrFileName(i)
j = j + 1
End If
Next
'--- arrFileName2() を出力
For i = LBound(arrFileName2) To UBound(arrFileName2)
Response.Write arrFileName2(i) & "<br>"
Next
%>
毎回 ReDim Preserveで配列の要素数増やすのはあまり好ましい方法ではありませんが、参考になれば
参考URL:http://www.microsoft.com/japan/developer/scripti …
続けてご回答ありがとうございます。
>> dim arrFileName()
>> arrFileName() =Array(objFiles.Count)
>> としたら、redimは必要なくなるような気がするのですが、ダメなのでしょうか?
> ダメです(笑)
> 上手くいきそうに見えますが文法に誤りがありますね
>> arrFileName() =Array(objFiles.Count)
じゃなくて
arrFileName=Array(objFiles.Count)
ですね。失礼しました。これで一見通りました。
が、配列には最後のファイル名しか入っていませんでした。(泣)
やっぱりダメですか…。
諦めてredim使ってみます。
その後の手順もありがとうございます!
Instrの代わりにMidとかLeftとかでもできますよね!
(ファイル名に規則があれば。)
昨日、結局VBScriptのリファレンス買っちゃいました。
こういうところは、ASPの中にVBScriptを記述していることになるんですよね?
いまいち、ASPとVBScriptの区別が良く分かっていないadrieです…。
No.4
- 回答日時:
>Instrの代わりにMidとかLeftとかでもできますよね!
>(ファイル名に規則があれば。)
もちろん可能です。
「abcから始まる、拡張子 pngのファイル名を抽出」ってのもご想像の通りの方法で可能です。
>昨日、結局VBScriptのリファレンス買っちゃいました。
>こういうところは、ASPの中にVBScriptを記述していることになるんですよね?
>いまいち、ASPとVBScriptの区別が良く分かっていないadrieです…。
そう理解して間違いないと思います。
ASPってのはプログラミング言語ではなく、そういう仕組みの名称ですね。
で、実際の開発言語としてVBScript, JScriptなどを使用するようになっています。
CGIも同じですよね
CGIもあくまで仕組みの名前であって、開発言語としてはPerlやC言語などが使われていますよね。
・・・余計混乱させてしまったらすいません。
> ・・・余計混乱させてしまったらすいません。
大丈夫です。私もそのように理解していますので。
ただ、書籍を色々読んでいると混乱してきますね。
(ASPを言語のように解説している本もあるし、前出のInstrなどの
関数がASPの関数のように書いている本も結構ありますよね?)
ASPの組み込みオブジェクトとVBScriptの組み込みが違うのは
理解しやすいのですが、関数などはどちらの持っている機能なのかが
分かりづらいです。
昨日からやっているファイルオブジェクトに関するGetFolderなどは
ASPのリファレンスにもVBScriptのリファレンスにも載っていました。
(ASPのリファレンスには、上記Instrなどの関数は載っていないので、
純粋にASPで持っている機能のみを書いてあるんだな、と信用しているのですが。)
でもまぁ、基本的にはASPという環境(仕組み)の中でVBScriptを使って
スクリプトを書いている、という認識で良いということですよね。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ASPでの引数の配列渡しについて
Microsoft ASP
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
エクセルでXY座標に並べられた...
-
VB6からの移行したいけど、VB.N...
-
Excel2010のinputboxで複数デー...
-
2次元配列の初期値
-
グラフの「項目軸ラベルに使用...
-
配列のペースト出力結果の書式...
-
pictureboxの名前を変数で設定...
-
COBOLの基本的な事なので...
-
vba フィルター 複数条件 3つ以...
-
定数配列の書き方
-
VBA Dowhile 判断条件に動的配...
-
構造体配列の特定のメンバーをF...
-
テキストボックの文字を一行ず...
-
C#でbyte配列から画像を表示さ...
-
DBから取得した値を配列へ代入する
-
構造体配列内の文字列検索のよ...
-
複数のtextboxの処理を一括で行...
-
Redim とEraseの違いは?
-
配列の中の最大値とそのインデ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
C#でbyte配列から画像を表示さ...
-
vba フィルター 複数条件 3つ以...
-
エクセルでXY座標に並べられた...
-
Dir関数で読み取り順を操作でき...
-
Excel2010のinputboxで複数デー...
-
構造体配列の特定のメンバーをF...
-
Redim とEraseの違いは?
-
配列のペースト出力結果の書式...
-
COBOLの基本的な事なので...
-
大量の変数を定義するにはどう...
-
DBから取得した値を配列へ代入する
-
EXCEL VBAの課題です
-
VBScriptでCSVファイルを読み出...
-
VBAでMODE関数をつくる
-
配列の中の最大値とそのインデ...
-
定数配列の書き方
-
構造体配列内の文字列検索のよ...
-
CheckBoxの配列化
-
Excelのメモリ(配列)の上限は2G...
おすすめ情報