0

私は vbs の初心者で、set arr = readfile( FileName ) という行でエラーが発生しています。

ファイルを配列に読み込もうとしています

そして、私が間違っていることを理解できません

よろしくお願いいたします。

 Dim FileName ' File Name to Process
 Call MainProcedure
 WScript.Quit

 Sub MainProcedure
   filename = "c:\print\check.bat"
   WScript.Echo( "Printing document in progress..." )
   WScript.Echo( "Filename ====> " & FileName )
   Dim arr, i
   i = 0
   set arr = readfile( FileName )
   For Each present In arr
     ' user = split(present,",")
     ' WScript.Echo user(0) & user(1) & user(2) & user(3) & user(4) & "|"
     i = i + 1
     WScript.Echo present & "|"
   Next
End Sub

Sub readfile(strFile)
  dim fs,objTextFile
  set fs=CreateObject("Scripting.FileSystemObject")
  If (fs.FileExists( strFile)) Then
     dim userArrayList
     set objTextFile = fs.OpenTextFile(strFile)
     Set userArrayList = CreateObject( "System.Collections.ArrayList" )
     Do Until objTextFile.AtEndOfStream
        strNextLine = objTextFile.Readline
        userArrayList.add strNextLine
     Loop
     objTextFile.Close
     set objTextFile = Nothing
     set fs = Nothing
     set readfile = userArrayList
  Else
     'Alert User
     WScript.Echo("File does not exist!")
     WScript.Quit()
  End If
end Sub
4

1 に答える 1

4

君の

set arr = readfile( FileName )

readfile()関数であることを意味します (ArrayList を返します)。しかし、あなたは定義します

Sub readfile(strFile)
...
set readfile = userArrayList
...
end Sub

これを次のように変更してみてください。

Function readfile(strFile)
...
set readfile = userArrayList
...
End Function

追加した：

「ファイルの行を配列に読み込む」タスクは、はるかに簡単な方法で実行できます。

cscript fitoar.vbs
0 Option Explicit
1 Dim a : a = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("fitoar.vbs").ReadAll(), vbCrLf)
2 Dim l
3 For l = 0 To UBound(a)
4     WScript.Echo l, a(l)
5 Next
6
于 2013-01-22T14:07:31.297 に答える