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
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024