我想在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