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

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

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2007/11/10 13:10

テキストボックスが置いてあるページから次のページに移動する際にサーバ上で処理するっていうんなら BASP21 の StringConv 関数ってのはどうでしょうか。

http://www.hi-ho.ne.jp/babaq/basp21.html

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

この回答へのお礼

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

お礼日時：2007/11/12 23:18

No.2 回答者： naganaga_001 回答日時： 2007/11/10 13:11

お世話になります。

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("０１２３"))

この回答へのお礼

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

お礼日時：2007/11/12 23:19