逐行閱讀。如何分隔字符串？

-3

我爲我的問題搜索瞭解決方案，但我無法完成寫入/讀入文件內容的缺失部分。逐行閱讀。如何分隔字符串？

我怎樣才能調用每個由逗號分隔的字符串作爲文本文件的變量？

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

來源

2014-12-31 buffy

我真棒谷歌福揭示了一個MSDN文章專門用於閱讀的文本文件。 http://msdn.microsoft.com/en-us/library/db5x7c0d%28v=vs.110%29.aspx – Jeremy

這是無效的VB.NET代碼 – Plutonix

這個問題不清楚，因爲它被標記爲'vb.net'但是不包含'vb.net'代碼。 –

通過調用返回到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

來源

2014-12-31 18:17:44 AgustinCoder

逐行閱讀。如何分隔字符串？

回答

相關問題