プロが教える店舗&オフィスのセキュリティ対策術

ある配下のCSVファイル2個(固定)を読み込み、
コンピュータ名の列が同じ行を比較するというツールを作っています。

考えた結果以下まではできましたが、どうしても指定行を配列に埋め込み処理ができません。
比較方法はわかります。
ですが以下のプログラムでは、CSVの行は複数行あるので最終行しか格納されません。
どのようにしたら、2つのCSVファイルそしてすべての行を配列に入れ込むことができるのでしょうか。

For Each FileName In src.Files
FileEx = fso.GetExtensionName(FileName)
If LCase(FileEx) = "csv" Then
Set CsvFile = fso.OpenTextFile(FileName)
Do Until CsvFile.AtEndOfStream
tmpLine = CsvFile.ReadLine
If roopCnt = 0 Then '1個目のCSV
ArrayA = Split(tmpLine,",")
Else '2個目のCSV
ArrayB = Split(tmpLine,",")
End
rowCnt = rowCnt +1
Loop
roopCnt = 1
End If
Next

A 回答 (1件)

VBScriptなら、配列はpreserveしながらRedimするのが定石かと。



詳しくは、VBScriptリファレンスなどをご覧ください。

参考URL:http://blogs.technet.com/b/heyscriptingguy/archi …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!