asp (javascript) 全角半角変換コード dbc2sbc_javascript スキル

asp全角半角変換関数
flag=-1の場合、半角→全角変換
flag=0の場合、半角→全角変換
flag=1の場合、全角→半角変換

コードをコピー コードは以下の通り:

<%
Function DBC2SBC(Str, flag)
Dim i, sStr
If Len(Str)DBC2SBC = ""
For i = 1 To Len(Str)
sStr = Asc(Mid(Str, i , 1))
ケースフラグを選択
Case -1
If sStr>0 And sStrDBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) - 23680)
Else
DBC2SBC = DBC2SBC & Mid(Str, i, 1)
End If
Case 0
If sStr>0 And sStrDBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) -23680)
Else
DBC2SBC = DBC2SBC & Chr(Asc(Mid(Str, i, 1)) 23680)
End If
Case 1
If sStr125 then
DBC2SBC = DBC2SBC & Chr( Asc(Mid(Str, i, 1)) 23680)
Else
DBC2SBC = DBC2SBC & Mid( Str, i, 1)
End If
End Select
Next
End関数
%>

JavaScript バージョン全角半角変換関数

コードをコピー コードは次のとおりです。

function dbc2sbc(sStr){
var dbc2sbc =
for (var i = 65281; i < ; 65375; i ) {
var re = new RegExp(String.fromCharCode(i), "g");
var va = String .fromCharCode(i - 65248); (re, va);
dbc2sbc = dbc2sbc.replace(/ /g, ' ');
return
}

共通関数 sbc2dbc()

コードをコピー コードは次のとおりです。

関数sbc2dbc(sStr){

var sbc2dbc = sStr;
for (var i = 33; i stringFromCharCode = String .fromCharCode(i); {
case "(":
case ")":
case "*":
case " ":
case " /":
case "\":
case "[":
case "]":
case "?":
case "$":
case "." :
case "^":
case "|":
stringFromCharCode = '\' stringFromCharCode;
デフォルト:
break;
}
var re = new RegExp( stringFromCharCode, "g"); String.fromCharCode(i 65248);
sbc2dbc = sbc2dbc.replace(re, va);
sbc2dbc = sbc2dbc.replace(/ / g, ' '); 🎜>}