关于MultiLineEdit控件删除文本末尾空白行的有关问题

关于MultiLineEdit控件删除文本末尾空白行的问题
我通过~r~n来分段截取控件中的文本，判断如果是空的话就到此为止，保存前面已经截取的内容，代码是这样的
ls_tzxx = trim(mle_1.text)
ls_tzxx = ls_tzxx + "~r~n"

for i = 1 to mle_1.linecount( )
tmp = trim(left(ls_tzxx,pos(ls_tzxx,"~r~n")))
if tmp = "" or tmp = "~r~n" then
exit
else
ls_tzxx = right(ls_tzxx,len(ls_tzxx)-pos(ls_tzxx,"~r~n"))
  ls_new_tzxx = ls_new_tzxx + tmp 
end if

next
但我调试的时候，后面几个空白行已经满足tmp=""的条件了，但还是走到else里面去了，我百思不得其解，谁能帮我解惑啊

------解决方案--------------------
tmp = trim(left(ls_tzxx,pos(ls_tzxx,"~r~n")))

改成 tmp = trim(left(ls_tzxx,pos(ls_tzxx,"~r~n") - 1)) 呢？
------解决方案--------------------
用char(13) 和char(10)看看