| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1540 人关注过本帖, 1 人收藏
标题:怎么把一数组里的元素按所定的分隔符连接成字符串
只看楼主 加入收藏
chenlingxiao
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2012-5-20
结帖率:100%
收藏(1)
已结贴  问题点数:10 回复次数:6 
怎么把一数组里的元素按所定的分隔符连接成字符串
怎么把一数组里的元素按所定的分隔符连接成字符串,象VB里的join函数一样
搜索更多相关主题的帖子: 字符串 元素 
2012-05-26 19:37
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
循环用字符串加法拼接就是了。

授人以渔,不授人以鱼。
2012-05-26 19:54
chenlingxiao
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2012-5-20
收藏
得分:0 
这个函数该怎么写
2012-05-26 19:55
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:10 
lcString = ""
myJoin(@lcString, @aArray, CHR(10))
RETURN

* 为防止生成字符串太长参数传递往返消耗资源,用传址方式返回字符串
PROCEDURE myJoin(tcString, tcArray, tcDelimiter)
    LOCAL lnLen, lnIndex

    tcString = ""
    lnLen = LEN(aArray)
    FOR lnIndex = 1 TO lnLen
        tcString = tcString + aArray[lnIndex]
        IF lnIndex < lnLen
            tcString = tcString + tcDelimiter
        ENDIF
    NEXT

ENDPROC

授人以渔,不授人以鱼。
2012-05-26 20:04
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
现写的,没有运行测试,你自己测试看看。

授人以渔,不授人以鱼。
2012-05-26 20:05
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
*----字符生成数组
LOCAL ARR(5)
FOR I=1 TO 5
    ARR(I)=REPLICATE(CHR(64+I),5)
ENDFOR
*----数组生成字符串
CSTR=""
FOR I=1 TO ALEN(ARR)
    CSTR=CSTR+ARR(I)+IIF(I<ALEN(ARR),",","")
ENDFOR
?CSTR

坚守VFP最后的阵地
2012-05-26 20:12
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:0 
SS = ""
FOR EACH CC IN 数组
SS = SS + "," + CC
ENDFOR
SS = subs(SS,2)
? SS
2012-05-27 16:25
快速回复:怎么把一数组里的元素按所定的分隔符连接成字符串
数据加载中...
 
   



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

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