您真是了不起的高手，完全解决了问题。
只是这程序显示需要，想再请教如何提取edit框中这一行除外的前面部分和后面部分。

因为这一行计算好后已经显示为等式了。但前面部分和后面部分都还要显示。
因我的电脑不能登录论垃坛。只能用手机，很抱歉传不了表单。

用strtran替换不可行，这虽然很容易替换这行成等式，但另外行的相同部分也被替换了。所以想把这行除外的另外头尾部分先保存起来，以便显示。

没什么不同啊，累加不包含选中的数组行就是前面和后面的部分嘛

nPos = Thisform.edit1.SelStart
ALines(aTemp, Strtran(Thisform.edit1.Text, Chr(13)+Chr(10), Chr(1)+Chr(10)))
Store 0 to n0, n1
For ii = 1 to Alen(aTemp)
    n0 = n0 + Len(aTemp[ii]) + 1
    If n0 > nPos
        n1 = m.ii
        Exit
    EndIf
EndFor

c选中块 = Rtrim(aTemp[n1], Chr(1))
c前后块 = ''
For ii = 1 to Alen(aTemp)
    If ii <> n1
        c前后块 = c前后块 + Chr(13)+Chr(10) + Rtrim(aTemp[ii], Chr(1))
    EndIf
EndFor
c前后块 = Substr(c前后块, 3)

c前显示分隔符 = Replicate('=',20)+Chr(13)+Chr(10)
c后显示分隔符 = Chr(13)+Chr(10)++Replicate('=',20)
MessageBox('选中块 '+c前显示分隔符 + c选中块 + c后显示分隔符)
MessageBox('前后块 '+c前显示分隔符 + c前后块 + c后显示分隔符)

很简单，数组aTemp中每一行，就是editbox中的每一段，查看下数组aTemp的内容就知道了

真对不起，照您说的折腾了一晚上还是没有解决，明天我将表单发上来，请帮忙改一下。

有点象处理列表数据，用editbox来处理这类数据不好处理。
VFP处理列表数据通常有列表listbo、combobox，或直接用grid。

是的，但感觉editbox更灵活一些

请您帮忙再校正，显示结果有误啊。

改了下，但愿是你想要的结果

[此贴子已经被作者于2019-2-28 19:03编辑过]