[Visual Basic 6.0] 資料處理關鍵字過濾

2013-11-15

摘要:[Visual Basic 6.0] 資料處理關鍵字過濾

在商業用途上，有些關鍵字在文章中總是顯得特別不好，甚至是遊戲帳號、客戶帳號的建立，通常我們都會設計一個程式來過濾敏感字。

我們可以簡單利用 Visual Baisc 6.0 寫一個資料過濾的程式，如此一來就可以輕輕鬆鬆過濾掉含有某串關鍵字的資料。

首先過濾之前的檔案：

過濾後的檔案：

那麼我們該怎麼實作呢？

以下是 VB6 寫的程式碼，基本上作法與結構都已經使用註解註解起來了！


'# [Visual Basic 6.0] 資料處理 關鍵字過濾
'# 0xDe

Private Sub Form_Activate()
KillStr = "Love" ' 這是要過濾掉的字體

Open App.Path & "/InputData.txt" For Input As #1 ' 讀入需要過濾的資料
Open App.Path & "/OutData.txt" For Output As #2 ' 拿來輸出沒有關鍵字的資料(已經過濾過)的結果

Out = "" ' 用來儲存最後答案的 Temp

Do While Not EOF(1)
    Line Input #1, A ' 讀入資料到變數 A
    
    ' 關鍵字過濾
    
    Key = True ' 先設置一個開關 Key 為 開啟狀態
    For I = 1 To Len(A)
        If Mid(A, I, Len(KillStr)) = KillStr Then Key = False ' 當輸入字串當中含有關鍵字則不可以輸出
    Next I
    
    If Key Then Out = Out & A & vbCrLf ' 當沒有關鍵字在字串中才可以輸出
Loop
    Print #2, Out
    End
End Sub

[Visual Basic 6.0] 資料處理關鍵字過濾.rar

#0xDe 從分享中學習

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

回首頁