Question

我搜索了我的问题的解决方案，但我无法完成写入/阅读文件的缺失部分。

如何将每个用逗号分隔的字符串调用为文本文件中的变量？

示例文本文件：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

Answer 1

对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

逐行阅读。如何分开字符串？

1 个答案: