Question

vb如何在text中删除含有指定文本的行

比如我text中有如下N行内容
Date(090818233516)Txt(看看校友果子)
Date(090819210000)Txt(樱桃还有10分钟熟)
...

如何查找到含有090818233516的这一行?
查找到了如何删除呢？

请高手帮忙了~~~ 最好能稍微注释下

Answer 1

dim aa() as string,bb as string
aa=split(text1,vbcrlf)
for i=0 to ubound(aa)
if instr(aa(i),"090818233516")=0 then bb=bb & aa(i) & vbcrlf
next
text1=bb