![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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を使って
スクリプトを書いている、という認識で良いということですよね。
ありがとうございました。
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.1
- 回答日時:
ASPという事はサーバサイドのVBScriptで書かれていると思いますが
Dem 配列名()
で宣言しておき
ReDim Preserve 配列名(配列の大きさ)
で配列の大きさを変える(Preserveを指定すると配列の中身を初期化しない)
詳しくは参考URLにて確認願います。
参考URL:http://asia.microsoft.com/japan/developer/script …
この回答への補足
回答ありがとうございます。
上記のお答えは分かるのですが、どこを調べても動的配列にはReDimと書いて
ありますよね。
そこも私は疑問なのですが、今回のような場合、
dim 配列名a
配列名a=Array(filesコレクション名.Count)
としたら、redimは必要なくなるような気がするのですが、ダメなのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C#でbyte配列から画像を表示さ...
-
VBA 変数名に変数を使用したい。
-
VBA ReDim と ReDim Preserve ...
-
Excelのメモリ(配列)の上限は2G...
-
CheckBoxの配列化
-
vba フィルター 複数条件 3つ以...
-
定数配列の書き方
-
レコードセットの中身を配列に...
-
エクセルでXY座標に並べられた...
-
DBから取得した値を配列へ代入する
-
Segmentation Fault (メモリ制限?)
-
(VBA) 配列の文字列を昇順で並...
-
C言語によるプログラミング
-
VBScriptでCSVファイルを読み出...
-
VB6のメモリ解放に関して
-
構造体配列の特定のメンバーをF...
-
コンボボックスのインデックス...
-
大量の変数を定義するにはどう...
-
2次元配列の初期値
-
VB6でやると構造体の配列になる...
マンスリーランキングこのカテゴリの人気マンスリー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...
おすすめ情報