- 帖子
- 60
- 积分
- 116
- 技术
- 15
- 捐助
- 0
- 注册时间
- 2012-5-16
|
2楼
发表于 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 |
|