全角を半角に小文字を大文字に変換（メモ）

VB6.0で全角を半角に変換して、小文字を大文字に変換してみる


Private Sub Command1_Click()

Dim stTarget As String
Dim stUpper As String
Dim stPos As Integer
Dim stChk As String

stPos = 1
stTarget = "ＴＥｔｓｙＵｕ１２３" '下記の処理でTETSYUU123に変換される

   '全角を半角に変換して、小文字を大文字に変換する
   Do Until stPos > Len(stTarget)

      stChk = Mid(stTarget, stPos, 1)

      Select Case stChk
      Case "0" To "9"

      Case "０" To "９"
            stChk = StrConv(stChk, vbNarrow)
      Case "A" To "Z"

      Case "a" To "z"
            stChk = UCase(stChk)

      Case "Ａ" To "Ｚ"
            stChk = Chr(Asc("A") + Asc(stChk) - Asc("Ａ"))

      Case "ａ" To "ｚ"
            stChk = Chr(Asc("A") + Asc(stChk) - Asc("ａ"))

      Case "-", "－"
            stChk = "-"
      Case " ", "　"
            stChk = ""
      Case Else
      End Select

      stUpper = stUpper + stChk
      stPos = stPos + 1

   Loop

   stUpper = StrConv(stTarget, vbUpperCase + vbNarrow)

   '変換した文字列を表示する
   Call MsgBox(stUpper)


End Sub