我搜索了我的问题的解决方案,但我无法完成写入/阅读文件的缺失部分。
如何将每个用逗号分隔的字符串调用为文本文件中的变量?
示例文本文件:1,4,5,123,5,2,24,5
我的代码
Dim y, z,x
Set y = CreateObject("Scripting.FileSystemObject")
Set z = y.OpenTextFile("C:\input.txt",1)
x= z.readline
f.Close
答案 0 :(得分:0)
对FileSystemObject.OpenTextFile()的调用返回的TextStream对象不提供读取逗号分隔值的工具。你必须提供解析你自己。您可以读取该行,然后使用Split()函数将每个值拉入一个数组,然后填充该变量或直接使用该数组作为MyValues({index);自VBA以来已经很长时间了,所以它可能无法正常工作,但校长应该仍然适用
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, MyFile, FileName, TextLine, Values
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(FileName, ForReading)
' Read from the file and display the results.
Do While MyFile.AtEndOfStream <> True
TextLine = MyFile.ReadLine
Values = Split(TextLine, ",")
For i = 0 To UBound(Values)
Debug.Print Values(i)
Next i
Loop
MyFile.Close