oper.vbs

一个软件工程的软件质量web跟踪管理系统

Function GetChinesePYCode(SourceStr)
  'Dim Serial_S As String
  'Dim Serial_T As String
  'Dim TempS As String
  'Dim j As Integer
  Dim i
  Dim j
  
  'Dim i As Integer
  'Dim HelpChar As String
  
  Serial_S = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座"
  Serial_T = "abcdefghjklmnopqrstwxyz"
  Serial_T0 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
  
  For i = 1 To CInt(Len(SourceStr))
    HelpChar = Mid(SourceStr, i, 1)

    If Asc(HelpChar) >= Asc(Left(Serial_S, 1)) And Asc(HelpChar) <= Asc(Right(Serial_S, 1)) Then
      '-------------------------------
      If Asc(HelpChar) = Asc(Right(Serial_S, 1)) Then
        GetChinesePYCode = GetChinesePYCode & Right(Serial_T, 1)
      Else
        For j = 2 To Len(Serial_S)
          TempS = Mid(Serial_S, j, 1)
          If Asc(HelpChar) < Asc(TempS) Then
            GetChinesePYCode = GetChinesePYCode & Mid(Serial_T, j - 1, 1)
            Exit For
          End If
        Next
      End If
      '-------------------------------
    Else
      if InStr(1,Serial_T0,HelpChar)>0 then
      	GetChinesePYCode = GetChinesePYCode & HelpChar 
      else
      	GetChinesePYCode = GetChinesePYCode & ""
      end if
    End If
  Next
  GetChinesePYCode=LCase(GetChinesePYCode)
End Function