VB函數-Split()

如題,上次比賽老師勉強給我一題的分數 因為題目要求是 先讀"C:\test3.txt"檔(輸入之意)之後 將資料做處裡 再將其資料寫進"C:\result.txt"檔(輸出之意)裡面 但 題目有要求 輸出檔不能以"逗號"隔開 以下為我自己寫的程式碼 但是 輸出檔會以逗號隔開~"~ Private Sub Form_Load() Open "C:\test3.txt" For Input As #1 Input #1, C Open... show more 如題,上次比賽老師勉強給我一題的分數
因為題目要求是
先讀"C:\test3.txt"檔(輸入之意)之後
將資料做處裡
再將其資料寫進"C:\result.txt"檔(輸出之意)裡面

題目有要求
輸出檔不能以"逗號"隔開
以下為我自己寫的程式碼
但是
輸出檔會以逗號隔開~"~


Private Sub Form_Load()
Open "C:\test3.txt" For Input As #1
Input #1, C
Open "C:\result3.txt" For Output As #2
Dim A(5), B(5), D(5), E(5) As Integer
A(1) = 2000
A(2) = 1000
A(3) = 500
A(4) = 200
A(5) = 100
For I = 1 To 5
B(I) = C \ A(I)
D(I) = A(I): E(I) = B(I)
C = C - A(I) * B(I)
TN = TN + B(I)

Next I
Write #2, TN
For I = 1 To 5
Write #2, D(I), E(I)
Next I
Close #2
Close #1

End Sub

我的程式輸出結果:
9
2000,3
1000,2
500,1
200,2
100,1


題目要求輸出結果:

9
2000 3
1000 2
500  1
200  2
100  1

支票兌換的程式,
第一個數字9為總張數
其餘的應該很清楚O.O

老師說可以用函數 Split() 函數來解決
但是我不知道它的用法
而再寫檔時又要如何使用

請各位高手們指導~"~
Update: Litfal大大
使用Print的話
空格會太大~"~
Update 2: Join
那Join的用法
能使寫檔時
將逗號替代成空白嗎?
Update 3: Print解決了
忘記將逗號區隔
改成分號了~"~
謝謝Litfal大大
可以告訴我Join的用法嗎?
Update 4: 原來如此
那可以在問一下Litfal大

那如果是再讀檔的時候
假設資料是
1 50 1
2 35 3
3 25 4
4 48 2

就可以用
Split函數去讀取囉!!?
1 answer 1