[Visual Basic 6.0] 資料處理 利用 StrReverse 函數 將資料批次翻轉

摘要:[Visual Basic 6.0] 資料處理 利用 StrReverse 函數 將資料批次翻轉

[Visual Basic 6.0] 資料處理 利用 StrReverse 函數 將資料批次翻轉

 

Input:


I love you.
You love me.
We're a happy family.

Output:


I evol .uoy 
uoY evol .em 
er'eW a yppah .ylimaf 

 

 


Private Sub Form_Activate() ' 當表單載入後開始執行
Open App.Path & "/Inp.txt" For Input As #1 ' 打開 本地路徑檔案 (Input 輸入) 編號為 #1
Open App.Path & "/Out.txt" For Output As #2 ' 建立 本地路徑檔案 (Output 輸出) 編號為 #2

Do While Not EOF(1) ' 讀取檔案直到最後一行
    Line Input #1, Inp ' Line Input 為 整行讀取 編號 #1 的檔案 到 Inp 暫存變數中
    A = Split(Inp, " ") ' 設 A 陣列為 Inp 切割 ... 假設 Inp 為 "A B C" 則 A(0) = "A" A(1) = "B" A(2) = "C"
        Ou = "" ' 此次答案變數 先清空 為了不跟上一次執行結果衝突
    For I = 0 To UBound(A) ' 從 0 到 UBound(A) = 陣列 A 中最大索引值 例如 Dim B(10) 則  UBound(B) = 10
        Ou = Ou & StrReverse(A(I)) & " " ' StrReverse("字串") 結果會為 "串字" 因為它是反轉字串的函數
    Next I
        Out = Out & Ou & vbCrLf ' 輸出並換行
Loop
    Print #2, Out ' 輸出 Out 內容 到 編號 #2 中
    Close #1, #2 ' 關閉及儲存 編號 #1 和 #2 的檔案
    End ' 結束
End Sub


Q483 Word Scramble (函數方法與註解).rar

#0xDe 從分享中學習

#Facebook:ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問