| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2657 人关注过本帖
标题:按记录中的数字顺序用“-”连接输出一字符串
只看楼主 加入收藏
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1526
专家分:2981
注 册:2012-2-29
结帖率:93.1%
收藏
已结贴  问题点数:20 回复次数:9 
按记录中的数字顺序用“-”连接输出一字符串
请按照下表记录中数字顺序(斜线规则),用“-”连接成一字符串,二维数组把我整蒙啦,哈哈,请帮忙,谢谢!
图片附件: 游客没有浏览图片的权限,请 登录注册

bb.rar (218 Bytes)
搜索更多相关主题的帖子: 顺序 连接 记录 字符串 数字 
2019-11-08 17:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9783
专家分:26837
注 册:2012-2-5
收藏
得分:10 
最后的结果是什么

坚守VFP最后的阵地
2019-11-08 18:06
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:10 
结果是不是这样:
A1-A2-AB3-DD4-XY5-XR6-TW7-FF8-BT9-XZ10-QR11-RR12-AD13-BB14-NN15-WQ16-AT17-AS18-B19-B20
USE bb
COPY TO ARRAY arr
nLen = ALEN(arr)
DIMENSION arr[nLen,1]
s = TRIM(arr[1])
i = 7
DO WHILE i < nLen
    s = s + "-" + TRIM(arr[i])
    IF i%5 == 0
        i = i+1
        s = s + "-" + TRIM(arr[i])
    ENDIF
    i = i+6
    IF i > nLen
        i = i - nLen
    ENDIF
ENDDO
s = s + "-" + TRIM(arr[i])
? s
2019-11-08 21:31
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9783
专家分:26837
注 册:2012-2-5
收藏
得分:0 
是不是这样的结果
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2019-11-08 22:26
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1526
专家分:2981
注 册:2012-2-29
收藏
得分:0 
最后结果就是字符串中最后的数字从1开始,直到20结束。谢谢两位版主。
2019-11-09 00:07
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1526
专家分:2981
注 册:2012-2-29
收藏
得分:0 
吹水版主,你把这个关系理得很清楚,结果完全正确,我把脑袋整蒙都没有理清,非常感谢!

[此贴子已经被作者于2019-11-9 00:18编辑过]

2019-11-09 00:15
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1526
专家分:2981
注 册:2012-2-29
收藏
得分:0 
两位版主,若用二维数组获取这些值,好办么?谢谢!
2019-11-09 06:46
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9783
专家分:26837
注 册:2012-2-5
收藏
得分:0 
CLEAR
SELECT * FROM bb INTO ARRAY aa
LOCAL bb[ALEN(aa)]
FOR i = 1 TO ALEN(aa, 1)
    FOR ii = 1 TO ALEN(aa, 2)
        nValue = VAL(CHRTRAN(aa[i, ii], "ABCDEFGHIJGLMNOPQRSTUVWXYZ", ""))
        bb[nValue] = TRIM(aa[i, ii])
    ENDFOR
ENDFOR  
cStr = bb[1]
FOR i = 2 TO ALEN(bb)
    cStr = cStr + "-" + bb[i]
ENDFOR
?cStr

坚守VFP最后的阵地
2019-11-09 12:20
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1526
专家分:2981
注 册:2012-2-29
收藏
得分:0 
非常感谢两位版主!结题!
2019-11-09 15:14
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9783
专家分:26837
注 册:2012-2-5
收藏
得分:0 
程序代码:
CLEAR 
USE bb
COPY TO ARRAY arr
DIMENSION arr[ALEN(arr)]
LOCAL larr[ALEN(arr, 1), 2]
FOR lnj = 1 TO ALEN(arr, 1)
    larr[lnj, 1] = arr[lnj]
    larr[lnj, 2] = VAL(CHRTRAN(arr[lnj], "ABCDEFGHIJGLMNOPQRSTUVWXYZ", ""))
ENDFOR
ASORT(larr, 2)
? RTRIM(arr[1])
FOR lnj = 2 TO ALEN(arr)
    ?? "-" + ALLTRIM(larr[lnj, 1])
ENDFOR

坚守VFP最后的阵地
2021-03-20 20:07
快速回复:按记录中的数字顺序用“-”连接输出一字符串
数据加载中...
 
   



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

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