ddandyy
- 浏览: 211589 次
- 性别:
- 来自: 目前上海
-
最新评论
-
bluemusic：
看到数据源和配置了一半的事务...
使用JOTM做数据库连接池 -
阿浊I：
试了，不行，不知道为什么
读得是60M的文件
read file to String -
herowzz：
冠军是那个2号吗？
10号看起来不错。。。
第１２回全日本国民的美少女コンテスト -
ddandyy：
第１２回全日本国民的美少女コンテスト -
yyanddd：
...
第１２回全日本国民的美少女コンテスト
public static String halfToFullWidth(Object halfWidthObj) throws ConfigurationException {
String halfStr = "";
StringBuffer fullStr = new StringBuffer();
if (null == halfWidthObj) {
return "";
}
else {
halfStr = halfWidthObj.toString();
}
getConfig();
// half2fullファイルから全角文字を取得する
for (int i = 0; i < halfStr.length(); i++) {
char indexChr = halfStr.charAt(i);
if ((" ").equals(String.valueOf(indexChr))) {
fullStr.append("\u3000");
continue;
}
if (("=").equals(String.valueOf(indexChr))) {
fullStr.append("\uff1d");
continue;
}
if (("#").equals(String.valueOf(indexChr))) {
fullStr.append("\uff03");
continue;
}
String fullStrOne = (String) config.getProperty(String.valueOf(indexChr));
if (i < halfStr.length() - 1) {
String fullStrTwo = (String) config.getProperty(String.valueOf(indexChr)+String.valueOf(halfStr.charAt(i+1)));
if (fullStrTwo != null) {
fullStrOne = fullStrTwo;
i++;
}
}
if (null != fullStrOne && !("").equals(fullStrOne)) {
fullStr.append(fullStrOne);
}
else {
fullStr.append(String.valueOf(indexChr));
}
}
return fullStr.toString();
}
以下JS来自 http://www.trickpalace.net/tools/width.htm
引用
<HTML>
<!--***************************************************************************
TrickPalace
全角⇔半角変換 - string tools - tools - TrickPalace
Copyright(C) 2002 Wraith. All rights reserved.
Generated by PalaceMaster.
****************************************************************************-->
<!--Tab幅を４文字に設定して表示させてください。-->
<HEAD>
<TITLE>全角⇔半角変換 - string tools - tools - TrickPalace</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=shift_jis">
<META name="generator" content="PalaceMaster">
<META name="author" content="Wraith the Trickster">
<META name="copyright" content="Copyright(C) 2002 Wraith the Trickster">
<LINK rel="StyleSheet" type="text/css" href="/palace.css">
<!--[if IE]><LINK rel="StyleSheet" type="text/css" href="/palacex.css" media="screen"><![endif]-->
</HEAD>
<BODY><A name="Head"></A>
<!--***************************************************************************
Header Part
****************************************************************************-->
<DIV class="header">
<A class="title" href="/">TrickPalace</A>
<OL class="location"><LI><A href="/">http://www.trickpalace.net/</A></LI><LI><A href="/tools/">tools/</A></LI><LI>width.htm</LI></OL>
</DIV>
<!--***************************************************************************
Body Part
****************************************************************************-->
<DIV class="body">
<H1>string tools</H1>
<H2>全角⇔半角変換</H2>
<SCRIPT language="JavaScript"><!--
// --></SCRIPT>
<SCRIPT language="VBScript"><!--
' 全角半角変換用文字列定数
Const FullKana = "。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜"
Const HalfKana = "｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ"
Const FullKana2 = "ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ"
Const HalfKana2 = "ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ"
Const FullAlphabet = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
Const HalfAlphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Const FullNumber = "０１２３４５６７８９"
Const HalfNumber = "0123456789"
Const FullSymbol = " ！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～"
Const HalfSymbol = " !""#$%&'()*+,-./:;<=>?@[\]^_`{|}~"
' 大文字小文字変換用文字列定数
Const UpperCase = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const LowerCase = "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚabcdefghijklmnopqrstuvwxyz"
' ひらがなカタカナ変換用文字列定数
Const HiraKana = "をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑ"
Const HiraKana2 = "がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ"
Const HiraKana3 = "う゛"
Const KataKana = "ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワンヰヱ"
Const KataKana2 = "ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ"
Const KataKana3 = "ヴ"
Const KataKana4 = "ｦｧｨｩｪｫｬｭｮｯｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ"
Const KataKana5 = "ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ"
Function TranslateString(OriginalString, strSource, strDestination)
Dim strResult
strResult = OriginalString
Dim nLength
nLength = Len(strSource)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(strSource, i, 1), Mid(strDestination, i, 1))
Next
TranslateString = strResult
End Function
Function EncodeWKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkWKana.checked Then
strResult = TranslateString(strResult, FullKana, HalfKana)
Dim nLength
nLength = Len(FullKana2)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(FullKana2, i, 1), Mid(HalfKana2, ((i -1) *2) +1, 2))
Next
End If
EncodeWKana = strResult
End Function
Function EncodeWAlphabet(OriginalString)
Dim strResult
strResult = OriginalString
If chkWAlphabet.checked Then
strResult = TranslateString(strResult, FullAlphabet, HalfAlphabet)
End If
EncodeWAlphabet = strResult
End Function
Function EncodeWNumber(OriginalString)
Dim strResult
strResult = OriginalString
If chkWNumber.checked Then
strResult = TranslateString(strResult, FullNumber, HalfNumber)
End If
EncodeWNumber = strResult
End Function
Function EncodeWSymbol(OriginalString)
Dim strResult
strResult = OriginalString
If chkWSymbol.checked Then
strResult = TranslateString(strResult, FullSymbol, HalfSymbol)
End If
EncodeWSymbol = strResult
End Function
Function EncodeCase(OriginalString)
Dim strResult
strResult = OriginalString
If chkCase.checked Then
strResult = TranslateString(strResult, UpperCase, LowerCase)
End If
EncodeCase = strResult
End Function
Function EncodeKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkKana.checked Then
strResult = Replace(strResult, HiraKana3, KanaKana3)
strResult = TranslateString(strResult, HiraKana, KataKana)
strResult = TranslateString(strResult, HiraKana2, KataKana2)
End If
EncodeKana = strResult
End Function
Function DecodeWKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkWKana.checked Then
Dim nLength
nLength = Len(FullKana2)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(HalfKana2, ((i -1) *2) +1, 2), Mid(FullKana2, i, 1))
Next
strResult = TranslateString(strResult, HalfKana, FullKana)
End If
DecodeWKana = strResult
End Function
Function DecodeWAlphabet(OriginalString)
Dim strResult
strResult = OriginalString
If chkWAlphabet.checked Then
strResult = TranslateString(strResult, HalfAlphabet, FullAlphabet)
End If
DecodeWAlphabet = strResult
End Function
Function DecodeWNumber(OriginalString)
Dim strResult
strResult = OriginalString
If chkWNumber.checked Then
strResult = TranslateString(strResult, HalfNumber, FullNumber)
End If
DecodeWNumber = strResult
End Function
Function DecodeWSymbol(OriginalString)
Dim strResult
strResult = OriginalString
If chkWSymbol.checked Then
strResult = TranslateString(strResult, HalfSymbol, FullSymbol)
End If
DecodeWSymbol = strResult
End Function
Function DecodeCase(OriginalString)
Dim strResult
strResult = OriginalString
If chkCase.checked Then
strResult = TranslateString(strResult, LowerCase, UpperCase)
End If
DecodeCase = strResult
End Function
Function DecodeKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkKana.checked Then
Dim nLength
nLength = Len(HiraKana2)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(KataKana5, ((i -1) *2) +1, 2), Mid(HiraKana2, i, 1))
Next
strResult = TranslateString(strResult, KataKana, HiraKana)
strResult = TranslateString(strResult, KataKana2, HiraKana2)
strResult = Replace(strResult, KanaKana3, HiraKana3)
strResult = TranslateString(strResult, KataKana4, HiraKana)
End If
DecodeKana = strResult
End Function
Function EncodeString(OriginalString)
Dim strResult
strResult = OriginalString
strResult = EncodeCase(strResult)
strResult = EncodeKana(strResult)
strResult = EncodeWKana(strResult)
strResult = EncodeWAlphabet(strResult)
strResult = EncodeWNumber(strResult)
strResult = EncodeWSymbol(strResult)
EncodeString = strResult
End Function
Function DecodeString(OriginalString)
Dim strResult
strResult = OriginalString
strResult = DecodeWKana(strResult)
strResult = DecodeWAlphabet(strResult)
strResult = DecodeWNumber(strResult)
strResult = DecodeWSymbol(strResult)
strResult = DecodeCase(strResult)
strResult = DecodeKana(strResult)
DecodeString = strResult
End Function
' --></SCRIPT>
<DIV id="divExchange" style="display:none"></DIV>
<TABLE width="470" align="CENTER">
<TR>
<TD colspan="2">option : </TD>
</TR>
<TR>
<TD colspan="2">
<INPUT TYPE="CHECKBOX" id="chkWKana" checked><label for="chkWKana">カタカナ</label>
<INPUT TYPE="CHECKBOX" id="chkWAlphabet" checked><label for="chkWAlphabet">Alphabet</label>
<INPUT TYPE="CHECKBOX" id="chkWNumber" checked><label for="chkWNumber">数字</label>
<INPUT TYPE="CHECKBOX" id="chkWSymbol" checked><label for="chkWSymbol">記号</label><BR>
<INPUT TYPE="CHECKBOX" id="chkCase"><label for="chkCase">大文字⇔小文字</label>
<INPUT TYPE="CHECKBOX" id="chkKana"><label for="chkKana">ひらがな⇔カタカナ</label>
</TD>
</TR>
<TR>
<TD colspan="2">全角文字列 : </TD>
</TR>
<TR>
<TD colspan="2"><TEXTAREA id="txtDecode" class="TEXT" style="{width:100%;height:120px}" onPropertyChange="btnEscape.disabled=0==txtDecode.value.length">
。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜
｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
０１２３４５６７８９
0123456789
！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～
!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~
をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑ
がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ
う゛
ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワンヰヱ
ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ヴ
ｦｧｨｩｪｫｬｭｮｯｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ
ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
</TEXTAREA></TD>
</TR>
<TR>
<TD><BUTTON id="btnEscape" onClick="txtEncode.value=EncodeString(txtDecode.value);" style="width:100%">▼ 全角→半角変換 ▼</BUTTON></TD>
<TD><BUTTON id="btnUnescape" onClick="txtDecode.value=DecodeString(txtEncode.value);" style="width:100%">▲ 半角→全角変換 ▲</BUTTON></TD>
</TR>
<TR>
<TD colspan="2">半角文字列 : </TD>
</TR>
<TR>
<TD colspan="2"><TEXTAREA id="txtEncode" class="TEXT" style="{width:100%;height:120px}" onPropertyChange="btnUnescape.disabled=0==txtEncode.value.length"></TEXTAREA></TD>
</TR>
</TABLE>
</DIV>
<!--***************************************************************************
Footer Part
****************************************************************************-->
<DIV class="footer">
<A class="title" href="/">TrickPalace</A>
<OL class="location"><LI><A href="/">http://www.trickpalace.net/</A></LI><LI><A href="/tools/">tools/</A></LI><LI>width.htm</LI></OL>
</DIV>
</BODY>
<!--***************************************************************************
□■□■ Wraith the Trickster □■□■
■□■□ ～I'll go with heaven's advantage and fool's wisdom.～ ■□■□
****************************************************************************-->
</HTML>
<!--***************************************************************************
TrickPalace
全角⇔半角変換 - string tools - tools - TrickPalace
Copyright(C) 2002 Wraith. All rights reserved.
Generated by PalaceMaster.
****************************************************************************-->
<!--Tab幅を４文字に設定して表示させてください。-->
<HEAD>
<TITLE>全角⇔半角変換 - string tools - tools - TrickPalace</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=shift_jis">
<META name="generator" content="PalaceMaster">
<META name="author" content="Wraith the Trickster">
<META name="copyright" content="Copyright(C) 2002 Wraith the Trickster">
<LINK rel="StyleSheet" type="text/css" href="/palace.css">
<!--[if IE]><LINK rel="StyleSheet" type="text/css" href="/palacex.css" media="screen"><![endif]-->
</HEAD>
<BODY><A name="Head"></A>
<!--***************************************************************************
Header Part
****************************************************************************-->
<DIV class="header">
<A class="title" href="/">TrickPalace</A>
<OL class="location"><LI><A href="/">http://www.trickpalace.net/</A></LI><LI><A href="/tools/">tools/</A></LI><LI>width.htm</LI></OL>
</DIV>
<!--***************************************************************************
Body Part
****************************************************************************-->
<DIV class="body">
<H1>string tools</H1>
<H2>全角⇔半角変換</H2>
<SCRIPT language="JavaScript"><!--
// --></SCRIPT>
<SCRIPT language="VBScript"><!--
' 全角半角変換用文字列定数
Const FullKana = "。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜"
Const HalfKana = "｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ"
Const FullKana2 = "ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ"
Const HalfKana2 = "ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ"
Const FullAlphabet = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
Const HalfAlphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Const FullNumber = "０１２３４５６７８９"
Const HalfNumber = "0123456789"
Const FullSymbol = " ！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～"
Const HalfSymbol = " !""#$%&'()*+,-./:;<=>?@[\]^_`{|}~"
' 大文字小文字変換用文字列定数
Const UpperCase = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const LowerCase = "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚabcdefghijklmnopqrstuvwxyz"
' ひらがなカタカナ変換用文字列定数
Const HiraKana = "をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑ"
Const HiraKana2 = "がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ"
Const HiraKana3 = "う゛"
Const KataKana = "ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワンヰヱ"
Const KataKana2 = "ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ"
Const KataKana3 = "ヴ"
Const KataKana4 = "ｦｧｨｩｪｫｬｭｮｯｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ"
Const KataKana5 = "ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ"
Function TranslateString(OriginalString, strSource, strDestination)
Dim strResult
strResult = OriginalString
Dim nLength
nLength = Len(strSource)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(strSource, i, 1), Mid(strDestination, i, 1))
Next
TranslateString = strResult
End Function
Function EncodeWKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkWKana.checked Then
strResult = TranslateString(strResult, FullKana, HalfKana)
Dim nLength
nLength = Len(FullKana2)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(FullKana2, i, 1), Mid(HalfKana2, ((i -1) *2) +1, 2))
Next
End If
EncodeWKana = strResult
End Function
Function EncodeWAlphabet(OriginalString)
Dim strResult
strResult = OriginalString
If chkWAlphabet.checked Then
strResult = TranslateString(strResult, FullAlphabet, HalfAlphabet)
End If
EncodeWAlphabet = strResult
End Function
Function EncodeWNumber(OriginalString)
Dim strResult
strResult = OriginalString
If chkWNumber.checked Then
strResult = TranslateString(strResult, FullNumber, HalfNumber)
End If
EncodeWNumber = strResult
End Function
Function EncodeWSymbol(OriginalString)
Dim strResult
strResult = OriginalString
If chkWSymbol.checked Then
strResult = TranslateString(strResult, FullSymbol, HalfSymbol)
End If
EncodeWSymbol = strResult
End Function
Function EncodeCase(OriginalString)
Dim strResult
strResult = OriginalString
If chkCase.checked Then
strResult = TranslateString(strResult, UpperCase, LowerCase)
End If
EncodeCase = strResult
End Function
Function EncodeKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkKana.checked Then
strResult = Replace(strResult, HiraKana3, KanaKana3)
strResult = TranslateString(strResult, HiraKana, KataKana)
strResult = TranslateString(strResult, HiraKana2, KataKana2)
End If
EncodeKana = strResult
End Function
Function DecodeWKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkWKana.checked Then
Dim nLength
nLength = Len(FullKana2)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(HalfKana2, ((i -1) *2) +1, 2), Mid(FullKana2, i, 1))
Next
strResult = TranslateString(strResult, HalfKana, FullKana)
End If
DecodeWKana = strResult
End Function
Function DecodeWAlphabet(OriginalString)
Dim strResult
strResult = OriginalString
If chkWAlphabet.checked Then
strResult = TranslateString(strResult, HalfAlphabet, FullAlphabet)
End If
DecodeWAlphabet = strResult
End Function
Function DecodeWNumber(OriginalString)
Dim strResult
strResult = OriginalString
If chkWNumber.checked Then
strResult = TranslateString(strResult, HalfNumber, FullNumber)
End If
DecodeWNumber = strResult
End Function
Function DecodeWSymbol(OriginalString)
Dim strResult
strResult = OriginalString
If chkWSymbol.checked Then
strResult = TranslateString(strResult, HalfSymbol, FullSymbol)
End If
DecodeWSymbol = strResult
End Function
Function DecodeCase(OriginalString)
Dim strResult
strResult = OriginalString
If chkCase.checked Then
strResult = TranslateString(strResult, LowerCase, UpperCase)
End If
DecodeCase = strResult
End Function
Function DecodeKana(OriginalString)
Dim strResult
strResult = OriginalString
If chkKana.checked Then
Dim nLength
nLength = Len(HiraKana2)
Dim i
For i = 1 To nLength
strResult = Replace(strResult, Mid(KataKana5, ((i -1) *2) +1, 2), Mid(HiraKana2, i, 1))
Next
strResult = TranslateString(strResult, KataKana, HiraKana)
strResult = TranslateString(strResult, KataKana2, HiraKana2)
strResult = Replace(strResult, KanaKana3, HiraKana3)
strResult = TranslateString(strResult, KataKana4, HiraKana)
End If
DecodeKana = strResult
End Function
Function EncodeString(OriginalString)
Dim strResult
strResult = OriginalString
strResult = EncodeCase(strResult)
strResult = EncodeKana(strResult)
strResult = EncodeWKana(strResult)
strResult = EncodeWAlphabet(strResult)
strResult = EncodeWNumber(strResult)
strResult = EncodeWSymbol(strResult)
EncodeString = strResult
End Function
Function DecodeString(OriginalString)
Dim strResult
strResult = OriginalString
strResult = DecodeWKana(strResult)
strResult = DecodeWAlphabet(strResult)
strResult = DecodeWNumber(strResult)
strResult = DecodeWSymbol(strResult)
strResult = DecodeCase(strResult)
strResult = DecodeKana(strResult)
DecodeString = strResult
End Function
' --></SCRIPT>
<DIV id="divExchange" style="display:none"></DIV>
<TABLE width="470" align="CENTER">
<TR>
<TD colspan="2">option : </TD>
</TR>
<TR>
<TD colspan="2">
<INPUT TYPE="CHECKBOX" id="chkWKana" checked><label for="chkWKana">カタカナ</label>
<INPUT TYPE="CHECKBOX" id="chkWAlphabet" checked><label for="chkWAlphabet">Alphabet</label>
<INPUT TYPE="CHECKBOX" id="chkWNumber" checked><label for="chkWNumber">数字</label>
<INPUT TYPE="CHECKBOX" id="chkWSymbol" checked><label for="chkWSymbol">記号</label><BR>
<INPUT TYPE="CHECKBOX" id="chkCase"><label for="chkCase">大文字⇔小文字</label>
<INPUT TYPE="CHECKBOX" id="chkKana"><label for="chkKana">ひらがな⇔カタカナ</label>
</TD>
</TR>
<TR>
<TD colspan="2">全角文字列 : </TD>
</TR>
<TR>
<TD colspan="2"><TEXTAREA id="txtDecode" class="TEXT" style="{width:100%;height:120px}" onPropertyChange="btnEscape.disabled=0==txtDecode.value.length">
。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜
｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
０１２３４５６７８９
0123456789
！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～
!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~
をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑ
がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ
う゛
ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワンヰヱ
ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ヴ
ｦｧｨｩｪｫｬｭｮｯｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ
ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
</TEXTAREA></TD>
</TR>
<TR>
<TD><BUTTON id="btnEscape" onClick="txtEncode.value=EncodeString(txtDecode.value);" style="width:100%">▼ 全角→半角変換 ▼</BUTTON></TD>
<TD><BUTTON id="btnUnescape" onClick="txtDecode.value=DecodeString(txtEncode.value);" style="width:100%">▲ 半角→全角変換 ▲</BUTTON></TD>
</TR>
<TR>
<TD colspan="2">半角文字列 : </TD>
</TR>
<TR>
<TD colspan="2"><TEXTAREA id="txtEncode" class="TEXT" style="{width:100%;height:120px}" onPropertyChange="btnUnescape.disabled=0==txtEncode.value.length"></TEXTAREA></TD>
</TR>
</TABLE>
</DIV>
<!--***************************************************************************
Footer Part
****************************************************************************-->
<DIV class="footer">
<A class="title" href="/">TrickPalace</A>
<OL class="location"><LI><A href="/">http://www.trickpalace.net/</A></LI><LI><A href="/tools/">tools/</A></LI><LI>width.htm</LI></OL>
</DIV>
</BODY>
<!--***************************************************************************
□■□■ Wraith the Trickster □■□■
■□■□ ～I'll go with heaven's advantage and fool's wisdom.～ ■□■□
****************************************************************************-->
</HTML>
分享到：
发表评论
-
sql server 死锁
2009-11-30 16:41 0查询连接该库的进程中所否被锁定 select * from ... -
oracle 10 g 回收站相关
2009-07-04 11:54 1273查看被drop的表 SELECT * FROM user_re ... -
list中map里数字合计
2008-10-28 14:03 1847多年之前写的 突然翻到了 留念.......... ... -
ORACLE数据库中分组字符串相加
2008-09-16 14:10 6998来自 http://blog.oracle.com.cn/in ... -
oracle查看被锁的表和解锁
2007-09-27 15:19 15203查看被锁的表 select p.spid,a.seria ... -
常用数据库JDBC连接写法
2007-03-28 17:36 4061引用 1. MySQL(http://www.mysql. ... -
Oracle关于时间/日期的操作
2007-03-13 13:10 7184引用 Oracle关于时间/日期的操作 1.日期时间间 ... -
ORACLE SQL
2007-03-07 11:34 5447引用ORACLE的简单介绍 ORACLE公司是一家提供综合技 ... -
数字金额大小写转换之存储过程
2007-02-13 10:45 3902来自：http://www.knowsky.com/34406 ... -
SQLServer和Oracle的常用函数对比
2007-02-13 10:44 3573来自：http://www.knowsky.com/34405 ... -
使用JOTM做数据库连接池
2006-11-23 12:57 6241<bean id="jotm" ... -
发送邮件
2006-11-23 12:49 6660import java.util.Properties; ... -
判断一个数字是否在一个数组中
2006-11-23 12:44 4576两种方法 1。在一个数组中 int[] aa = ne ... -
得到方法的调用者
2006-11-23 12:42 3589来自 javaeye public static Stri ... -
打印session
2006-11-23 12:41 3789很久以前弄的了 那时候还不会debug 现在嘛..... ... -
字符串转码
2006-11-23 12:38 5841这个是好久以前留下来的 现在回头一看 实在是....... ... -
深度clone
2006-11-23 12:36 1744其中的this为要clone对象 public ... -
英文句倒置
2006-11-23 12:35 1728来自 javaeye import java.util.S ... -
validwhen
2006-11-23 12:03 1939通过Struts 1.2提供的validwhen 验证器可以轻 ... -
国际标准时间转换
2006-11-23 11:57 3194来自：http://www.hellohiro.com/tim ...
相关推荐
半角全角字符转换函数 收藏 public string ToSBC(string input) { //半角转全角： char[] c=input.ToCharArray(); for (int i = 0; i ; i++) { if (c[i]==32) { c[i]=(char)12288; continue; }...
C#365-半角全角转换源代码
通过该函数可自动实现输入字符半角全角进行转换。
半角全角转换.zip不错的C#WinForm实例源码适合研究学习技术半角全角转换.zip不错的C#WinForm实例源码适合研究学习技术 1.适合学生做毕业设计参考模板。 2.适合程序员学习开发研究用 3.适合小公司做项目参考技术使用...
C# 半角全角转换 实例源码（系统操作）
c#半角全角转换源码.rar
全角半角字符互相转换工具，不能批量转换，能一次次转换
遇到过中文输入法的半角自动切换成全角的问题，其实这是Framework2.0的一个bug，这个补丁程序将会解决您的烦恼。
软件介绍: 能够转换文件、转换剪贴板中的文字字符到目标格式；中文简体字/繁体字转换选项：一、不转换；...半角/全角字符转换：一、不转换；二、将半角字符转换为全角字符；三、将全角字符转换为半角字符；
半角与全角字符的转换
自然语言处理中的中文半角全角转换代码，可以用来自然语言
1.日文转UTF-8 Iconv.new(‘cp932’, ‘utf-8’)与...半角全角转换 看下面的代码： require “jcode” $cov.iconv(year.to_s.tr(‘0-9’, ‘０-９’) + ‘年’ + month.to_s.tr(‘0-9’, ‘０-９’) + ‘月度作業報告書
免责声明：资料部分来源于合法的互联网渠道收集和整理，部分自己学习积累成果，供大家学习参考与交流。收取的费用仅用于收集和整理资料耗费时间的酬劳。 本人尊重原创作者或出版方，资料版权归原作者或出版方所有，...
全角转半角，半角转全角，判断字符是否为全角 全角转半角，半角转全角，判断字符是否为全角
数字半角与全角转换.xlsx源码EXCEL VBA宏编程xlsx实例代码下载数字半角与全角转换.xlsx源码EXCEL VBA宏编程xlsx实例代码下载数字半角与全角转换.xlsx源码EXCEL VBA宏编程xlsx实例代码下载数字半角与全角转换.xlsx...
全角和半角的区别.docx
对postgresql数据库中不规则的数据批量处理查询，有些是全角的，需要转换查询，匹配，可以使用这个方法postgres全角转半角函数.txt
代码如下:///全角空格为12288，半角空格为32 ///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248 //半角转换为全角函数 function ToDBC(txtstring) { var tmp = “”; for(var i=0;i<txt...
C++全角半角字符转换
asp.net下半角和全角字符转换工具实现代码