標題: 請高手協助.看一下,有什麼問題(要在第11 , 加0) [打印本頁]

---

作者: txiec    時間: 2010-7-15 16:36     標題: 請高手協助.看一下,有什麼問題(要在第11 , 加0)

請高手協助.看一下,有什麼問題.
原檔案內容
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

---

作者: txiec    時間: 2010-7-15 17:29

搞定.. THS ..

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)