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

时间:2014-12-31 15:26:13

标签: vba

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

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

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

1 个答案:

答案 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