回复 9楼 csyx
谢谢,您的这程序很不错,但修改后测试里边带有回车换行符。回车换行符删除不了,这一行就不能当作表达式来计算。能解决下吗。nPos = Thisform.edit1.SelStart
nn = 0
For ii = 1 to ALines(aTemp, Thisform.edit1.Value)
nn = nn + Len(aTemp[ii]) + 2
If nn > nPos
*MessageBox('选中块内容:' + 0h0d0a + m.aTemp[ii])
Exit
EndIf
ENDFOR
****** 以下为修改测试部分
MESSAGEBOX("** "+0h0d0a + m.aTemp[ii]+" **")
c_x=STRTRAN(0h0d0a + m.aTemp[ii],CHR(13),'')
MESSAGEBOX("** "+c_x+" **")