在编写代码的工程中，我们发现经常有些莫名的错误。往往找很长时间，还是没有答案。有时就是因为一个符号而影响的。 由于中英文标点是不同的，经常在写代码的时候用中文代替了。或者有时我们需要的时中文标点，在输入的时候却出来英文。 下面的函数就是帮我们把字符串中的英文替换成中文标点。而中文标点替换英文标点自己下去慢慢参详了。 常规标点好办点,单引用与双引号有点困难
Private Function enTozhMark(ReplaceStr As String) As String '把传递进来的字符串中的英文标点符号替换成中文标点符号 Const enStr As String = ",.?;:!()" Const zhStr As String = "，。？；：！（）" Dim I As Byte, L As Integer, B As Boolean, N As Integer enTozhMark = ReplaceStr '替换常规标点符号 For I = 1 To 8 enTozhMark = Replace(enTozhMark, Mid(enStr, I, 1), Mid(zhStr, I, 1)) Next I '替换双引号 N = 0: B = False L = Len(enTozhMark) For I = 1 To L N = InStr(N + 1, enTozhMark, Chr(34)) If N <> 0 Then I = N If B = False Then enTozhMark = Left(enTozhMark, N - 1) & "“" & Mid(enTozhMark, N + 1) Else enTozhMark = Left(enTozhMark, N - 1) & "”" & Mid(enTozhMark, N + 1) End If B = Not B Else Exit For End If Next I '替换单引号 N = 0: B = False For I = 1 To L N = InStr(N + 1, enTozhMark, Chr(39)) If N <> 0 Then I = N If B = False Then enTozhMark = Left(enTozhMark, N - 1) & "‘" & Mid(enTozhMark, N + 1) Else enTozhMark = Left(enTozhMark, N - 1) & "’" & Mid(enTozhMark, N + 1) End If B = Not B Else Exit For End If Next I End Function