先取123.txt中的内容到一个变量或text中
如text3=123.txt中的内容
if instr(text3.text,text1.text)=0 then '就是没有text1中的内容
text2=text3 & text2
end if
Private Sub command1_Click()
Open "e:\123.txt" For Input As #1
line input #1,str1
if instr(1,str1,"今天")>0 then
text2.text=text2.text & "今天"
end if
close #1
end sub
兄弟是为了做任务，麻烦易啊！
Private Sub command1_Click()
Open "e:\123.txt" For Input As #1
line input #1,str1
if instr(1,str1,"今天")>0 then
text2.text=text2.text & "今天"
end if
close #1
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024