我想在richtextbox输出的报告中根据一个RETCODE = ？？？判断结果是否正确，怎么做啊？请高手指教1！！

Question

报告内容如下：
“
..............
...............
.................RETCODE = 7006  用户没有找到---    END ”表示结果错误，应该出一个对话框提示错误。如果如下：
“
..........
..........
..........
RETCODE = 0  操作成功”
表示成功。 但是RETCODE = 0，在这个输出报告中出现很多次，而且不是最后一行，我想已最后一次为判断依据，只要RETCODE =其它数值就表示错误，请高手指教！！！

Answer 1

工程中有一个RichTextBox1的文本框.里面有数据.Private Sub Command1_Click()
 BeginNum = 0  '设定开始查找的起始字符位置
 While BeginNum <> -1  '如果没有找到此字段退出
  BeginNum = RichTextBox1.Find("RETCODE", BeginNum + 1) '如果找到,查找下一个.
  If BeginNum <> -1 Then EndNum= BeginNum  '每找到一个次.则将此次字符的起始位置保存起来
 Wend
 '最后EndNum 中的数据为最后出现的 RETCODE 这一行数字的起始位置
 '如果对文本进行操作不用我说了吧
 '如,下例
 If Mid(RichTextBox1.Text, EndNum + 11, 1) = "0" Then  msgbox "成功" 
 '上面一句表示等号后的第一个字符是"0" ,至于,"0"后面是什么字符没有进行判断.你应该会吧.
End Sub

Answer 2

RETCODE =
好象总是在行首,
这就好办了.
循环所有的行,
取左边七个字符,看看是不是"RETCODE"
是的话,往右边取,一直取完数字.判断数字是不是0就行.