116问答网 > VB 怎么查找 Text1 中包含 "123" 的某行，并放到 Text2 中例子:

VB 怎么查找 Text1 中包含 "123" 的某行，并放到 Text2 中例子:

2024-11-16 19:34:35

推荐回答（2个）

回答1：

 private sub command1_click()
    dim i as integer
    dim t() as string
    t=split(text1,vbcrlf)
    for i=0 to ubound(t)
        if instr(t(i),"123")>0 then
            text2=text2 & t(i) & vbcrlf
        end if
    next
 end sub

回答2：

dim a
a=split(text1.text,vbcrlf)
dim i as integer
for i=0 to ubound(a)
    if instr(a(i) , "123")>0 then text2.text=text2.text & ar(i) & vbcrlf 
next

VB 怎么查找 Text1 中包含 "123" 的某行，并放到 Text2 中 例子:

VB 怎么查找 Text1 中包含 "123" 的某行，并放到 Text2 中例子: