Dim g_objFSO:Set g_objFSO = CreateObject("Scripting.FileSystemObject")
outputArr = ReadFileToArray("c:\InboundRules.csv")
For i= 0 To UBound(outputArr)
WScript.Echo outputArr(i)
i=i+1
Next
WScript.Quit(0)
Function ReadFileToArray(strFile)
Dim l_outputArray(),rowCount,ts
rowCount= 0
intFieldCount = 0
intStart = 1
Set ts = g_objFSO.OpenTextFile(strFile,1,True)
Do While Not ts.AtEndOfStream
strLine=Split(ts.ReadAll,vbCrLf)
Loop
ts.Close
ReadFileToArray = strLine
End Function
outputArr = ReadFileToArray("c:\InboundRules.csv")
For i= 0 To UBound(outputArr)
WScript.Echo outputArr(i)
i=i+1
Next
WScript.Quit(0)
Function ReadFileToArray(strFile)
Dim l_outputArray(),rowCount,ts
rowCount= 0
intFieldCount = 0
intStart = 1
Set ts = g_objFSO.OpenTextFile(strFile,1,True)
Do While Not ts.AtEndOfStream
strLine=Split(ts.ReadAll,vbCrLf)
Loop
ts.Close
ReadFileToArray = strLine
End Function
No comments:
Post a Comment