英文标点符号替换成中文标点符号的函数

咱家是猫

1. Private Function enTozhMark(ReplaceStr As String) As String
   
2. '把传递进来的字符串中的英文标点符号替换成中文标点符号
   
3. '作者:咱家是猫 QQ:130036500
   
4. 
   
5.     Const enStr As String = ",.?;:!()"
   
6.     Const zhStr As String = "，。？；：！（）"
   
7.     Dim I As Byte, L As Integer, B As Boolean, N As Integer
   
8.    
   
9.     enTozhMark = ReplaceStr
   
10.     '替换常规标点符号
    
11.     For I = 1 To 8
    
12.         enTozhMark = Replace(enTozhMark, Mid(enStr, I, 1), Mid(zhStr, I, 1))
    
13.     Next I
    
14.     L = Len(enTozhMark)
    
15.     '替换双引号
    
16.     N = 0: B = False
    
17.     For I = 1 To L
    
18.         N = InStr(N + 1, enTozhMark, Chr(34))
    
19.         If N <> 0 Then
    
20.             I = N
    
21.             If B = False Then
    
22.                 enTozhMark = Left(enTozhMark, N - 1) & "“" & Mid(enTozhMark, N + 1)
    
23.             Else
    
24.                 enTozhMark = Left(enTozhMark, N - 1) & "”" & Mid(enTozhMark, N + 1)
    
25.             End If
    
26.             B = Not B
    
27.         Else
    
28.             Exit For
    
29.         End If
    
30.     Next I
    
31.     '替换单引号
    
32.     N = 0: B = False
    
33.     For I = 1 To L
    
34.         N = InStr(N + 1, enTozhMark, Chr(39))
    
35.         If N <> 0 Then
    
36.             I = N
    
37.             If B = False Then
    
38.                 enTozhMark = Left(enTozhMark, N - 1) & "‘" & Mid(enTozhMark, N + 1)
    
39.             Else
    
40.                 enTozhMark = Left(enTozhMark, N - 1) & "’" & Mid(enTozhMark, N + 1)
    
41.             End If
    
42.             B = Not B
    
43.         Else
    
44.             Exit For
    
45.         End If
    
46.     Next I
    
47.    
    
48. End Function
    

复制代码

heqing3000

太好了

goto2008

学习