怎么把一数组里的元素按所定的分隔符连接成字符串 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 怎么把一数组里的元素按所定的分隔符连接成字符串

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1540 人关注过本帖， 1 人收藏

标题：怎么把一数组里的元素按所定的分隔符连接成字符串

只看楼主加入收藏

chenlingxiao

等　级：新手上路
帖　子：17
专家分：0
注　册：2012-5-20
结帖率：100%

楼主

已结贴√ 问题点数：10 回复次数：6

怎么把一数组里的元素按所定的分隔符连接成字符串

怎么把一数组里的元素按所定的分隔符连接成字符串，象VB里的join函数一样

搜索更多相关主题的帖子: 字符串　元素　

2012-05-26 19:37

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 2 楼

得分:0

循环用字符串加法拼接就是了。

授人以渔，不授人以鱼。

2012-05-26 19:54

chenlingxiao

等　级：新手上路
帖　子：17
专家分：0
注　册：2012-5-20

第 3 楼

得分:0

这个函数该怎么写

2012-05-26 19:55

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 4 楼

得分: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

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 5 楼

得分:0

现写的，没有运行测试，你自己测试看看。

授人以渔，不授人以鱼。

2012-05-26 20:05

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9848
专家分：27241
注　册：2012-2-5

第 6 楼

得分: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

软件服务

等　级：蝙蝠侠
威　望：3
帖　子：344
专家分：736
注　册：2011-12-23

第 7 楼

得分:0

SS = ""
FOR EACH CC IN 数组
SS = SS + "," + CC
ENDFOR
SS = subs(SS,2)
? SS

2012-05-27 16:25

快速回复：怎么把一数组里的元素按所定的分隔符连接成字符串