吹版也来解一下
真东西来了
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编辑过]

从不规范的摘要中提取需要的发票号码

Clear
lcStr = "NO.04833357，366已认证进项"      && 转换成   04833357,04833366
lcStr = "#04833357，04833358进项发票"     && 转换成   04833357,04833358
lcStr = "NO.04833357&04833358已认证进项"  && 转换成   04833357,04833358
lcStr = "NO.04833357，366已认证进项"
? lcStr
lcChar1 = ""
lcChar2 = ""
llChar  = .T.

For I = 1 To Len(Alltrim(lcStr))
    lcChar = Substr(lcStr, I, 1)
    If Asc(lcChar) > 47 And Asc(lcChar) < 58
        If llChar
            lcChar1 = lcChar1 + lcChar
        Else
            lcChar2 = lcChar2 + lcChar
        Endif
    Else
        llChar  = .F.
    Endif
    llChar = Iif(I < 5, .T., llChar)
Endfor
lcChar2 = Iif(Len(lcChar2) < 8, Stuff(lcChar1, Len(lcChar1) - Len(lcChar2), Len(lcChar2), lcChar2), lcChar2)
? lcChar1 + "-" + lcChar2

发票号码为什么不规范化呢？
你以后排序查询怎么处理？

上面的解答就事论事
纯粹练手
不提倡

因为你不能保证别人做凭证里的摘要所用的符号一样，有的人用“,”,有的人用“、”，有的人用“/”表示把发票号分开。有的人用“-”，有的人用“～”，有的人用“:”表示连续的发票号。所以要求程序智能化，能读懂不规范的文字！

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

使用电脑是为了规范化，你完全可以用屏蔽码控制用户规范的输入，
退一步说，你提取的前后两个编号，有用减号的，有用逗号的，自己都不规范，怎么要求他人？是不是？
 转换成  04833357-04833358
 转换成  04833357,04833358

强词夺理，到此为止，，，

上面的，应该可以做，但像最后2行的，就不好搞了。。
NO.04833357-366已认证进项（366-357小于50张时）      转换成   04833357-04833366
NO.04833357，366已认证进项    转换成   04833357,04833366

不规范，也就是不确定，不确定就难得完整。
目前只好将起始和终止数字串取出再作处理。

先预处理：
lcStr = "NO.04833357-366已认证进项（366-357小于50张时）"  && 转换成   04833357-04833366
? lcStr
lcStr = Strtran(lcStr, Strextract(lcStr, "-", "）", 2), "")

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

对不规范的字符串，不能预判，只能来一招拆一招，，，