TITLE:  [109] Re: 半角文字を全角に
DATE : 2001-07-31 00:55:00
--------------------------------------------------
a-murataさん、こんばんは。

半角数字を全角に直すプログラムは、次のようなのでできると思います。

Function ToZen( Str1 )
  Dim i, buff
  buff = ""

  For i = 1 To Len(Str1)
    If AscW(Mid(Str1, i, 1)) >= AscW("0") 
                    And AscW(Mid(Str1,i,1))<=AscW("9") Then
      buff = buff + 
          ChrW(AscW("０") + AscW(Mid(Str1, i, 1)) - AscW("0"))Else
        buff = buff + Mid(Str1, i, 1)
    End If
  Next

  ToZen=buff

End Function

これにabcも変換するIf文を付加すれば、完璧に全角半角変換できるよう
になりますね。
お試し下さい。