PB MultiLineEdit 逐行读取的问题

1、已下图示例：

111111111111113内容是一行的数据，由于控件不够宽，最后一个3显示到第二行去了。

如果使用SendMessage api函数读取第一行的数据，只会读取到11111111111111，3就被漏掉了

string ls_str 
long ll_row,ll_length

ll_row = 1 //取第几行 
ls_str = space(1000) 

//ll_row - 1表示取得第ll_row行的文本，0为起始;返回文本长度
ll_length = SendMessage(handle(mle_1), 196, ll_row - 1, ls_str) 

messagebox("取第" + string(ll_row) + "行", "文本内容：" + ls_str + "~r~n文本长度：" + string(ll_length))  

使用下面代码，根据换行符号来取，就可以取到111111111111113

string ls_strline,ls_strtext

ls_strtext = mle_1.Text+'~r'
do while(pos(ls_strtext,'~r')>0)
    ls_strline = left(ls_strtext,pos(ls_strtext,'~r') - 1)
    ls_strtext = mid(ls_strtext,pos(ls_strtext,'~r') + 1)
    messagebox('line',ls_strline)
loop