VBS读取某个文本内容来判断文本里存不存在某个字符怎写？
比如VBS读取了1.txt里的所有内容。
然后判断这里面存不存在。比如 "love" 如果1。TXT里面有love就msgbox "yes"
没有就no
比如VBS读取了1.txt里的所有内容。
然后判断这里面存不存在。比如 "love" 如果1。TXT里面有love就msgbox "yes"
没有就no
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
VBS读取某个文本内容来判断是否存在某个字符怎写？
标题：VBS读取某个文本内容来判断是否存在某个字符怎写？
strA = "love ***"
strB = "Love ***"
If instr(strA,"love") > 0 Then msgbox "yes" '区分大小写
If instr(1,strB,"love",1) > 0 Then msgbox "yes" '不区分大小写谢谢。
strA = "l*********"
If instr(strA,"love") < 0 Then msgbox "no" '区分大小写
这样就不弹哦
If instr(strA,"love") < 0 Then msgbox "no" '区分大小写
这样就不弹哦
InStr 函数：返回某字符串在另一字符串中第一次出现的位置。
也就是最小为0，“0” < 0不成立，也就不能执行后面的命令
也就是最小为0，“0” < 0不成立，也就不能执行后面的命令
strA = "l*********"
If instr(strA,"love") = 0 Then msgbox "no"楼主已经说了，读取某个文本，来判断，只能是用正则了。
Originally posted by abcd at 2008-4-22 00:19:
楼主已经说了，读取某个文本，来判断，只能是用正则了。
试试看
VBS
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("a.txt",1)
str = f.ReadAll
f.Close
If instr(str,"love") = 0 Then msgbox "no"
If instr(str,"love") > 0 Then msgbox "yes"a.txt
asdas
asd
loveOriginally posted by zh159 at 2008-4-22 01:40 AM:
试试看
VBS
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("a.txt",1)
str = f.ReadAll
f.Close
If instr(str,"love") = ...
这种用法处理不了特殊字符
Originally posted by abcd at 2008-4-22 11:39:
这种用法处理不了特殊字符
请问是哪些特殊字符？
~!@#$%^&*()_+|?><？
双引号
Originally posted by abcd at 2008-4-22 11:55:
双引号
双引号在VBS里面要用两个
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("a.txt",1)
str = f.ReadAll
f.Close
var = """"
If instr(str,var) = 0 Then msgbox "no"
If instr(str,var) > 0 Then msgbox "yes"
a.txt
asdas
asd
love
"回车、换行符号都可以查找
谢谢，俺孤陋了。
来源：https://www.cn-dos.net/forum/viewthread.php?tid=39642 · 打印时间 2026-06-23 04:52