剩余的数据自己添加进去吧
坚守VFP最后的阵地
[此贴子已经被作者于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