Office中国论坛/Access中国论坛

标题: 英文标点符号替换成中文标点符号的函数 [打印本页]
作者: 咱家是猫    时间: 2009-6-18 17:02
标题: 英文标点符号替换成中文标点符号的函数
  1. Private Function enTozhMark(ReplaceStr As String) As String
  2. '把传递进来的字符串中的英文标点符号替换成中文标点符号
  3. '作者:咱家是猫 QQ:130036500

  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    时间: 2010-1-2 09:12
太好了
作者: goto2008    时间: 2010-1-2 18:28
学习



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3