| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1770 人关注过本帖
标题:请大神帮忙写一个排序代码!
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
剩余的数据自己添加进去吧

坚守VFP最后的阵地
2021-11-30 00:13
甲辰
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2021-4-20
收藏
得分:0 
回复 9楼 sdta
大神好!不好意思!又要打扰你了!
我把代码修改一下,能把各天的记录按升序排列了,但里面串入了编辑器(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编辑过]

2021-11-30 02:17
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:5 
程序代码:
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
2021-11-30 09:46
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1735
专家分:3329
注 册:2012-2-29
收藏
得分:5 
回复 13楼 吹水佬
高!
2021-12-01 06:52
快速回复:请大神帮忙写一个排序代码!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023759 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved