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

光能

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

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

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

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

谢谢

光能

回复 2# 乱码


    效果很好 非常感谢

乱码

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