例如：如果您急于233寻求某个问题的答案
      如果您急于1233寻求某个55问题的答案
      如674果您急于33寻求某个问题的答案
取“寻”字前的数字，结果为：233，1233，33

[此贴子已经被作者于2018-9-19 12:53编辑过]

VFP9 代码
cStr = "如果您急于1233寻求某个55问题的答案"
?STREXTRACT(cStr, "急于","寻求" )

谢谢版主回复，我的例子举得不完善，如果其中还包含下面情况
1233寻求某个55问题的答案
编程12论坛564.3寻求某个55问题的答案
结果分别是：1233，564.3
也就是只有“寻”这个字符是确定的，其他字符不确定，取这个字符前的数字部分
辛苦版主不吝赐教

cStr = "编程12论坛564.3寻求某个55问题的答案"
x2=At("寻",cStr)
Clear
For i = x2-1 To 1 STEP -1
    b=Substr(cStr,i,1)
    If Isdigit(b)=.T. OR alltrim(b)="."
        Loop
    Else
        Exit
    Endif
Endfor
?Substr( cStr,i+1,x2-i-1)

[此贴子已经被作者于2018-9-19 15:32编辑过]

按“寻”字分组，再取各组最右边的数字

不拿出点真东西出来，你的这个问题恐怕是不能完美解决的

真东西来了
NO.04833357-04833358已认证进项       转换成   04833357-04833358
NO.04833357～04833358已认证进项      转换成   04833357-04833358
NO.04833357:04833358已认证进项       转换成   04833357-04833358
NO.04833357：04833358已认证进项      转换成   04833357-04833358
NO.04833357,-04833358已认证进项      转换成   04833357-04833358
NO.04833357,04833358已认证进项       转换成   04833357,04833358
NO.04833357、04833358已认证进项      转换成   04833357,04833358
NO.04833357.04833358已认证进项       转换成   04833357,04833358
NO.04833357。04833358已认证进项      转换成   04833357,04833358
NO.04833357&04833358已认证进项       转换成   04833357,04833358
#04833357，04833358进项发票          转换成   04833357,04833358
NO.04833357任何汉字或字母或空格04833358已认证进项   转换成   04833357,04833358
NO.04833357-366已认证进项（366-357小于50张时）      转换成   04833357-04833366
NO.04833357，366已认证进项    转换成   04833357,04833366

[此贴子已经被作者于2018-9-20 13:05编辑过]

这是原始数据吗

是的版主，是真东西，希望指教

感觉他是用一组数自己演绎的各种形式