VBS 如何 查找 a.txt 里的 Hello ,如果有就提示有?
如果 a.txt 里没有 Hello 字符,则提示没有?
如果 a.txt 里没有 Hello 字符,则提示没有?
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷....
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷....
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS 如何 查找 a.txt 里的 Hello ,如果有就提示有?
查看 760 回复 3
楼 主
VBS 如何 查找 a.txt 里的 Hello ,如果有就提示有?
发表于 2007-04-25 07:33 · 中国 安徽 芜湖 电信
第 2 楼
发表于 2007-04-25 09:47 · 中国 辽宁 本溪 联通
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
s=file.readall
file.close
l=instr(s,"Hello")
if l<>0 then msgbox "有":wscript.quit
msgbox "没有"
set file=fso.opentextfile("a.txt")
s=file.readall
file.close
l=instr(s,"Hello")
if l<>0 then msgbox "有":wscript.quit
msgbox "没有"
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| huzixuan | +4 | 2007-04-26 02:45 |
第 3 楼
发表于 2007-04-25 11:03 · 中国 上海 上海乾万网络(QianWan_Network)有限公司(电信出口)
=====================
if l<>0 then msgbox "有":wscript.quit
msgbox "没有"
=====================
语法比较帅！！！
if l<>0 then msgbox "有":wscript.quit
msgbox "没有"
=====================
语法比较帅！！！
第 4 楼
发表于 2007-04-30 08:57 · 中国 江苏 泰州 联通
顶顶顶
论坛跳转: