(注:這個答案是假設該文本文件只包含一行。)
首先,你需要閱讀的文本文件:
Dim rawData as string
Dim sFileText as String
Dim FileNo as Integer
FileNo = FreeFile
Open "C:\test.txt" For Input As #FileNo 'you should change the file path
Line Input #FileNo, sFileText 'read the whole line
rawData = sFileText 'store the first line of the text file in 'rawData'
Close #FileNo
接下來,你需要拆分RAWDATA由逗號:
Dim data() as string 'an array that will hold each value
data = Split(rawData, ",") 'split 'rawData' with a comma as delimiter
現在第一值被存儲在數據(0),第二數據(1),等等
至於「保存文件」按鈕,你可以這樣做:
Dim newData as String
newData = data(0) & "," & data(1) & "," & data(2) 'etc.
然後write it to a file。
Write #filenumer Value1, Value2, Value3...
然後你可以使用輸入#來獲得在同一時間或線路輸入一個值,讓他們一下子:
你能通過編輯這個問題發佈你的代碼嗎? –
對不起,我沒有密碼。那就是我爲什麼要問它是如何完成的。我仍然在尋找它,但很難找到有關VB 6.0的東西 –
不應該很難,因爲VB6的每個合法副本都附帶了包中包含的MSDN CD中的聯機文檔。沒有MSDN CD意味着不是合法副本。 – Bob77