vb代码问题求解

问题如下：
如果rtftext中有某一行的内容是“aBK”（不含引号，最好能够支持不区分大小写的识别），就将rtftext的内容复制到rtftext2中；
如果rtftext中有某一行的内容是“BKbh Md”（不含引号，最好能够支持不区分大小写的识别），就删除这一行的内容并转到代码A处（就是GoTo A:）。
求以上过程的代码。

追问：大小写可以不区分吗

答案：第一个
sub aBk()
if instr(lcase(rtftext.text),"abk")>0 then rtftext2.text=rtftext.text
end sub
第二个,涉及到行，那么先要把rtftext中的内容分行保存在数组中
dim sRtftext() as string
sub BKbh()
dim i%
sRtftext=split(rtftext.text,vbcrlf)
for i= 0 to ubound(sRtftext)
if lcase(sRtftext(i))="BKbh Md" then
 sRtftext(i)=""
 exit for
end if
goto A
end sub
在VB中用正则表达式来实现吧 几行代码就搞定了 而且还不会出错。
具体实现过程自己去百度搜吧 呵呵

上一个：VB编程常用语言
下一个：VB怎么编写复制文件？