データを書き込む際、全角数値を半角で登録するには

解決済

質問者：jim_23
質問日時：2005/07/04 20:16
回答数：3件

ＡＳＰにおいてSQL-SERVERにデータを書き込む際に全角数値だったら半角数値になおして書き込むことは可能でしょうか？？

例：１２３４→1234

もし可能ならばご教授お願いします！！！よろしくお願いします！！！

ちなみに理由はＨＴＭＬフォーム上で電話番号等数値入力のコントロールで全角で入力してしまうことがある為、対応として全角を半角で登録ってことになりました・・・。現在はバイト数で半角全角チェックを行っていますが、このチェックはなくすことになります。。。だれか助けてください。。。IMEの制御は行っていません。サーバはWINDOWS２０００、処理ブラウザはＩＥ、ＤＢはSQL-SERVER２０００を使用しています。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： cookei
回答日時：2005/07/06 15:28

ＶＢだと、ＳｔｒＣｏｎｖという変換関数が存在するのですが、ＡＳＰにはそれがないので、関数を作るしかないと思います。

こんなサンプルソース＆解説のページを見つけましたので、ご参考にしてください。

参考URL：http://www.dolphinnetservice.ne.jp/AcrobatASP/1. …

- 0
- 件

通報する

No.2

回答者： mangetsu_k
回答日時：2005/07/06 11:05

hequilさんが書かれたようにBASP21を使う方法がありますが、

BASP21をインストール出来ない場合もありますよね。

数字は10個しかないので

str = "１２３４"
str = Replace(str,"０","0")
str = Replace(str,"１","1")
　　　　　・
　　　　　・
str = Replace(str,"９","9")

と１つずつ変換をかけてあげるのも手です。

また、「数字だけの文字列」ならばこれでも出来ます。

str = Cint(str)

多分正式な使い方じゃないので動作保障は出来ませんが…

- 0
- 件

通報する

No.1

回答者： hequil
回答日時：2005/07/05 11:27

BASP21が使えるのなら、strConvで変換できます。

DIm objBasp
Dim strZen
Dim strHan
strZen = Request.Form("tel")

Set objBasp = Server.CreateObject("basp21")
strHan = objBasp.StrConv(strZen, 8)
Set objBasp = Nothing

参考URL：http://www.hi-ho.ne.jp/babaq/basp21.html#0022