标题: VBS 如何 查找 a.txt 里的 Hello ,如果有就提示有? [打印本页]

---

作者: huzixuan     时间: 2007-4-25 07:33    标题: VBS 如何 查找 a.txt 里的 Hello ,如果有就提示有?

VBS 如何 查找 a.txt 里的 Hello ,如果有就提示有?
如果 a.txt 里没有 Hello 字符,则提示没有?

---

作者: jmz573515     时间: 2007-4-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 "没有"

---

作者: kich     时间: 2007-4-25 11:03
=====================
if l<>0 then msgbox "有":wscript.quit
msgbox "没有"
=====================
语法比较帅！！！

---

作者: wjdidi     时间: 2007-4-30 08:57
顶顶顶