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

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

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

试试 STREXTRACT( ) 函数

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

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)

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

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

这格式也可以

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

谢谢你太棒了！

谢谢你太棒了！