全角→半角の変換

エコー 2006-09-05 00:52:26 No: 96478

VB6、XPで行っています。
「エコー２２」という文字列から「エコー22」という数字のみが半角になった文字列を取得したいと思います。しかし、StrConv("エコー２２",vbNarraw)だと「エコー22」（カナが半角）となってしまい、目的の文字列となりません。

この場合、他の関数などはあるのでしょうか？

我龍院忠太 2006-09-05 02:32:51 No: 96479

>この場合、他の関数などはあるのでしょうか？
関数が無ければ自分で作るのがプログラムを作成するってことでしょう。
たとえば
Private Function StrConvNumeric(ByVal s As String) As String
    Dim i As Integer
    For i = 0 To 9
        s = Replace(s, Chr(Asc("１") + i), Chr(Asc("1") + i))
    Next
    StrConvNumeric = s
End Function
こんな関数を作るとか。

エコー 2006-09-05 20:04:41 No: 96480

ご回答ありがとうございます。

>関数が無ければ自分で作るのがプログラムを作成するってことでしょう。
たしかに^^；

というわけでReplace関数を繰り返すことで解決しました。。。ちょっと難しく考えすぎました。。

通ってみた 2006-09-07 09:53:39 No: 96481

＞解決しました。。。

そうですか
それはなによりなのですが、使ったスレッドは閉じてください