如何简化四个Pattern，为汉字、英文字符和数字添加空格。

ning84

1. ''
   
2. Function AddBlank(Str)
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "(""[a-z]+?""|[a-z])"
   
5.         .Global = True
   
6.         
   
7.         AddBlank = .Replace(Str, "$1 ")
   
8.     End With
   
9. 
   
10. End Function
    
11. ''
    
12. Function AddBlank1(Str)
    
13.     With CreateObject("vbscript.regexp")
    
14.         .Pattern = "(""[A-Z]+?""|[A-Z])"
    
15.         .Global = True
    
16.         
    
17.         AddBlank1 = .Replace(Str, "$1 ")
    
18.     End With
    
19. End Function
    
20. ''
    
21. Function AddBlank2(Str)
    
22.     With CreateObject("vbscript.regexp")
    
23.         .Pattern = "(""[0-9]+?""|[0-9])"
    
24.         .Global = True
    
25.         AddBlank2 = .Replace(Str, "$1 ")
    
26.     End With
    
27. End Function
    
28. ''
    
29. Function AddBlank3(Str)
    
30.     With CreateObject("vbscript.regexp")
    
31.         .Pattern = "(""[一-龥]+?""|[一-龥])" '如果凡是引号内的内容都不加空格,可用
    
32.                                             '(""[^""]+""|[一-龥])
    
33.                                             
    
34.         '.Pattern = "(\d+)(?!$)"
    
35.         .Global = True
    
36.         
    
37.         AddBlank3 = .Replace(Str, "$1 ")
    
38.     End With
    
39. 
    
40. End Function
    
41. 
    
42. 
    
43. Private Sub ll()
    
44.   Dim Str, oStr
    
45.    oStr = "汉字添加空格成功FFFabc159eFF"
    
46.    Str = AddBlank(oStr)
    
47.    Str = AddBlank1(Str)
    
48.    Str = AddBlank2(Str)
    
49.    Str = AddBlank3(Str)
    
50.    Debug.Print Str
    
51. End Sub
    

复制代码

原字符串

oStr = "汉字添加空格成功FFFabc159eFF"

运行上面代码的结果是：

汉 字 添 加 空 格 成 功 F F F a b c 1 5 9 e F F