使用網頁按鍵精靈過濾關鍵詞由張凱博客原創,使用指定關鍵詞文本過濾文件夾內的隨機文件,自己看代碼,就不修改了。


Randomize
//----------調用文件取文件名函數----------
Function FindAllFiles(FolderPath)
    Dim AllFiles,fso,Folder,f,files
    AllFiles = ""
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Folder = fso.getfolder(FolderPath)
    Set files = Folder.files
    For Each f In files
        AllFiles = AllFiles & f.name & ","
    Next
    Set fso = Nothing
    FindAllFiles = Split(AllFiles, ",")
End Function
//--------------------End--------------------
//A----------設置調用txt文件的路徑----------
文件夾路徑 ="C:\TXT\2.內容_隨機"
FileEx = FindAllFiles(文件夾路徑)
If UBound(FileEx) > 0 Then
    隨機文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路徑 = 文件夾路徑 +"\" +隨機文件名
ElseIf UBound(FileEx) < 0 Then
    SayString (Cstr("文件夾 < "+ 文件夾路徑 +" > 內無文章!"))
End If
//--------------------設置完畢--------------------
//--------------------過濾詞--------------------
//a.設置要過濾的txt文件
Text = Plugin.File.ReadFileEx(TXT路徑)
//b.設置過濾詞txt文件
word = Plugin.File.ReadFileEx("C:\TXT\3.過濾\過濾詞.txt")
//c.每行一個分割過濾詞txt文件
Dim keyword
keyword = Split(word, "|")
//d.開始過濾
If UBound(keyword)>=0 Then
    i = 0
    For UBound(keyword)
        Text = Replace(Text, keyword(i),"" )
        i = i + 1
    Next
End If
//--------------------End--------------------
//--------------------發布過濾好的txt文件--------------------
//a.刪除原txt文件
Call Plugin.File.DeleteFile(TXT路徑)
//b.新建分割好的txt文件
Call Plugin.File.WriteFileEx(TXT路徑, Replace(Text, "|", vbcrlf))
//c.輸出該txt文件
內容 = Replace(Text, "|", vbcrlf)
SayString (Cstr(內容))
//d.移動該txt文件
發布后路徑 = 文件夾路徑 + "\已發\" + 隨機文件名
Call Plugin.File.MoveFile(TXT路徑, 發布后路徑)
//-------------------------End-------------------------
MessageBox 內容