网页按键精灵实现过滤关键词并输出（原创）

使用网页按键精灵过滤关键词由我的博客原创，使用指定关键词文本过滤文件夹内的随机文件，自己看代码，就不修改了。

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 内容