vb截取文本中的字符

2024-11-30 19:54:24

推荐回答（3个）

回答1：

先取123.txt中的内容到一个变量或text中
如text3=123.txt中的内容

if instr(text3.text,text1.text)=0 then '就是没有text1中的内容
text2=text3 & text2
end if

回答2：

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

回答3：

兄弟是为了做任务，麻烦易啊！

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