千分位-正则表达式

tombear

Sub 千分位()
Dim regx, Str$, Str1$
    Str = "The population of 298444215 is growing"
    Set regx = CreateObject("vbscript.regexp")
    regx.Pattern = "(?<=\d)(?=(?:\d\d\d)+\b)"
    regx.Global = True
    Str1 = regx.Replace(Str, ",")
    Debug.Print Str1
End Sub

在数字中加逗号，作为千分位分隔。为何程序报错，求指点，谢谢！

ivccav

双引号中没有位置$1吧。手机上只能打这么多字了

LittleBird2006

vbs不支持反向肯定预查吧。我建议正则提取数字format数字格式化就完了、

LittleBird2006

Sub 千分位()
Dim regx, Str$, Str1$
    Str = "The population of 298444215 is growing"
    Set regx = CreateObject("vbscript.regexp")
    regx.Pattern = "\D+"
    regx.Global = True
    Str1 = regx.Replace(Str, "")
    MsgBox Format(Str1, "#,000")
End Sub

duquancai

1. # -*- coding: utf-8 -*-
   
2. # Date: 2018/12/16
   
3. 
   
4. import re
   
5. 
   
6. my_Str = "The population of 298444215 is growing"
   
7. 
   
8. r = re.compile(r'(?<=\d)(?=(?:\d\d\d)+\b)')
   
9. 
   
10. my_Str = r.sub(',', my_Str)
    
11. 
    
12. print(my_Str)

复制代码

cjc209

(?<=\d) 不支持这种匹配方式

ggmmlol

vbscript.regexp对象，虽然不支持后发零宽断言，但它支持捕获分组，因此对于添加千分位这个问题，我们可以巧妙地通过构造一个有利于它工作的环境，然后只需要执行一个表达式一次就解决问题。

以下给出自定义函数和测试过程：

1. Sub Test()
   
2.     Dim s$
   
3.     s = "公元480年左右，南北朝时期的数学家祖冲之进一步得出精确到小数点后7位的结果，" _
   
4.         & Chr(10) & "给出不足近似值3.1415926和过剩近似值3.1415927，还得到两个近似分数值，密率355/113和约率22/7。" _
   
5.         & Chr(10) & "密率是个很好的分数近似值，要取到52163/16604才能得出比355/113略准确的近似。" _
   
6.         & Chr(10) & "到1948年英国的弗格森（D. F. Ferguson）和美国的伦奇共同发表了π的808位小数值，成为人工计算圆周率值的最高纪录。" _
   
7.         & Chr(10) & "下面给出圆周率的前100位小数：π=3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679"
   
8.     MsgBox 千分位(s)
   
9. End Sub
   
10. 
    
11. Function 千分位(ByVal s$)
    
12.     With CreateObject("VBScript.RegExp")
    
13.        .Global = True
    
14.         .Pattern = "((\.\d+[\s\S]*?)+\d|\d)(?=(\d{3})+(?!(\d|年)))"
    
15. '        .Pattern = "((\.\d+[\s\S]*?)+\d|\d)(?=(\d{3})+(?!\d))"
    
16.         s = s & "A9999A" '构造结尾字符
    
17.         s = .Replace(s, "$1,")
    
18.         s = Left(s, Len(s) - 7) '消除构造添加的结尾字符
    
19.         千分位 = s
    
20.     End With
    
21. End Function

复制代码

在以上示例中，做到了只对整数部分添加千位分隔符，而不影响小数部分。

甚至还可以做到一些特殊要求，例如排除以“年”结束的整数，比如以上示例中的“1948年”并不会被添加千位分隔符。
如果没有特殊要求，可以改用被注释掉的那个表达式：　.Pattern = "((\.\d+[\s\S]*?)+\d|\d)(?=(\d{3})+(?!\d))"

tombear

ggmmlol 发表于 2018-12-17 17:23
vbscript.regexp对象，虽然不支持后发零宽断言，但它支持捕获分组，因此对于添加千分位这个问题，我们可以 ...

(\.\d+[\s\S]*?)+\d
这一段没看明白，可以解释一下吗？谢谢！

ggmmlol

1. Function 千分位(ByVal s$)
   
2.     If s = "" Then 千分位 = "": Exit Function
   
3.     With CreateObject("VBScript.RegExp")
   
4.        .Global = True
   
5. '        .Pattern = "([\d\D]*?(?:\.\d+[\d\D]*?)*)(\d(?=(\d{3})+(?![\d年]))|$)"
   
6.         .Pattern = "([\d\D]*?(?:\.\d+[\d\D]*?)*)(\d(?=(\d{3})+(?!\d))|$)"
   
7.         s = .Replace(s, "$1$2,")
   
8.         千分位 = Left(s, Len(s) - 2)
   
9.     End With
   
10. End Function

复制代码

ggmmlol

可以再简化：

1. Function 千分位(ByVal s$)
   
2.     If s = "" Then 千分位 = "": Exit Function
   
3.     With CreateObject("VBScript.RegExp")
   
4.        .Global = True
   
5. '        .Pattern = "((?:\.\d+[\d\D]*?)*)(\d(?=(\d{3})+(?![\d年]))|$)"
   
6.         .Pattern = "((?:\.\d+[\d\D]*?)*)(\d(?=(\d{3})+(?!\d))|$)"
   
7.         s = .Replace(s, "$1$2,")
   
8.         千分位 = Left(s, Len(s) - 2)
   
9.     End With
   
10. End Function

复制代码