请教一个字符处理的问题 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教一个字符处理的问题

我的收件箱(0)

共有 322 人关注过本帖

标题：请教一个字符处理的问题

只看楼主加入收藏

fanjinyu9108

等　级：论坛游民
帖　子：720
专家分：20
注　册：2014-1-16

第 11 楼

得分:0

这个完全符合，非常感谢，看来这些函数我还要认真学习一下

2025-04-28 20:38

wengjl

等　级：贵宾
威　望：109
帖　子：2298
专家分：4139
注　册：2007-4-27

第 12 楼

得分:0

以下是引用schtg在2025-4-28 19:17:40的发言：

将第5楼的代码简单处理一下，即可得到结果。

clear

cstr = "压力：2.5；材料：铸铁；管径：250"
szzs =  alines(arr,cstr,"；")
cstr1 = ""
cstr2 = ""
for szs = 1 to szzs
    szz = arr(m.szs)
    cstr1 = cstr1 + substr(alltrim(szz),1,atc("：",szz) - 1) + iif(szs = szzs,"",",")
    cstr2 = cstr2 + substr(alltrim(szz),atc("：",szz) + 2,len(alltrim(szz)) - atc("：",szz)) + iif(szs = szzs,"",",")
endfor
? cstr1
? cstr2

学到了一个小技巧，就是我标红的那一句，谢谢！

只求每天有一丁点儿的进步就可以了

2025-04-30 07:53

csyx

来　自：火星
等　级：版主
威　望：37
帖　子：789
专家分：3140
注　册：2018-3-13

第 13 楼

得分:5

还可以更精简一丁点儿

程序代码：

cc = '压力：2.5； 材料：铸铁； 管径：250'
Store '' to c1, c2
For ii = 1 to ALines(acc, cc, '；')
    cc = Strtran(acc[ii], '：', ':')
    c1 = c1 + ',' + GetWordNum(cc, 1, ':')
    c2 = c2 + ',' + GetWordNum(cc, 2, ':')
EndFor
c1 = Ltrim(c1, ',')
c2 = Ltrim(c2, ',')
? c1
? c2

这家伙很懒，啥也没留下

2025-05-01 13:24

快速回复：请教一个字符处理的问题