dim fi,fo,fx,s,r,searchstring
const forwriting = 2,forreading = 1
set fi = createobject("scripting.filesystemobject")
set fo = fi.createtextfile("c:\testfolder\testfile.txt",true)
msgbox "forwriting"
fo.writeline "徐璐"
fo.writeblanklines(1)
fo.writeline "张林梅"
fo.writeblanklines(1)
fo.write "卢易"
fo.writeblanklines(1)
fo.write "Software Test technology"
fo.close
msgbox "reading"
set fx = fi.opentextfile("c:\testfolder\testfile.txt", forreading)
s = fx.readall
msgbox s
fx.close
searchstring="thursday"
r = instr(s,searchstring)
if r = 0 then
msgbox "no"
else
msgbox "ok"
end if`