请问大侠，VFP如何去掉一行字符中的括号及括号中内容？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请问大侠，VFP如何去掉一行字符中的括号及括号中内容？

标题：请问大侠，VFP如何去掉一行字符中的括号及括号中内容？

只看楼主

dbf永动机

等　级：新手上路
帖　子：26
专家分：0
注　册：2022-8-30

第 21 楼

得分:0

回复 20楼吹水佬

所以说要看具体数据，这种情况就用at呗，subs 后面用at，截取的位置就是读取括号前后的位置

2022-09-08 09:02

wangguowu

等　级：论坛游民
帖　子：59
专家分：15
注　册：2012-2-15

第 22 楼

得分:0

回复 4楼吹水佬

一个字段内内容："琼(2022)洋县不动产权第0021221号、琼(2020)洋县不动产权第0021221号/琼(2021)洋县不动产权第0021221号"

如何取成这样的数据：0021221、0021221/0021221
谢谢

2022-12-19 21:51

sdta

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

第 23 楼

得分:0

以下是引用wangguowu在2022-12-19 21:51:42的发言：

一个字段内内容："琼(2022)洋县不动产权第0021221号、琼(2020)洋县不动产权第0021221号/琼(2021)洋县不动产权第0021221号"

如何取成这样的数据：0021221、0021221/0021221
谢谢

试试 STREXTRACT( ) 函数

坚守VFP最后的阵地

2022-12-19 22:13

wangguowu

等　级：论坛游民
帖　子：59
专家分：15
注　册：2012-2-15

第 24 楼

得分:0

回复 23楼 sdta

我结合6楼和16楼的方法搞出来了，不知用在字段内容处理上有没有更简洁的方法，请不吝赐教！

2022-12-19 22:53

wangguowu

等　级：论坛游民
帖　子：59
专家分：15
注　册：2012-2-15

第 25 楼

得分:0

回复 24楼 wangguowu

Clear
Local xchr,xsubchr,cstr
cstr="琼(2018)洋县不动产证明第0038826号/琼(2019)洋县不动产证明第0038827号、琼(2017)洋县不动产证明第0038823号"
cstr=Chrtranc(cstr,"琼洋县不动产证明第号","")
Messagebox(cstr)
xchr=cstr
Do While .T.
   xsubchr=Strextract(xchr,"(",")")
   If Len(xsubchr)=0
      Exit
   Endif
   xchr=Strtran(xchr,"("+xsubchr+")"," ")
Enddo
Messagebox(xchr)

2022-12-20 12:22

foxfans

等　级：贵宾
威　望：11
帖　子：90
专家分：278
注　册：2021-10-23

第 26 楼

得分:0

CLEAR
m.lcTxt="琼(2022)洋县不动产权第0021221号、琼(2020)洋县不动产权第0021221号/琼(2021)洋县不动产权第0021221号"
m.nLen=ALINES(cArray,m.lcTxt,"第","号")
IF m.nLen=6
?cArray(2)+"、"+cArray(4)+"/"+cArray(6)
ELSE
?"样本数据无效"
Endif

2022-12-20 13:14

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 27 楼

得分:0

程序代码：

cstr="琼(2022)洋县不动产权第0021221号、琼(2020)洋县不动产权第0021221号/琼(2021)洋县不动产权第0021221号"
FOR i=1 TO ALINES(arr,cstr,16,"号","/","、")
    ?? IIF(i%2==0,arr[i],LEFT(RIGHT(arr[i],9),7))
ENDFOR

2022-12-20 15:13

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 28 楼

得分:0

回复 25楼 wangguowu

这格式也可以

程序代码：

cstr="琼(2018)洋县不动产证明第0038826号/琼(2019)洋县不动产证明第0038827号、琼(2017)洋县不动产证明第0038823号"
FOR i=1 TO ALINES(arr,cstr,16,"号","/","、")
    ?? IIF(i%2==0,arr[i],LEFT(RIGHT(arr[i],9),7))
ENDFOR