Hsieh

回復 1# cmo140497

不知道是不是這個意思?

1. Sub nn()
   
2. test = "RowData:"
   
3. Open "鏡射.txt" For Input As #1
   
4. Open "鏡射完成.txt" For Output As #2
   
5. Do While Not EOF(1)
   
6.    Input #1, mystr
   
7.    If mystr Like test & "*" Then Print #2, StrReverse(Replace(mystr, test, ""))
   
8. Loop
   
9. Close #1
   
10. Close #2
    
11. End Sub

複製代碼