Question

vb截取文本中的字符

E盘123.txt文本文件

在text1.text=“今天天气不错。”
按下command1
将 text1.text 与 123.txt 进行对比 假如123.txt中没有 “今天” 这个词
那么把“今天”这个词复制到text2.text 上。。。

怎么做。。纯新手。。
我是说，要对比一下，如果句子中某个字符是文本中没有的，就复制到text2中……

Answer 1

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

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

Answer 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

Answer 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