ASPで全角数字を半角数字にするには？

質問

ASPでページ上のテキストボックスに入力された全角数字を、
半角数字に変換(置換え？)することはできますか？

回答No.1

temtecomai2 · ベストアンサー

テキストボックスが置いてあるページから次のページに移動する際にサーバ上で処理するっていうんなら BASP21 の StringConv 関数ってのはどうでしょうか。
http://www.hi-ho.ne.jp/babaq/basp21.html

VBScript だけで行うのであればこんなのを見つけました。
http://www.ac.cyberhome.ne.jp/~mattn/AcrobatASP/1.html

お礼

回答ありがとうございます。
参考になりました。

回答No.2

naganaga_001

お世話になります。

VbScript では Format 関数は確か使えないと思ったので
自力で以下のような関数を書かないとダメだったと思います。

' 全角数字を半角数字に変換する
Function ConvertToHalfNum(ByVal zenkakuNum)
　　ConvertToHalfNum = ""
　　If Len(zenkakuNum) = 0 Then
　　　　Exit Function
　　End If

　　Dim returnString
　　returnString = zenkakuNum
　　returnString = Replace(returnString, "０", "0")
　　returnString = Replace(returnString, "１", "1")
　　returnString = Replace(returnString, "２", "2")
　　returnString = Replace(returnString, "３", "3")
　　returnString = Replace(returnString, "４", "4")
　　returnString = Replace(returnString, "５", "5")
　　returnString = Replace(returnString, "６", "6")
　　returnString = Replace(returnString, "７", "7")
　　returnString = Replace(returnString, "８", "8")
　　returnString = Replace(returnString, "９", "9")
　　ConvertToHalfNum = returnString
End Function

' Test
Response.Write(ConvertToHalfNum("０１２３"))

お礼

回答ありがとうございます。
こちらのやり方でも解決できました。