网页按键精灵实现过滤关键词并输出(原创) - 张凯博客

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

张凯 网络杂苑>按键精灵 2018-4-8 17:45 1757字 386 0 字号: | |

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


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


本文链接:http://www.aswait.com/q/588.html 百度已收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

发表评论

电子邮件地址不会被公开。必填项已用*标注

Ɣ回顶部
00:00 / 00:00
顺序播放