怎么查找并复制text1窗口的数据，小弟不会vb请大侠帮忙编写

显示全部楼层 · 2009-8-1 11:31:57

怎么查找并复制text1窗口的数据，小弟不会vb请大侠帮忙编写
text1窗口有以下据
01 02 03 05 30 33 22 23
01 02 03 05 31 33 22 27
01 02 03 06 30 33 26 29
01 02 03 30 32 33 15 19
01 02 04 30 31 33 18 13
01 02 03 04 05 06 18 20
01 02 03 04 05 06 21 25
text2窗口有要寻找的数据 01 02 03 04 05 06
点comd1把text1窗口含有text2窗口01 02 03 04 05 06的数据
复制到text3窗口，应该是
01 02 03 04 05 06 18 20
01 02 03 04 05 06 21 25
最后消息框提示“找到2行”

千问 · 2009-8-1 11:31:57

Private Sub Command1_Click()Text3 = ""Dim n As IntegerFor i = 1 To Len(Text1)If Mid(Text1, i, Len(Text2)) = Text2 ThenText3 = Text3 & Mid(Text1, i, Len(Text2) + 8)n = n + 1End IfNext iMsgBox "找到" & n & "行"End Sub...

千问 · 2009-8-1 11:31:57

dim spl() as string ,coun as integerspl = split(text1.text ,vbcrlf)dim i as integerfor i = 0 to ubound(spl)if instr(spl(i),text2.text)>0 then
coun=coun+1
text3....

千问 · 2009-8-1 11:31:57

百度知道 > rss订阅rss订阅请按照以下步骤操作，即可订阅您正在浏览的内容。什么是rss订阅1）直接复制下述地址或浏览器地址栏中的地址（即xml地址）。2）运行rss阅读器，从菜单选取新建或添加一个频道（channel），粘贴您刚复制的xml地址。http://zhidao.baidu.com/q?ct=20&qid=109448...