剩余的数据自己添加进去吧

大神好！不好意思！又要打扰你了！
我把代码修改一下，能把各天的记录按升序排列了，但里面串入了编辑器（EDIT）鼠标移动的说明，不知道是什么原因！代码为：

CREATE CURSOR tt (a1 c(40))
FOR i=1 to ALINES(myarr,thisform.edit3.value)

INSERT INTO tt VALUES (myarr(i))
    SELECT a1, RECNO() nrec FROM tt into cursor aa
endfor
        SELECT a1 FROM aa ORDER BY nrec DESC to file aa.txt

    thisform.edit2.value=filetostr("aa.txt")


若能运算结果直接显示在thisform.edit2.valuek 中，不再保存在aa里面就更好了.
谢谢！

[此贴子已经被作者于2021-11-30 02:19编辑过]

TEXT TO 测试数据 TEXTMERGE NOSHOW PRETEXT 7
第103天：【取:-3条-】
第102天：【取:-4条-】
第101天：【取:-0条-】
第100天：【取:-1条-】
第99天：【取:-4条-】
第98天：【取:-4条-】
第97天：【取:-2条-】
第96天：【取:-3条-】
第95天：【取:-2条-】
ENDTEXT
WITH _screen
    .AddObject("edit2","editbox")
    .edit2.width = 200
    .edit2.height = 200
    .edit2.value = 测试数据
    .edit2.Visible = 1
    MESSAGEBOX("重排逆序")
    ALINES(arr,.edit2.value)
    .edit2.value = ""
    FOR i=ALEN(arr) TO 1 STEP -1
        .edit2.SelText = arr[i]+0h0D0A
    ENDFOR 
    MESSAGEBOX("排序完成")
    .RemoveObject("edit2")
ENDWITH

高！