在编写代码的工程中，我们发现经常有些莫名的错误。往往找很长时间，还是没有答案。有时就是因为一个符号而影响的。
    由于中英文标点是不同的，经常在写代码的时候用中文代替了。或者有时我们需要的时中文标点，在输入的时候却出来英文。
    下面的函数就是帮我们把字符串中的英文替换成中文标点。而中文标点替换英文标点自己下去慢慢参详了。
    常规标点好办点,单引用与双引号有点困难

    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

(责任编辑：admin)

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换