vbs根据关键词提取文本内容怎么 *** 作

dim read,str,f,m

set open=createobject("scriptingfilesystemobject")

file="1txt" '文件完整路径

f="vbs" '需要查找的关键字

m=split(file,"\")

str=m(ubound(m))

private Function TrimT(ByVal Text)

If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)

End Function

private Function findstr(ByVal text,ByVal find)

For i = 1 To Len(Text)

If Mid(Text, i, Len(Find)) = Find Then j = 1: Exit For Else j = 0

Next

findstr=j

End Function

read=openopentextfile(file)readall

for each s in split(read,vbcrlf)

if findstr(s,f)=1 then h=h&s&vbcrlf

next

h=trimt(h)

opencreatetextfile("find_"&str)write h

So easy

联合CMD就很简单

src = "D:\" '要查找的文件夹

Set shell = CreateObject("WScriptShell")

shellExec("cmdexe /Q /C ""dir/s/b/ad """ & src & """ > atxt""")

这样不算“犯规”吧，似乎没答到重点，不过写起来很简单也不错了。

“atxt”是保存的txt文件，绝对路径或相对路径都行（老掉牙的说明了。。。）

借用CMD可以弥补VBS的缺陷：没有自带通配符搜索文件的功能，就算有也比较复杂。而借用CMD可以极大地避免写冗长的算法，代码简洁而有效。这里借用了CMD后就可以尽情发挥想象，想搜索多复杂匹配文件都可以，还可以把搜索到文件名传回VBS给VBS处理，只要

Set res = shellExec("")

Do while resStdoutAtEndOfStream

    MsgBox resStdoutReadLine

Loop

类似这样的方式就可以任意处理从CMD得到的结果

把文本文件处理为数组，每行为一个数组元素，然后在每个元素中查找关键词，vbs可以直接使用instr函数来查找，也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。第一种，使用instrc = split(createobject("scriptingfilesystemobject")opentextfile("atxt")readall,vbcrlf)for i = 0 to ubound(c)if instr(c(i),"nice") then msgbox c(i)next第二种，使用正则表达式c = split(createobject("scriptingfilesystemobject")opentextfile("atxt")readall,vbcrlf)for i = 0 to ubound(c)if rt("nice",c(i)) then msgbox c(i)nextFunction rt(patrn,str)set regex=new regexpregexpattern = patrnregexignorecase = falsert = regextest(str)End Function

改的头大（查了不少资料，自己又调试了好久 老实说我对instr并不是很了解）

~ 记得要加分哦~

代码开始：

set fso=createobject("scriptingfilesystemobject")

set file=fsoopentextfile("testtxt",1)

i=1

do while fileatendofstream<>true

n=filereadline

if fileatendofstream=-1 then

l=instr(n,"""")

s=s&mid(n,l+1)

p=instr(s,"""")

d=left(s,p-1)

msgbox(d)

i=i+1

end if

loop

fileclose

代码结束

程序已经通过调试 成功啦~

以上就是关于vbs根据关键词提取文本内容怎么 *** 作全部的内容，包括:vbs根据关键词提取文本内容怎么 *** 作、vbs查找文件夹的子文件夹并将其保存在txt中、如何用vbs获取指定路径下的文件名并输出到文本文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！