GBKEE

¦^´_ 3# cmo140497
¸Õ¸Õ¬Ý
If mystr Like test & "*" Then Print #2, Format(StrReverse(Replace(mystr, test, "")), "000")

GBKEE

¦^´_ 7# cmo140497

1. Sub Ex()
   
2.     Dim Text As String, MyStr As String, Ar, i As Integer, A As String
   
3.     Text = "RowData:"
   
4.     Open "Ãè®g.txt" For Input As #1
   
5.     Open "Ãè®g§¹¦¨.txt" For Output As #2
   
6.         Do While Not EOF(1)
   
7.             Input #1, MyStr
   
8.             A = ""
   
9.             If MyStr Like Text & "*" Then
   
10.                 Ar = Split(Replace(MyStr, Text, ""), " ")
    
11.                 For i = UBound(Ar) To 0 Step -1
    
12.                     A = A & " " & Ar(i) & " "
    
13.                 Next
    
14.                 Print #2, Text & A
    
15.             End If
    
16.         Loop
    
17.     Close #1
    
18.     Close #2
    
19. End Sub

½Æ»s¥N½X