批处理之家 - Powered by Discuz! Board

标题: [问题求助] vbs取某取以某字符开始,以某字符结束的字符串 [打印本页]

作者: 光能 时间: 2012-10-20 12:12 标题: vbs取某取以某字符开始,以某字符结束的字符串

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

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

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

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

谢谢

作者: 乱码 时间: 2012-10-20 15:21

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

作者: 光能 时间: 2012-10-24 14:06

回复 2# 乱码

效果很好非常感谢

欢迎光临批处理之家 (http://www.bathome.net/)