半角の数値を全角に変換することは可能でしょうか?
ご存知のかたよろしくお願いします。

A 回答 (4件)

ASPでどの言語を使われているかわかりませんが、


一般的なVBScriptでしたら、BASP21を利用して

Function han2zen( str )
 Set objBasp = Server.CreateObject("basp21")
 han2zen = objBasp.StrConv( str, 4 )
 Set objBasp = Nothing
End Function

という関数を作ってあげれば全角へ変換できます。
#BASP21については参考URLのページをご覧になって下さい

参考URL:http://www.hi-ho.ne.jp/~babaq/
    • good
    • 0
この回答へのお礼

ていねいな説明ありがとうございます。
これで試してみようと思います。
参考のURLも参考にさせて頂きます。
ありがとうございました。

お礼日時:2001/02/20 12:02

BASP21のStrConvメソッドを利用すると一発ですよ。



参考URL:http://www.hi-ho.ne.jp/babaq/basp21.html#0022
    • good
    • 0
この回答へのお礼

ありがとうございます。
さっそく試してみます。

お礼日時:2001/02/20 12:03

何のアプリケーションでのことでしょうか。


エクセルでやりたいのでしたら、「楽々マクロ」というアドインソフトがあります。
これでしたら簡単に全角を半角、半角を全角に置き換えることができます。
(もし、アクセスのデータでしたら、エクセルへ一旦インポートして、変換後にアクセスへ戻してはどうですか。)

参考URLを見てください。
ご希望に添えれば良いのですが。

参考URL:http://www.vbalab.net
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
>何のアプリケーションでのことでしょうか。
VisualInterDevです。
急いでいたもので、言葉が足りなくてすみませんでした。

お礼日時:2001/02/20 11:59

IMEの場合は、入力モードを全角英数にして数字を入力して、F6かF7キィーを押します。

    • good
    • 0
この回答へのお礼

回答ありがとうございます。
IMEではなくプログラムで変換する方法です。
言葉が足りなくてすみませんでした。

お礼日時:2001/02/20 11:51

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

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

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

例:1234→1234

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

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

Aベストアンサー

VBだと、StrConvという変換関数が存在するのですが、ASPにはそれがないので、関数を作るしかないと思います。
こんなサンプルソース&解説のページを見つけましたので、ご参考にしてください。

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

QASPで全角数字を半角数字にするには?

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

Aベストアンサー

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

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

Q全角カタカナを半角カタカナにする方法・・・

皆様、ご指導宜しくお願い致します。

WEBの世界で有り得るのかどうか、まずはそこから疑問になりますが、どうすればいいのか思いつかないので
お力をお貸し下さい。

DB:oracle8.1.X
言語:asp

あるデータベースのデータが半角カタカナで登録されてしまっています。
フォームから検索条件を入れて、該当するデータを抽出したのですが、フォームのデータとデータベースのデータをどう比較すればいいのでしょうか?

半角カタカナを全角にする方法は、basp21を使えばできるのですが、SQLに全角のカタカナを値として渡しても意味が無いので。。。

SQL文を実行する時点で、値の形をイコールにしたいのです。

どなたか良い方法がありましたら、教えてください。

Aベストアンサー

すみません、質問の意図がよく理解できないのですが(批判ではなく、単純に掴めません)、何故半角カタカナを一度全角に変換してしまうのでしょうか?

DBに半角で登録がしてあるのであれば半角の検索条件が入力されたら全角に変換せずそのまま比較すればうまくいくと思います。
またDBに半角で登録がしてある項目と、検索条件で全角で入力された文字を一致させたければBASP21で半角に変換してからOracleに問い合わせをすれば問題がなさそうに思えます。

QVBScript 全角英数記号→半角英数記号に

ASP(VBScript)での開発をしています。

全角英数記号を、半角英数記号に変換したくて、以下のメソッドを
作りました。

Function FunFullToHalf(ByVal StrTarget)
Dim ObjBASP21
Dim StrHalf

Set ObjBASP21 = Server.CreateObject("basp21")
StrHalf = ObjBASP21.StrConv(StrTarget,8)

FunFullToHalf = StrTarget
End Function

しかし、これだと、全角カタカナまで半角になってしまい、困っています。
回避策を教えていただけないでしょうか。

Aベストアンサー

だったら関数を自作すれば?
所詮変換の方向が [全角]→[半角] なんだし、変換してもよい文字の一覧が質問者の頭の中にあるんだろうし。

泥臭いけれど、あらかじめ変換候補としている文字の一覧と、変換後イメージの一覧を持っておいて、対象文字列の先頭から順に一文字ずつ変換するって方法。

' 変換してもよい文字の一覧
Const wideList = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=_"
' 変換後の文字一覧(変換してもよい文字の一覧と同じ並び、同じ数にしておく)
Const narrowList = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=_"

Dim src
src = "Aあア1-ーBk_" ' これを変換する。あアー の3文字以外は変換したい。
Dim dest
dest = conv(src) ' 変換する conv 関数を呼び出す
WScript.Echo dest

' 変換前の文字列を受け取って、変換した文字列を返す
Function conv(aSrc)
  Dim returnValue

  ' ソース文字列を 1文字ずつ取り出す
  Dim srcPos
  For srcPos = 1 To Len(aSrc)
    Dim hit
    hit = False

    ' 変換候補リストを 1文字ずつ取り出す
    Dim listPos
    For listPos = 1 To Len(wideList)
      ' 比較して変換候補リストにあればフラグを立てる
      If Mid(aSrc, srcPos, 1) = Mid(wideList, listPos, 1) Then
        hit = True
        Exit For
      End If
    Next

    ' フラグが立っていれば変換し、立っていなければソースの文字を使用する
    If hit Then
      returnValue = returnValue & Mid(narrowList, listPos, 1)
    Else
      returnValue = returnValue & Mid(aSrc, srcPos, 1)
    End If
  Next

  conv = returnValue
End Function

だったら関数を自作すれば?
所詮変換の方向が [全角]→[半角] なんだし、変換してもよい文字の一覧が質問者の頭の中にあるんだろうし。

泥臭いけれど、あらかじめ変換候補としている文字の一覧と、変換後イメージの一覧を持っておいて、対象文字列の先頭から順に一文字ずつ変換するって方法。

' 変換してもよい文字の一覧
Const wideList = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=_"
' 変換後の文字一覧(変換し...続きを読む

Q半角カナだけが入力できるは可能?

半角カナだけ入力できるテキストボックスは
作成可能でしょうか?

Vbscript だけを使って実現したいと思います。

Aベストアンサー

ちょっと面倒なやり方ですが、以下の様なものはいかがでしょう?
テキストボックスのonblurイベント時にVBScriptでチェックしています。

----サンプル-----
<html>
<head>
<title>半角カナチェック</title>
<script language="vbscript">
Function KanaCheck(strTarget)
Dim obj, i, strChar, intAscBuff
For Each obj in frm1
If InStr(obj.name, strTarget) > 0 then
For i = 1 To Len(obj.value)
strChar = Mid(obj.value, i, 1)
intAscBuff = Asc(strChar)
If intAscBuff < Asc("ア") Or intAscBuff > Asc("ン") Then
If Not (intAscBuff = Asc("゛") Or _
intAscBuff = Asc("゜") Or _
intAscBuff = Asc(" ") Or _
intAscBuff = Asc("(") Or _
intAscBuff = Asc(")") Or _
intAscBuff = Asc("-") Or _
intAscBuff = Asc(",") Or _
intAscBuff = Asc(".") Or _
intAscBuff = Asc("\") Or _
intAscBuff = Asc("/") Or _
intAscBuff = Asc("「") Or _
intAscBuff = Asc("」")) Then
If intAscBuff < Asc("A") Or _
intAscBuff > Asc("Z") Or _
intAscBuff < Asc("0") Or _
intAscBuff > Asc("9") Then
KanaCheck = False
msgbox obj.name & "は半角カナ文字のみの入力となります。"
Exit Function
End If
End If
End If
Next
End If
Next
KanaCheck = True
End Function
</script>
</head>
<body>
<form name="frm1" method="post">
<input type="text" name="txt1" onblur="KanaCheck('txt1')">
<input type="text" name="txt2" onblur="KanaCheck('txt2')">
<input type="text" name="txt3" onblur="KanaCheck('txt3')">
</form>
</body>
</html>

ちょっと面倒なやり方ですが、以下の様なものはいかがでしょう?
テキストボックスのonblurイベント時にVBScriptでチェックしています。

----サンプル-----
<html>
<head>
<title>半角カナチェック</title>
<script language="vbscript">
Function KanaCheck(strTarget)
Dim obj, i, strChar, intAscBuff
For Each obj in frm1
If InStr(obj.name, strTarget) > 0 then
For i = 1 To Len(obj.value)
strChar = Mid(obj.value, i, 1)
intAscBuff = Asc(strChar)
If intAscBuff < Asc("ア") Or intA...続きを読む


おすすめ情報