如题，谢谢。

夹在两个回车符之间的字符即为一行(段)。

用edit做个计算器，计算出每一行的值

谢谢，您的这程序很不错，但修改后测试里边带有回车换行符。回车换行符删除不了，这一行就不能当作表达式来计算。能解决下吗。

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+" **")

很不错，谢谢了。但还是有问题啊。
aaa = THISFORM.edit1.VALUE
bbb1 = LEFT(aaa,THISFORM.edit1.SELSTART)
ccc1 = SUBSTR(bbb1,RATC(CHR(13),bbb1)+1,LEN(bbb1)-RATC(CHR(13),bbb1)+1)
bbb2 = RIGHT(aaa,LEN(aaa)-THISFORM.edit1.SELSTART)
IF ATC(CHR(13),bbb2) = 0
    ccc2 = bbb2
ELSE
    ccc2 = LEFT(bbb2,ATC(CHR(13),bbb2))
ENDIF
*MESSAGEBOX(ccc1+ccc2)

****** 以下为修改测试部分
MESSAGEBOX("** "+ccc1+ccc2+" **")
c_x=STRTRAN(ccc1+ccc2,CHR(13),'')
MESSAGEBOX("** "+c_x+" **")

*改之前MESSAGEBOX显示尾部有个回车符chr(13)，STRTRAN后显示回车符没有了，这已经满足要求了。
*但只要修改了任意内容，再按COMMAND显示中间两行时，发现头部多了个回车符，这问题无法解决。

*因为要计算每一行，有回车符就会产生“表达式错误”而不能计算。垦请解决这问题，谢谢。

-1后解决了笫一个问题，但笫二个问题依旧。如图，明显看出c_x头部有个回车换行。只要修改了某行内容，几乎所有行头部都会多出个回车换行无法删除。

[此贴子已经被作者于2019-2-27 16:14编辑过]

9楼的方案也就是这个原因，头部的回车换行符删除不了。

[此贴子已经被作者于2019-2-27 15:10编辑过]

c_x="1+2" 时，evaluate(c_x)=3。

但当 c_x=chr(13)+"1+2" 时，evaluate(c_x) 就“缺少表达式”而出错。

现在想解决的就是删除掉这个头部的chr(13)。请帮忙。