[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] vbs取某取以某字符开始,以某字符结束的字符串

a.txt 如下
---------------------------------------------------------------
<meta name="description" content="百度新闻是包含海量资讯的新闻服务平台,真实反映每时每刻的新闻热点。您可以搜索新闻事件、热点话题、人物动态、产品资讯等,快速了解它们的最新进展。" >
---------------------------------------------------------------

想取出一段字符如右:  您可以搜索新闻事件、热点话题、人物动态、产品资讯

开始字符是 “你可以”
结束字符是 “产品资讯”

请问如何用VBS从a.txt取出此字符存到b.txt文本中

谢谢

回复 2# 乱码


    效果很好 非常感谢

TOP

Set fso = CreateObject("Scripting.FileSystemObject")
words = fso.OpenTextFile(
"a.txt",1).ReadAll

s=
"您可以"
'开始字符
e="产品资讯" '结束字符
sp=InStr(words,s) '找到开始位置
ep=InStr(words,e) '找到结束位置

If sp And ep Then
   
ret=Mid(words,sp,ep-sp+Len(e))
'得到需要的字符串
    'MsgBox ret
   
fso.OpenTextFile("b.txt",2,1).Write ret
Else
   
MsgBox "范围错误"
End If
求老大赐我《精通正则表达式》

TOP

返回列表