請高手協助.看一下,有什麼問題.
原檔案內容
A....
B...
C...
1...
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21
3,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21
8,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21
希望在 之第11 個" , " 加 " 0" , 以下程式,跑不動,
Sub AA()
fd = [a2]
fa = [B3]
If Dir(fa, vbDirectory) = "" Then
MkDir fa
End If
fo = [B2]
If Dir(fo, vbDirectory) = "" Then
MkDir fo
End If
fs = Dir(fd & "A*")
Do Until fs = ""
Open fo & fs For Output As #2
Open fd & fs For Input As #1
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
Line Input #1, textline ' 讀入一行資料並將之指定給變數。
If textline Like "1=1 *" Then textline = Join(Array(Split(textline, ",")(0), Split(textline, ",")(1), Split(textline, ",")(2), Split(textline, ",")(3), Split(textline, ",")(4), _
Split(textline, ",")(5), Split(textline, ",")(6), Split(textline, ",")(7), Split(textline, ",")(8), Split(textline, ",")(9), _
Split(textline, ",")(10), Split(textline, ",")(11), "0", Split(textline, ",")(12), Split(textline, ",")(13), Split(textline, ",")(14), _
Split(textline, ",")(15), Split(textline, ",")(16), Split(textline, ",")(17), Split(textline, ",")(18), Split(textline, ",")(19), _
"0,0,0,0", Split(textline, ",")(20), Split(textline, ",")(21)))
Loop
Close #1
Close #2
'Kill fd & fs
fs = Dir()
Loop
End Sub |
發表於 2010-7-15 16:36
| 
