<% '*************************************************** ' StrConvUpperCase '--------------------------------------------------- ' 用途 : StrConv(sInp,vbUpperCase) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvUpperCase(sInp) StrConvUpperCase = UCase(sInp) End Function '*************************************************** ' StrConvLowerCase '--------------------------------------------------- ' 用途 : StrConv(sInp,vbLowerCase) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvLowerCase(sInp) StrConvLowerCase = LCase(sInp) End Function '*************************************************** ' StrConvProperCase '--------------------------------------------------- ' 用途 : StrConv(sInp,vbProperCase) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvProperCase(sInp) Dim nPos Dim nSpc nPos = 1 Do While InStr(nPos, sInp, " ", 1) <> 0 nSpc = InStr(nPos, sInp, " ", 1) StrConvProperCase = StrConvProperCase & UCase(Mid(sInp, nPos, 1)) StrConvProperCase = StrConvProperCase & LCase(Mid(sInp, nPos + 1, nSpc - nPos)) nPos = nSpc + 1 Loop StrConvProperCase = StrConvProperCase & UCase(Mid(sInp, nPos, 1)) StrConvProperCase = StrConvProperCase & LCase(Mid(sInp, nPos + 1)) StrConvProperCase = StrConvProperCase End Function '*************************************************** ' StrConvWide '--------------------------------------------------- ' 用途 : StrConv(s,vbWide) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvWide(s) Dim nCnt Dim nLen Dim sChr Dim sMud s = "" & s nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("゙゚", sMud) Then sChr = sChr & sMud nCnt = nCnt + 1 End If Select Case sChr Case " " StrConvWide = StrConvWide & " " Case "!" StrConvWide = StrConvWide & "!" Case """" StrConvWide = StrConvWide & "W" Case "#" StrConvWide = StrConvWide & "#" Case "$" StrConvWide = StrConvWide & "$" Case "%" StrConvWide = StrConvWide & "%" Case "&" StrConvWide = StrConvWide & "&" Case "'" StrConvWide = StrConvWide & "V" Case "(" StrConvWide = StrConvWide & "(" Case ")" StrConvWide = StrConvWide & ")" Case "*" StrConvWide = StrConvWide & "*" Case "+" StrConvWide = StrConvWide & "+" Case "," StrConvWide = StrConvWide & "," Case "-" StrConvWide = StrConvWide & "−" Case "." StrConvWide = StrConvWide & "." Case "/" StrConvWide = StrConvWide & "/" Case "0" StrConvWide = StrConvWide & "0" Case "1" StrConvWide = StrConvWide & "1" Case "2" StrConvWide = StrConvWide & "2" Case "3" StrConvWide = StrConvWide & "3" Case "4" StrConvWide = StrConvWide & "4" Case "5" StrConvWide = StrConvWide & "5" Case "6" StrConvWide = StrConvWide & "6" Case "7" StrConvWide = StrConvWide & "7" Case "8" StrConvWide = StrConvWide & "8" Case "9" StrConvWide = StrConvWide & "9" Case ":" StrConvWide = StrConvWide & ":" Case ";" StrConvWide = StrConvWide & ";" Case "<" StrConvWide = StrConvWide & "<" Case "=" StrConvWide = StrConvWide & "=" Case ">" StrConvWide = StrConvWide & ">" Case "?" StrConvWide = StrConvWide & "?" Case "@" StrConvWide = StrConvWide & "@" Case "A" StrConvWide = StrConvWide & "A" Case "B" StrConvWide = StrConvWide & "B" Case "C" StrConvWide = StrConvWide & "C" Case "D" StrConvWide = StrConvWide & "D" Case "E" StrConvWide = StrConvWide & "E" Case "F" StrConvWide = StrConvWide & "F" Case "G" StrConvWide = StrConvWide & "G" Case "H" StrConvWide = StrConvWide & "H" Case "I" StrConvWide = StrConvWide & "I" Case "J" StrConvWide = StrConvWide & "J" Case "K" StrConvWide = StrConvWide & "K" Case "L" StrConvWide = StrConvWide & "L" Case "M" StrConvWide = StrConvWide & "M" Case "N" StrConvWide = StrConvWide & "N" Case "O" StrConvWide = StrConvWide & "O" Case "P" StrConvWide = StrConvWide & "P" Case "Q" StrConvWide = StrConvWide & "Q" Case "R" StrConvWide = StrConvWide & "R" Case "S" StrConvWide = StrConvWide & "S" Case "T" StrConvWide = StrConvWide & "T" Case "U" StrConvWide = StrConvWide & "U" Case "V" StrConvWide = StrConvWide & "V" Case "W" StrConvWide = StrConvWide & "W" Case "X" StrConvWide = StrConvWide & "X" Case "Y" StrConvWide = StrConvWide & "Y" Case "Z" StrConvWide = StrConvWide & "Z" Case "[" StrConvWide = StrConvWide & "[" Case "]" StrConvWide = StrConvWide & "]" Case "^" StrConvWide = StrConvWide & "^" Case "_" StrConvWide = StrConvWide & "_" Case "`" StrConvWide = StrConvWide & "`" Case "a" StrConvWide = StrConvWide & "a" Case "b" StrConvWide = StrConvWide & "b" Case "c" StrConvWide = StrConvWide & "c" Case "d" StrConvWide = StrConvWide & "d" Case "e" StrConvWide = StrConvWide & "e" Case "f" StrConvWide = StrConvWide & "f" Case "g" StrConvWide = StrConvWide & "g" Case "h" StrConvWide = StrConvWide & "h" Case "i" StrConvWide = StrConvWide & "i" Case "j" StrConvWide = StrConvWide & "j" Case "k" StrConvWide = StrConvWide & "k" Case "l" StrConvWide = StrConvWide & "l" Case "m" StrConvWide = StrConvWide & "m" Case "n" StrConvWide = StrConvWide & "n" Case "o" StrConvWide = StrConvWide & "o" Case "p" StrConvWide = StrConvWide & "p" Case "q" StrConvWide = StrConvWide & "q" Case "r" StrConvWide = StrConvWide & "r" Case "s" StrConvWide = StrConvWide & "s" Case "t" StrConvWide = StrConvWide & "t" Case "u" StrConvWide = StrConvWide & "u" Case "v" StrConvWide = StrConvWide & "v" Case "w" StrConvWide = StrConvWide & "w" Case "x" StrConvWide = StrConvWide & "x" Case "y" StrConvWide = StrConvWide & "y" Case "z" StrConvWide = StrConvWide & "z" Case "{" StrConvWide = StrConvWide & "{" Case "|" StrConvWide = StrConvWide & "|" Case "}" StrConvWide = StrConvWide & "}" Case "~" StrConvWide = StrConvWide & "〜" Case "。" StrConvWide = StrConvWide & "。" Case "「" StrConvWide = StrConvWide & "「" Case "」" StrConvWide = StrConvWide & "」" Case "、" StrConvWide = StrConvWide & "、" Case "・" StrConvWide = StrConvWide & "・" Case "ヲ" StrConvWide = StrConvWide & "ヲ" Case "ァ" StrConvWide = StrConvWide & "ァ" Case "ィ" StrConvWide = StrConvWide & "ィ" Case "ゥ" StrConvWide = StrConvWide & "ゥ" Case "ェ" StrConvWide = StrConvWide & "ェ" Case "ォ" StrConvWide = StrConvWide & "ォ" Case "ャ" StrConvWide = StrConvWide & "ャ" Case "ュ" StrConvWide = StrConvWide & "ュ" Case "ョ" StrConvWide = StrConvWide & "ョ" Case "ッ" StrConvWide = StrConvWide & "ッ" Case "ー" StrConvWide = StrConvWide & "ー" Case "ア" StrConvWide = StrConvWide & "ア" Case "イ" StrConvWide = StrConvWide & "イ" Case "ウ" StrConvWide = StrConvWide & "ウ" Case "ヴ" StrConvWide = StrConvWide & "ヴ" Case "エ" StrConvWide = StrConvWide & "エ" Case "オ" StrConvWide = StrConvWide & "オ" Case "カ" StrConvWide = StrConvWide & "カ" Case "ガ" StrConvWide = StrConvWide & "ガ" Case "キ" StrConvWide = StrConvWide & "キ" Case "ギ" StrConvWide = StrConvWide & "ギ" Case "ク" StrConvWide = StrConvWide & "ク" Case "グ" StrConvWide = StrConvWide & "グ" Case "ケ" StrConvWide = StrConvWide & "ケ" Case "ゲ" StrConvWide = StrConvWide & "ゲ" Case "コ" StrConvWide = StrConvWide & "コ" Case "ゴ" StrConvWide = StrConvWide & "ゴ" Case "サ" StrConvWide = StrConvWide & "サ" Case "ザ" StrConvWide = StrConvWide & "ザ" Case "シ" StrConvWide = StrConvWide & "シ" Case "ジ" StrConvWide = StrConvWide & "ジ" Case "ス" StrConvWide = StrConvWide & "ス" Case "ズ" StrConvWide = StrConvWide & "ズ" Case "セ" StrConvWide = StrConvWide & "セ" Case "ゼ" StrConvWide = StrConvWide & "ゼ" Case "ソ" StrConvWide = StrConvWide & "ソ" Case "ゾ" StrConvWide = StrConvWide & "ゾ" Case "タ" StrConvWide = StrConvWide & "タ" Case "ダ" StrConvWide = StrConvWide & "ダ" Case "チ" StrConvWide = StrConvWide & "チ" Case "ヂ" StrConvWide = StrConvWide & "ヂ" Case "ツ" StrConvWide = StrConvWide & "ツ" Case "ヅ" StrConvWide = StrConvWide & "ヅ" Case "テ" StrConvWide = StrConvWide & "テ" Case "デ" StrConvWide = StrConvWide & "デ" Case "ト" StrConvWide = StrConvWide & "ト" Case "ド" StrConvWide = StrConvWide & "ド" Case "ナ" StrConvWide = StrConvWide & "ナ" Case "ニ" StrConvWide = StrConvWide & "ニ" Case "ヌ" StrConvWide = StrConvWide & "ヌ" Case "ネ" StrConvWide = StrConvWide & "ネ" Case "ノ" StrConvWide = StrConvWide & "ノ" Case "ハ" StrConvWide = StrConvWide & "ハ" Case "バ" StrConvWide = StrConvWide & "バ" Case "パ" StrConvWide = StrConvWide & "パ" Case "ヒ" StrConvWide = StrConvWide & "ヒ" Case "ビ" StrConvWide = StrConvWide & "ビ" Case "ピ" StrConvWide = StrConvWide & "ピ" Case "フ" StrConvWide = StrConvWide & "フ" Case "ブ" StrConvWide = StrConvWide & "ブ" Case "プ" StrConvWide = StrConvWide & "プ" Case "ヘ" StrConvWide = StrConvWide & "ヘ" Case "ベ" StrConvWide = StrConvWide & "ベ" Case "ペ" StrConvWide = StrConvWide & "ペ" Case "ホ" StrConvWide = StrConvWide & "ホ" Case "ボ" StrConvWide = StrConvWide & "ボ" Case "ポ" StrConvWide = StrConvWide & "ポ" Case "マ" StrConvWide = StrConvWide & "マ" Case "ミ" StrConvWide = StrConvWide & "ミ" Case "ム" StrConvWide = StrConvWide & "ム" Case "メ" StrConvWide = StrConvWide & "メ" Case "モ" StrConvWide = StrConvWide & "モ" Case "ヤ" StrConvWide = StrConvWide & "ヤ" Case "ユ" StrConvWide = StrConvWide & "ユ" Case "ヨ" StrConvWide = StrConvWide & "ヨ" Case "ラ" StrConvWide = StrConvWide & "ラ" Case "リ" StrConvWide = StrConvWide & "リ" Case "ル" StrConvWide = StrConvWide & "ル" Case "レ" StrConvWide = StrConvWide & "レ" Case "ロ" StrConvWide = StrConvWide & "ロ" Case "ワ" StrConvWide = StrConvWide & "ワ" Case "ン" StrConvWide = StrConvWide & "ン" Case "゙" StrConvWide = StrConvWide & "゛" Case "゚" StrConvWide = StrConvWide & "゜" Case " " StrConvWide = StrConvWide & " " Case "!" StrConvWide = StrConvWide & "!" Case """" StrConvWide = StrConvWide & "W" Case "#" StrConvWide = StrConvWide & "#" Case "$" StrConvWide = StrConvWide & "$" Case "%" StrConvWide = StrConvWide & "%" Case "&" StrConvWide = StrConvWide & "&" Case "'" StrConvWide = StrConvWide & "V" Case "(" StrConvWide = StrConvWide & "(" Case ")" StrConvWide = StrConvWide & ")" Case "*" StrConvWide = StrConvWide & "*" Case "+" StrConvWide = StrConvWide & "+" Case "," StrConvWide = StrConvWide & "," Case "-" StrConvWide = StrConvWide & "−" Case "." StrConvWide = StrConvWide & "." Case "/" StrConvWide = StrConvWide & "/" Case "0" StrConvWide = StrConvWide & "0" Case "1" StrConvWide = StrConvWide & "1" Case "2" StrConvWide = StrConvWide & "2" Case "3" StrConvWide = StrConvWide & "3" Case "4" StrConvWide = StrConvWide & "4" Case "5" StrConvWide = StrConvWide & "5" Case "6" StrConvWide = StrConvWide & "6" Case "7" StrConvWide = StrConvWide & "7" Case "8" StrConvWide = StrConvWide & "8" Case "9" StrConvWide = StrConvWide & "9" Case ":" StrConvWide = StrConvWide & ":" Case ";" StrConvWide = StrConvWide & ";" Case "<" StrConvWide = StrConvWide & "<" Case "=" StrConvWide = StrConvWide & "=" Case ">" StrConvWide = StrConvWide & ">" Case "?" StrConvWide = StrConvWide & "?" Case "@" StrConvWide = StrConvWide & "@" Case "A" StrConvWide = StrConvWide & "A" Case "B" StrConvWide = StrConvWide & "B" Case "C" StrConvWide = StrConvWide & "C" Case "D" StrConvWide = StrConvWide & "D" Case "E" StrConvWide = StrConvWide & "E" Case "F" StrConvWide = StrConvWide & "F" Case "G" StrConvWide = StrConvWide & "G" Case "H" StrConvWide = StrConvWide & "H" Case "I" StrConvWide = StrConvWide & "I" Case "J" StrConvWide = StrConvWide & "J" Case "K" StrConvWide = StrConvWide & "K" Case "L" StrConvWide = StrConvWide & "L" Case "M" StrConvWide = StrConvWide & "M" Case "N" StrConvWide = StrConvWide & "N" Case "O" StrConvWide = StrConvWide & "O" Case "P" StrConvWide = StrConvWide & "P" Case "Q" StrConvWide = StrConvWide & "Q" Case "R" StrConvWide = StrConvWide & "R" Case "S" StrConvWide = StrConvWide & "S" Case "T" StrConvWide = StrConvWide & "T" Case "U" StrConvWide = StrConvWide & "U" Case "V" StrConvWide = StrConvWide & "V" Case "W" StrConvWide = StrConvWide & "W" Case "X" StrConvWide = StrConvWide & "X" Case "Y" StrConvWide = StrConvWide & "Y" Case "Z" StrConvWide = StrConvWide & "Z" Case "[" StrConvWide = StrConvWide & "[" Case "]" StrConvWide = StrConvWide & "]" Case "^" StrConvWide = StrConvWide & "^" Case "_" StrConvWide = StrConvWide & "_" Case "`" StrConvWide = StrConvWide & "`" Case "a" StrConvWide = StrConvWide & "a" Case "b" StrConvWide = StrConvWide & "b" Case "c" StrConvWide = StrConvWide & "c" Case "d" StrConvWide = StrConvWide & "d" Case "e" StrConvWide = StrConvWide & "e" Case "f" StrConvWide = StrConvWide & "f" Case "g" StrConvWide = StrConvWide & "g" Case "h" StrConvWide = StrConvWide & "h" Case "i" StrConvWide = StrConvWide & "i" Case "j" StrConvWide = StrConvWide & "j" Case "k" StrConvWide = StrConvWide & "k" Case "l" StrConvWide = StrConvWide & "l" Case "m" StrConvWide = StrConvWide & "m" Case "n" StrConvWide = StrConvWide & "n" Case "o" StrConvWide = StrConvWide & "o" Case "p" StrConvWide = StrConvWide & "p" Case "q" StrConvWide = StrConvWide & "q" Case "r" StrConvWide = StrConvWide & "r" Case "s" StrConvWide = StrConvWide & "s" Case "t" StrConvWide = StrConvWide & "t" Case "u" StrConvWide = StrConvWide & "u" Case "v" StrConvWide = StrConvWide & "v" Case "w" StrConvWide = StrConvWide & "w" Case "x" StrConvWide = StrConvWide & "x" Case "y" StrConvWide = StrConvWide & "y" Case "z" StrConvWide = StrConvWide & "z" Case "{" StrConvWide = StrConvWide & "{" Case "|" StrConvWide = StrConvWide & "|" Case "}" StrConvWide = StrConvWide & "}" Case "~" StrConvWide = StrConvWide & "〜" Case "ゔ" StrConvWide = StrConvWide & "ヴ" Case "が" StrConvWide = StrConvWide & "が" Case "ぎ" StrConvWide = StrConvWide & "ぎ" Case "ぐ" StrConvWide = StrConvWide & "ぐ" Case "げ" StrConvWide = StrConvWide & "げ" Case "ご" StrConvWide = StrConvWide & "ご" Case "ざ" StrConvWide = StrConvWide & "ざ" Case "じ" StrConvWide = StrConvWide & "じ" Case "ず" StrConvWide = StrConvWide & "ず" Case "ぜ" StrConvWide = StrConvWide & "ぜ" Case "ぞ" StrConvWide = StrConvWide & "ぞ" Case "だ" StrConvWide = StrConvWide & "だ" Case "ぢ" StrConvWide = StrConvWide & "ぢ" Case "づ" StrConvWide = StrConvWide & "づ" Case "で" StrConvWide = StrConvWide & "で" Case "ど" StrConvWide = StrConvWide & "ど" Case "ば" StrConvWide = StrConvWide & "ば" Case "ぱ" StrConvWide = StrConvWide & "ぱ" Case "び" StrConvWide = StrConvWide & "び" Case "ぴ" StrConvWide = StrConvWide & "ぴ" Case "ぶ" StrConvWide = StrConvWide & "ぶ" Case "ぷ" StrConvWide = StrConvWide & "ぷ" Case "べ" StrConvWide = StrConvWide & "べ" Case "ぺ" StrConvWide = StrConvWide & "ぺ" Case "ぼ" StrConvWide = StrConvWide & "ぼ" Case "ぽ" StrConvWide = StrConvWide & "ぽ" Case "ヴ" StrConvWide = StrConvWide & "ヴ" Case "ガ" StrConvWide = StrConvWide & "ガ" Case "ギ" StrConvWide = StrConvWide & "ギ" Case "グ" StrConvWide = StrConvWide & "グ" Case "ゲ" StrConvWide = StrConvWide & "ゲ" Case "ゴ" StrConvWide = StrConvWide & "ゴ" Case "ザ" StrConvWide = StrConvWide & "ザ" Case "ジ" StrConvWide = StrConvWide & "ジ" Case "ズ" StrConvWide = StrConvWide & "ズ" Case "ゼ" StrConvWide = StrConvWide & "ゼ" Case "ゾ" StrConvWide = StrConvWide & "ゾ" Case "ダ" StrConvWide = StrConvWide & "ダ" Case "ヂ" StrConvWide = StrConvWide & "ヂ" Case "ヅ" StrConvWide = StrConvWide & "ヅ" Case "デ" StrConvWide = StrConvWide & "デ" Case "ド" StrConvWide = StrConvWide & "ド" Case "バ" StrConvWide = StrConvWide & "バ" Case "パ" StrConvWide = StrConvWide & "パ" Case "ビ" StrConvWide = StrConvWide & "ビ" Case "ピ" StrConvWide = StrConvWide & "ピ" Case "ブ" StrConvWide = StrConvWide & "ブ" Case "プ" StrConvWide = StrConvWide & "プ" Case "ベ" StrConvWide = StrConvWide & "ベ" Case "ペ" StrConvWide = StrConvWide & "ペ" Case "ボ" StrConvWide = StrConvWide & "ボ" Case "ポ" StrConvWide = StrConvWide & "ポ" Case "。" StrConvWide = StrConvWide & "。" Case "「" StrConvWide = StrConvWide & "「" Case "」" StrConvWide = StrConvWide & "」" Case "、" StrConvWide = StrConvWide & "、" Case "・" StrConvWide = StrConvWide & "・" Case "ヲ" StrConvWide = StrConvWide & "ヲ" Case "ァ" StrConvWide = StrConvWide & "ァ" Case "ィ" StrConvWide = StrConvWide & "ィ" Case "ゥ" StrConvWide = StrConvWide & "ゥ" Case "ェ" StrConvWide = StrConvWide & "ェ" Case "ォ" StrConvWide = StrConvWide & "ォ" Case "ャ" StrConvWide = StrConvWide & "ャ" Case "ュ" StrConvWide = StrConvWide & "ュ" Case "ョ" StrConvWide = StrConvWide & "ョ" Case "ッ" StrConvWide = StrConvWide & "ッ" Case "ー" StrConvWide = StrConvWide & "ー" Case "ア" StrConvWide = StrConvWide & "ア" Case "イ" StrConvWide = StrConvWide & "イ" Case "ウ" StrConvWide = StrConvWide & "ウ" Case "ヴ" StrConvWide = StrConvWide & "ヴ" Case "エ" StrConvWide = StrConvWide & "エ" Case "オ" StrConvWide = StrConvWide & "オ" Case "カ" StrConvWide = StrConvWide & "カ" Case "ガ" StrConvWide = StrConvWide & "ガ" Case "キ" StrConvWide = StrConvWide & "キ" Case "ギ" StrConvWide = StrConvWide & "ギ" Case "ク" StrConvWide = StrConvWide & "ク" Case "グ" StrConvWide = StrConvWide & "グ" Case "ケ" StrConvWide = StrConvWide & "ケ" Case "ゲ" StrConvWide = StrConvWide & "ゲ" Case "コ" StrConvWide = StrConvWide & "コ" Case "ゴ" StrConvWide = StrConvWide & "ゴ" Case "サ" StrConvWide = StrConvWide & "サ" Case "ザ" StrConvWide = StrConvWide & "ザ" Case "シ" StrConvWide = StrConvWide & "シ" Case "ジ" StrConvWide = StrConvWide & "ジ" Case "ス" StrConvWide = StrConvWide & "ス" Case "ズ" StrConvWide = StrConvWide & "ズ" Case "セ" StrConvWide = StrConvWide & "セ" Case "ゼ" StrConvWide = StrConvWide & "ゼ" Case "ソ" StrConvWide = StrConvWide & "ソ" Case "ゾ" StrConvWide = StrConvWide & "ゾ" Case "タ" StrConvWide = StrConvWide & "タ" Case "ダ" StrConvWide = StrConvWide & "ダ" Case "チ" StrConvWide = StrConvWide & "チ" Case "ヂ" StrConvWide = StrConvWide & "ヂ" Case "ツ" StrConvWide = StrConvWide & "ツ" Case "ヅ" StrConvWide = StrConvWide & "ヅ" Case "テ" StrConvWide = StrConvWide & "テ" Case "デ" StrConvWide = StrConvWide & "デ" Case "ト" StrConvWide = StrConvWide & "ト" Case "ド" StrConvWide = StrConvWide & "ド" Case "ナ" StrConvWide = StrConvWide & "ナ" Case "ニ" StrConvWide = StrConvWide & "ニ" Case "ヌ" StrConvWide = StrConvWide & "ヌ" Case "ネ" StrConvWide = StrConvWide & "ネ" Case "ノ" StrConvWide = StrConvWide & "ノ" Case "ハ" StrConvWide = StrConvWide & "ハ" Case "バ" StrConvWide = StrConvWide & "バ" Case "パ" StrConvWide = StrConvWide & "パ" Case "ヒ" StrConvWide = StrConvWide & "ヒ" Case "ビ" StrConvWide = StrConvWide & "ビ" Case "ピ" StrConvWide = StrConvWide & "ピ" Case "フ" StrConvWide = StrConvWide & "フ" Case "ブ" StrConvWide = StrConvWide & "ブ" Case "プ" StrConvWide = StrConvWide & "プ" Case "ヘ" StrConvWide = StrConvWide & "ヘ" Case "ベ" StrConvWide = StrConvWide & "ベ" Case "ペ" StrConvWide = StrConvWide & "ペ" Case "ホ" StrConvWide = StrConvWide & "ホ" Case "ボ" StrConvWide = StrConvWide & "ボ" Case "ポ" StrConvWide = StrConvWide & "ポ" Case "マ" StrConvWide = StrConvWide & "マ" Case "ミ" StrConvWide = StrConvWide & "ミ" Case "ム" StrConvWide = StrConvWide & "ム" Case "メ" StrConvWide = StrConvWide & "メ" Case "モ" StrConvWide = StrConvWide & "モ" Case "ヤ" StrConvWide = StrConvWide & "ヤ" Case "ユ" StrConvWide = StrConvWide & "ユ" Case "ヨ" StrConvWide = StrConvWide & "ヨ" Case "ラ" StrConvWide = StrConvWide & "ラ" Case "リ" StrConvWide = StrConvWide & "リ" Case "ル" StrConvWide = StrConvWide & "ル" Case "レ" StrConvWide = StrConvWide & "レ" Case "ロ" StrConvWide = StrConvWide & "ロ" Case "ワ" StrConvWide = StrConvWide & "ワ" Case "ン" StrConvWide = StrConvWide & "ン" Case "゙" StrConvWide = StrConvWide & "゛" Case "゚" StrConvWide = StrConvWide & "゜" Case Else StrConvWide = StrConvWide & sChr End Select Next End Function '*************************************************** ' StrConvNarrow '--------------------------------------------------- ' 用途 : StrConv(s,vbNarrow) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvNarrow(s) Dim nCnt Dim nLen Dim sChr Dim sMud s = "" & s nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("゙゚", sMud) Then sChr = sChr & sMud nCnt = nCnt + 1 End If Select Case sChr Case "・" StrConvNarrow = StrConvNarrow & "・" Case " " StrConvNarrow = StrConvNarrow & " " Case "、" StrConvNarrow = StrConvNarrow & "、" Case "。" StrConvNarrow = StrConvNarrow & "。" Case "," StrConvNarrow = StrConvNarrow & "," Case "." StrConvNarrow = StrConvNarrow & "." Case "・" StrConvNarrow = StrConvNarrow & "・" Case ":" StrConvNarrow = StrConvNarrow & ":" Case ";" StrConvNarrow = StrConvNarrow & ";" Case "?" StrConvNarrow = StrConvNarrow & "?" Case "!" StrConvNarrow = StrConvNarrow & "!" Case "゛" StrConvNarrow = StrConvNarrow & "゙" Case "゜" StrConvNarrow = StrConvNarrow & "゚" Case "`" StrConvNarrow = StrConvNarrow & "`" Case "^" StrConvNarrow = StrConvNarrow & "^" Case "_" StrConvNarrow = StrConvNarrow & "_" Case "ー" StrConvNarrow = StrConvNarrow & "ー" Case "/" StrConvNarrow = StrConvNarrow & "/" Case "〜" StrConvNarrow = StrConvNarrow & "~" Case "|" StrConvNarrow = StrConvNarrow & "|" Case "‘" StrConvNarrow = StrConvNarrow & "'" Case "’" StrConvNarrow = StrConvNarrow & "'" Case "“" StrConvNarrow = StrConvNarrow & """" Case "”" StrConvNarrow = StrConvNarrow & """" Case "(" StrConvNarrow = StrConvNarrow & "(" Case ")" StrConvNarrow = StrConvNarrow & ")" Case "[" StrConvNarrow = StrConvNarrow & "[" Case "]" StrConvNarrow = StrConvNarrow & "]" Case "{" StrConvNarrow = StrConvNarrow & "{" Case "}" StrConvNarrow = StrConvNarrow & "}" Case "「" StrConvNarrow = StrConvNarrow & "「" Case "」" StrConvNarrow = StrConvNarrow & "」" Case "+" StrConvNarrow = StrConvNarrow & "+" Case "−" StrConvNarrow = StrConvNarrow & "-" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "=" StrConvNarrow = StrConvNarrow & "=" Case "<" StrConvNarrow = StrConvNarrow & "<" Case ">" StrConvNarrow = StrConvNarrow & ">" Case "¥" StrConvNarrow = StrConvNarrow & "\" Case "$" StrConvNarrow = StrConvNarrow & "$" Case "%" StrConvNarrow = StrConvNarrow & "%" Case "#" StrConvNarrow = StrConvNarrow & "#" Case "&" StrConvNarrow = StrConvNarrow & "&" Case "*" StrConvNarrow = StrConvNarrow & "*" Case "@" StrConvNarrow = StrConvNarrow & "@" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "0" StrConvNarrow = StrConvNarrow & "0" Case "1" StrConvNarrow = StrConvNarrow & "1" Case "2" StrConvNarrow = StrConvNarrow & "2" Case "3" StrConvNarrow = StrConvNarrow & "3" Case "4" StrConvNarrow = StrConvNarrow & "4" Case "5" StrConvNarrow = StrConvNarrow & "5" Case "6" StrConvNarrow = StrConvNarrow & "6" Case "7" StrConvNarrow = StrConvNarrow & "7" Case "8" StrConvNarrow = StrConvNarrow & "8" Case "9" StrConvNarrow = StrConvNarrow & "9" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "A" StrConvNarrow = StrConvNarrow & "A" Case "B" StrConvNarrow = StrConvNarrow & "B" Case "C" StrConvNarrow = StrConvNarrow & "C" Case "D" StrConvNarrow = StrConvNarrow & "D" Case "E" StrConvNarrow = StrConvNarrow & "E" Case "F" StrConvNarrow = StrConvNarrow & "F" Case "G" StrConvNarrow = StrConvNarrow & "G" Case "H" StrConvNarrow = StrConvNarrow & "H" Case "I" StrConvNarrow = StrConvNarrow & "I" Case "J" StrConvNarrow = StrConvNarrow & "J" Case "K" StrConvNarrow = StrConvNarrow & "K" Case "L" StrConvNarrow = StrConvNarrow & "L" Case "M" StrConvNarrow = StrConvNarrow & "M" Case "N" StrConvNarrow = StrConvNarrow & "N" Case "O" StrConvNarrow = StrConvNarrow & "O" Case "P" StrConvNarrow = StrConvNarrow & "P" Case "Q" StrConvNarrow = StrConvNarrow & "Q" Case "R" StrConvNarrow = StrConvNarrow & "R" Case "S" StrConvNarrow = StrConvNarrow & "S" Case "T" StrConvNarrow = StrConvNarrow & "T" Case "U" StrConvNarrow = StrConvNarrow & "U" Case "V" StrConvNarrow = StrConvNarrow & "V" Case "W" StrConvNarrow = StrConvNarrow & "W" Case "X" StrConvNarrow = StrConvNarrow & "X" Case "Y" StrConvNarrow = StrConvNarrow & "Y" Case "Z" StrConvNarrow = StrConvNarrow & "Z" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "a" StrConvNarrow = StrConvNarrow & "a" Case "b" StrConvNarrow = StrConvNarrow & "b" Case "c" StrConvNarrow = StrConvNarrow & "c" Case "d" StrConvNarrow = StrConvNarrow & "d" Case "e" StrConvNarrow = StrConvNarrow & "e" Case "f" StrConvNarrow = StrConvNarrow & "f" Case "g" StrConvNarrow = StrConvNarrow & "g" Case "h" StrConvNarrow = StrConvNarrow & "h" Case "i" StrConvNarrow = StrConvNarrow & "i" Case "j" StrConvNarrow = StrConvNarrow & "j" Case "k" StrConvNarrow = StrConvNarrow & "k" Case "l" StrConvNarrow = StrConvNarrow & "l" Case "m" StrConvNarrow = StrConvNarrow & "m" Case "n" StrConvNarrow = StrConvNarrow & "n" Case "o" StrConvNarrow = StrConvNarrow & "o" Case "p" StrConvNarrow = StrConvNarrow & "p" Case "q" StrConvNarrow = StrConvNarrow & "q" Case "r" StrConvNarrow = StrConvNarrow & "r" Case "s" StrConvNarrow = StrConvNarrow & "s" Case "t" StrConvNarrow = StrConvNarrow & "t" Case "u" StrConvNarrow = StrConvNarrow & "u" Case "v" StrConvNarrow = StrConvNarrow & "v" Case "w" StrConvNarrow = StrConvNarrow & "w" Case "x" StrConvNarrow = StrConvNarrow & "x" Case "y" StrConvNarrow = StrConvNarrow & "y" Case "z" StrConvNarrow = StrConvNarrow & "z" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "ァ" StrConvNarrow = StrConvNarrow & "ァ" Case "ア" StrConvNarrow = StrConvNarrow & "ア" Case "ィ" StrConvNarrow = StrConvNarrow & "ィ" Case "イ" StrConvNarrow = StrConvNarrow & "イ" Case "ゥ" StrConvNarrow = StrConvNarrow & "ゥ" Case "ウ" StrConvNarrow = StrConvNarrow & "ウ" Case "ェ" StrConvNarrow = StrConvNarrow & "ェ" Case "エ" StrConvNarrow = StrConvNarrow & "エ" Case "ォ" StrConvNarrow = StrConvNarrow & "ォ" Case "オ" StrConvNarrow = StrConvNarrow & "オ" Case "カ" StrConvNarrow = StrConvNarrow & "カ" Case "ガ" StrConvNarrow = StrConvNarrow & "ガ" Case "キ" StrConvNarrow = StrConvNarrow & "キ" Case "ギ" StrConvNarrow = StrConvNarrow & "ギ" Case "ク" StrConvNarrow = StrConvNarrow & "ク" Case "グ" StrConvNarrow = StrConvNarrow & "グ" Case "ケ" StrConvNarrow = StrConvNarrow & "ケ" Case "ゲ" StrConvNarrow = StrConvNarrow & "ゲ" Case "コ" StrConvNarrow = StrConvNarrow & "コ" Case "ゴ" StrConvNarrow = StrConvNarrow & "ゴ" Case "サ" StrConvNarrow = StrConvNarrow & "サ" Case "ザ" StrConvNarrow = StrConvNarrow & "ザ" Case "シ" StrConvNarrow = StrConvNarrow & "シ" Case "ジ" StrConvNarrow = StrConvNarrow & "ジ" Case "ス" StrConvNarrow = StrConvNarrow & "ス" Case "ズ" StrConvNarrow = StrConvNarrow & "ズ" Case "セ" StrConvNarrow = StrConvNarrow & "セ" Case "ゼ" StrConvNarrow = StrConvNarrow & "ゼ" Case "ソ" StrConvNarrow = StrConvNarrow & "ソ" Case "ゾ" StrConvNarrow = StrConvNarrow & "ゾ" Case "タ" StrConvNarrow = StrConvNarrow & "タ" Case "ダ" StrConvNarrow = StrConvNarrow & "ダ" Case "チ" StrConvNarrow = StrConvNarrow & "チ" Case "ヂ" StrConvNarrow = StrConvNarrow & "ヂ" Case "ッ" StrConvNarrow = StrConvNarrow & "ッ" Case "ツ" StrConvNarrow = StrConvNarrow & "ツ" Case "ヅ" StrConvNarrow = StrConvNarrow & "ヅ" Case "テ" StrConvNarrow = StrConvNarrow & "テ" Case "デ" StrConvNarrow = StrConvNarrow & "デ" Case "ト" StrConvNarrow = StrConvNarrow & "ト" Case "ド" StrConvNarrow = StrConvNarrow & "ド" Case "ナ" StrConvNarrow = StrConvNarrow & "ナ" Case "ニ" StrConvNarrow = StrConvNarrow & "ニ" Case "ヌ" StrConvNarrow = StrConvNarrow & "ヌ" Case "ネ" StrConvNarrow = StrConvNarrow & "ネ" Case "ノ" StrConvNarrow = StrConvNarrow & "ノ" Case "ハ" StrConvNarrow = StrConvNarrow & "ハ" Case "バ" StrConvNarrow = StrConvNarrow & "バ" Case "パ" StrConvNarrow = StrConvNarrow & "パ" Case "ヒ" StrConvNarrow = StrConvNarrow & "ヒ" Case "ビ" StrConvNarrow = StrConvNarrow & "ビ" Case "ピ" StrConvNarrow = StrConvNarrow & "ピ" Case "フ" StrConvNarrow = StrConvNarrow & "フ" Case "ブ" StrConvNarrow = StrConvNarrow & "ブ" Case "プ" StrConvNarrow = StrConvNarrow & "プ" Case "ヘ" StrConvNarrow = StrConvNarrow & "ヘ" Case "ベ" StrConvNarrow = StrConvNarrow & "ベ" Case "ペ" StrConvNarrow = StrConvNarrow & "ペ" Case "ホ" StrConvNarrow = StrConvNarrow & "ホ" Case "ボ" StrConvNarrow = StrConvNarrow & "ボ" Case "ポ" StrConvNarrow = StrConvNarrow & "ポ" Case "マ" StrConvNarrow = StrConvNarrow & "マ" Case "ミ" StrConvNarrow = StrConvNarrow & "ミ" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "ム" StrConvNarrow = StrConvNarrow & "ム" Case "メ" StrConvNarrow = StrConvNarrow & "メ" Case "モ" StrConvNarrow = StrConvNarrow & "モ" Case "ャ" StrConvNarrow = StrConvNarrow & "ャ" Case "ヤ" StrConvNarrow = StrConvNarrow & "ヤ" Case "ュ" StrConvNarrow = StrConvNarrow & "ュ" Case "ユ" StrConvNarrow = StrConvNarrow & "ユ" Case "ョ" StrConvNarrow = StrConvNarrow & "ョ" Case "ヨ" StrConvNarrow = StrConvNarrow & "ヨ" Case "ラ" StrConvNarrow = StrConvNarrow & "ラ" Case "リ" StrConvNarrow = StrConvNarrow & "リ" Case "ル" StrConvNarrow = StrConvNarrow & "ル" Case "レ" StrConvNarrow = StrConvNarrow & "レ" Case "ロ" StrConvNarrow = StrConvNarrow & "ロ" Case "ワ" StrConvNarrow = StrConvNarrow & "ワ" Case "ヲ" StrConvNarrow = StrConvNarrow & "ヲ" Case "ン" StrConvNarrow = StrConvNarrow & "ン" Case "ヴ" StrConvNarrow = StrConvNarrow & "ヴ" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "U" StrConvNarrow = StrConvNarrow & "|" Case "V" StrConvNarrow = StrConvNarrow & "'" Case "W" StrConvNarrow = StrConvNarrow & """" Case "・" StrConvNarrow = StrConvNarrow & "・" Case "U" StrConvNarrow = StrConvNarrow & "|" Case "V" StrConvNarrow = StrConvNarrow & "'" Case "W" StrConvNarrow = StrConvNarrow & """" Case "・" StrConvNarrow = StrConvNarrow & "・" Case Else StrConvNarrow = StrConvNarrow & sChr End Select Next End Function '*************************************************** ' StrConvKatakana '--------------------------------------------------- ' 用途 : StrConv(s,vbKatakana) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvKatakana(s) Dim nCnt Dim nLen Dim sChr Dim sMud s = "" & s nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("゙゚", sMud) Then sChr = sChr & sMud nCnt = nCnt + 1 End If Select Case sChr Case "ゝ" StrConvKatakana = StrConvKatakana & "ヽ" Case "ゞ" StrConvKatakana = StrConvKatakana & "ヾ" Case "ぁ" StrConvKatakana = StrConvKatakana & "ァ" Case "あ" StrConvKatakana = StrConvKatakana & "ア" Case "ぃ" StrConvKatakana = StrConvKatakana & "ィ" Case "い" StrConvKatakana = StrConvKatakana & "イ" Case "ぅ" StrConvKatakana = StrConvKatakana & "ゥ" Case "う" StrConvKatakana = StrConvKatakana & "ウ" Case "ぇ" StrConvKatakana = StrConvKatakana & "ェ" Case "え" StrConvKatakana = StrConvKatakana & "エ" Case "ぉ" StrConvKatakana = StrConvKatakana & "ォ" Case "お" StrConvKatakana = StrConvKatakana & "オ" Case "か" StrConvKatakana = StrConvKatakana & "カ" Case "が" StrConvKatakana = StrConvKatakana & "ガ" Case "き" StrConvKatakana = StrConvKatakana & "キ" Case "ぎ" StrConvKatakana = StrConvKatakana & "ギ" Case "く" StrConvKatakana = StrConvKatakana & "ク" Case "ぐ" StrConvKatakana = StrConvKatakana & "グ" Case "け" StrConvKatakana = StrConvKatakana & "ケ" Case "げ" StrConvKatakana = StrConvKatakana & "ゲ" Case "こ" StrConvKatakana = StrConvKatakana & "コ" Case "ご" StrConvKatakana = StrConvKatakana & "ゴ" Case "さ" StrConvKatakana = StrConvKatakana & "サ" Case "ざ" StrConvKatakana = StrConvKatakana & "ザ" Case "し" StrConvKatakana = StrConvKatakana & "シ" Case "じ" StrConvKatakana = StrConvKatakana & "ジ" Case "す" StrConvKatakana = StrConvKatakana & "ス" Case "ず" StrConvKatakana = StrConvKatakana & "ズ" Case "せ" StrConvKatakana = StrConvKatakana & "セ" Case "ぜ" StrConvKatakana = StrConvKatakana & "ゼ" Case "そ" StrConvKatakana = StrConvKatakana & "ソ" Case "ぞ" StrConvKatakana = StrConvKatakana & "ゾ" Case "た" StrConvKatakana = StrConvKatakana & "タ" Case "だ" StrConvKatakana = StrConvKatakana & "ダ" Case "ち" StrConvKatakana = StrConvKatakana & "チ" Case "ぢ" StrConvKatakana = StrConvKatakana & "ヂ" Case "っ" StrConvKatakana = StrConvKatakana & "ッ" Case "つ" StrConvKatakana = StrConvKatakana & "ツ" Case "づ" StrConvKatakana = StrConvKatakana & "ヅ" Case "て" StrConvKatakana = StrConvKatakana & "テ" Case "で" StrConvKatakana = StrConvKatakana & "デ" Case "と" StrConvKatakana = StrConvKatakana & "ト" Case "ど" StrConvKatakana = StrConvKatakana & "ド" Case "な" StrConvKatakana = StrConvKatakana & "ナ" Case "に" StrConvKatakana = StrConvKatakana & "ニ" Case "ぬ" StrConvKatakana = StrConvKatakana & "ヌ" Case "ね" StrConvKatakana = StrConvKatakana & "ネ" Case "の" StrConvKatakana = StrConvKatakana & "ノ" Case "は" StrConvKatakana = StrConvKatakana & "ハ" Case "ば" StrConvKatakana = StrConvKatakana & "バ" Case "ぱ" StrConvKatakana = StrConvKatakana & "パ" Case "ひ" StrConvKatakana = StrConvKatakana & "ヒ" Case "び" StrConvKatakana = StrConvKatakana & "ビ" Case "ぴ" StrConvKatakana = StrConvKatakana & "ピ" Case "ふ" StrConvKatakana = StrConvKatakana & "フ" Case "ぶ" StrConvKatakana = StrConvKatakana & "ブ" Case "ぷ" StrConvKatakana = StrConvKatakana & "プ" Case "へ" StrConvKatakana = StrConvKatakana & "ヘ" Case "べ" StrConvKatakana = StrConvKatakana & "ベ" Case "ぺ" StrConvKatakana = StrConvKatakana & "ペ" Case "ほ" StrConvKatakana = StrConvKatakana & "ホ" Case "ぼ" StrConvKatakana = StrConvKatakana & "ボ" Case "ぽ" StrConvKatakana = StrConvKatakana & "ポ" Case "ま" StrConvKatakana = StrConvKatakana & "マ" Case "み" StrConvKatakana = StrConvKatakana & "ミ" Case "む" StrConvKatakana = StrConvKatakana & "ム" Case "め" StrConvKatakana = StrConvKatakana & "メ" Case "も" StrConvKatakana = StrConvKatakana & "モ" Case "ゃ" StrConvKatakana = StrConvKatakana & "ャ" Case "や" StrConvKatakana = StrConvKatakana & "ヤ" Case "ゅ" StrConvKatakana = StrConvKatakana & "ュ" Case "ゆ" StrConvKatakana = StrConvKatakana & "ユ" Case "ょ" StrConvKatakana = StrConvKatakana & "ョ" Case "よ" StrConvKatakana = StrConvKatakana & "ヨ" Case "ら" StrConvKatakana = StrConvKatakana & "ラ" Case "り" StrConvKatakana = StrConvKatakana & "リ" Case "る" StrConvKatakana = StrConvKatakana & "ル" Case "れ" StrConvKatakana = StrConvKatakana & "レ" Case "ろ" StrConvKatakana = StrConvKatakana & "ロ" Case "ゎ" StrConvKatakana = StrConvKatakana & "ヮ" Case "わ" StrConvKatakana = StrConvKatakana & "ワ" Case "ゐ" StrConvKatakana = StrConvKatakana & "ヰ" Case "ゑ" StrConvKatakana = StrConvKatakana & "ヱ" Case "を" StrConvKatakana = StrConvKatakana & "ヲ" Case "ん" StrConvKatakana = StrConvKatakana & "ン" Case Else StrConvKatakana = StrConvKatakana & sChr End Select Next End Function '*************************************************** ' StrConvHiragana '--------------------------------------------------- ' 用途 : StrConv(s,vbHiragana) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvHiragana(s) Dim nCnt Dim nLen Dim sChr Dim sMud s = "" & s nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("゙゚", sMud) Then sChr = sChr & sMud nCnt = nCnt + 1 End If Select Case sChr Case "ヽ" StrConvHiragana = StrConvHiragana & "ゝ" Case "ヾ" StrConvHiragana = StrConvHiragana & "ゞ" Case "ァ" StrConvHiragana = StrConvHiragana & "ぁ" Case "ア" StrConvHiragana = StrConvHiragana & "あ" Case "ィ" StrConvHiragana = StrConvHiragana & "ぃ" Case "イ" StrConvHiragana = StrConvHiragana & "い" Case "ゥ" StrConvHiragana = StrConvHiragana & "ぅ" Case "ウ" StrConvHiragana = StrConvHiragana & "う" Case "ェ" StrConvHiragana = StrConvHiragana & "ぇ" Case "エ" StrConvHiragana = StrConvHiragana & "え" Case "ォ" StrConvHiragana = StrConvHiragana & "ぉ" Case "オ" StrConvHiragana = StrConvHiragana & "お" Case "カ" StrConvHiragana = StrConvHiragana & "か" Case "ガ" StrConvHiragana = StrConvHiragana & "が" Case "キ" StrConvHiragana = StrConvHiragana & "き" Case "ギ" StrConvHiragana = StrConvHiragana & "ぎ" Case "ク" StrConvHiragana = StrConvHiragana & "く" Case "グ" StrConvHiragana = StrConvHiragana & "ぐ" Case "ケ" StrConvHiragana = StrConvHiragana & "け" Case "ゲ" StrConvHiragana = StrConvHiragana & "げ" Case "コ" StrConvHiragana = StrConvHiragana & "こ" Case "ゴ" StrConvHiragana = StrConvHiragana & "ご" Case "サ" StrConvHiragana = StrConvHiragana & "さ" Case "ザ" StrConvHiragana = StrConvHiragana & "ざ" Case "シ" StrConvHiragana = StrConvHiragana & "し" Case "ジ" StrConvHiragana = StrConvHiragana & "じ" Case "ス" StrConvHiragana = StrConvHiragana & "す" Case "ズ" StrConvHiragana = StrConvHiragana & "ず" Case "セ" StrConvHiragana = StrConvHiragana & "せ" Case "ゼ" StrConvHiragana = StrConvHiragana & "ぜ" Case "ソ" StrConvHiragana = StrConvHiragana & "そ" Case "ゾ" StrConvHiragana = StrConvHiragana & "ぞ" Case "タ" StrConvHiragana = StrConvHiragana & "た" Case "ダ" StrConvHiragana = StrConvHiragana & "だ" Case "チ" StrConvHiragana = StrConvHiragana & "ち" Case "ヂ" StrConvHiragana = StrConvHiragana & "ぢ" Case "ッ" StrConvHiragana = StrConvHiragana & "っ" Case "ツ" StrConvHiragana = StrConvHiragana & "つ" Case "ヅ" StrConvHiragana = StrConvHiragana & "づ" Case "テ" StrConvHiragana = StrConvHiragana & "て" Case "デ" StrConvHiragana = StrConvHiragana & "で" Case "ト" StrConvHiragana = StrConvHiragana & "と" Case "ド" StrConvHiragana = StrConvHiragana & "ど" Case "ナ" StrConvHiragana = StrConvHiragana & "な" Case "ニ" StrConvHiragana = StrConvHiragana & "に" Case "ヌ" StrConvHiragana = StrConvHiragana & "ぬ" Case "ネ" StrConvHiragana = StrConvHiragana & "ね" Case "ノ" StrConvHiragana = StrConvHiragana & "の" Case "ハ" StrConvHiragana = StrConvHiragana & "は" Case "バ" StrConvHiragana = StrConvHiragana & "ば" Case "パ" StrConvHiragana = StrConvHiragana & "ぱ" Case "ヒ" StrConvHiragana = StrConvHiragana & "ひ" Case "ビ" StrConvHiragana = StrConvHiragana & "び" Case "ピ" StrConvHiragana = StrConvHiragana & "ぴ" Case "フ" StrConvHiragana = StrConvHiragana & "ふ" Case "ブ" StrConvHiragana = StrConvHiragana & "ぶ" Case "プ" StrConvHiragana = StrConvHiragana & "ぷ" Case "ヘ" StrConvHiragana = StrConvHiragana & "へ" Case "ベ" StrConvHiragana = StrConvHiragana & "べ" Case "ペ" StrConvHiragana = StrConvHiragana & "ぺ" Case "ホ" StrConvHiragana = StrConvHiragana & "ほ" Case "ボ" StrConvHiragana = StrConvHiragana & "ぼ" Case "ポ" StrConvHiragana = StrConvHiragana & "ぽ" Case "マ" StrConvHiragana = StrConvHiragana & "ま" Case "ミ" StrConvHiragana = StrConvHiragana & "み" Case "ム" StrConvHiragana = StrConvHiragana & "む" Case "メ" StrConvHiragana = StrConvHiragana & "め" Case "モ" StrConvHiragana = StrConvHiragana & "も" Case "ャ" StrConvHiragana = StrConvHiragana & "ゃ" Case "ヤ" StrConvHiragana = StrConvHiragana & "や" Case "ュ" StrConvHiragana = StrConvHiragana & "ゅ" Case "ユ" StrConvHiragana = StrConvHiragana & "ゆ" Case "ョ" StrConvHiragana = StrConvHiragana & "ょ" Case "ヨ" StrConvHiragana = StrConvHiragana & "よ" Case "ラ" StrConvHiragana = StrConvHiragana & "ら" Case "リ" StrConvHiragana = StrConvHiragana & "り" Case "ル" StrConvHiragana = StrConvHiragana & "る" Case "レ" StrConvHiragana = StrConvHiragana & "れ" Case "ロ" StrConvHiragana = StrConvHiragana & "ろ" Case "ヮ" StrConvHiragana = StrConvHiragana & "ゎ" Case "ワ" StrConvHiragana = StrConvHiragana & "わ" Case "ヰ" StrConvHiragana = StrConvHiragana & "ゐ" Case "ヱ" StrConvHiragana = StrConvHiragana & "ゑ" Case "ヲ" StrConvHiragana = StrConvHiragana & "を" Case "ン" StrConvHiragana = StrConvHiragana & "ん" Case Else StrConvHiragana = StrConvHiragana & sChr End Select Next End Function '*************************************************** ' StrConvUnicode '--------------------------------------------------- ' 用途 : StrConv(s,vbUnicode) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvUnicode(sInp) Dim nCnt Dim nLen Dim nAsc Dim nChr nLen = LenB(sInp) For nCnt = 1 To nLen nAsc = AscB(MidB(sInp, nCnt, 1)) If (&h81 <= nAsc And nAsc <= &h9F) Or (&hE0 <= nAsc And nAsc <= &hEF) Then nChr = nAsc * 256 + AscB(MidB(sInp, nCnt+1, 1)) StrConvUnicode = StrConvUnicode & Chr(nChr) nCnt = nCnt + 1 Else StrConvUnicode = StrConvUnicode & Chr(AscB(MidB(sInp, nCnt, 1))) End If Next End Function '*************************************************** ' StrConvFromUnicode '--------------------------------------------------- ' 用途 : StrConv(s,vbFromUnicode) のクローン ' 引数 : 変換する文字列 ' 戻値 : 変換された文字列 '*************************************************** Function StrConvFromUnicode(sInp) Dim nCnt Dim nLen Dim nAsc nLen = Len(sInp) For nCnt = 1 to nLen nAsc = Asc(Mid(sInp, nCnt, 1)) If nAsc And &hFF00 Then StrConvFromUnicode = StrConvFromUnicode & ChrB(Int(nAsc / 256) And &hFF) StrConvFromUnicode = StrConvFromUnicode & ChrB(nAsc And &hFF) Else StrConvFromUnicode = StrConvFromUnicode & ChrB(nAsc) End If Next End Function '*************************************************** ' StrConv が使用する定数郡 '*************************************************** ' Enum VbStrConv Const vbUpperCase=1 Const vbLowerCase=2 Const vbProperCase=3 Const vbWide=4 Const vbNarrow=8 Const vbKatakana=16 Const vbHiragana=32 Const vbUnicode = 64 Const vbFromUnicode = 128 '*************************************************** ' StrConv '--------------------------------------------------- ' 引数 : 変換する文字列,変換処理 ' 戻値 : 変換された文字列 '*************************************************** Function StrConv(sInp,eCnv) StrConv = sInp ' Cnv に対して処理を振り分け If eCnv And vbUpperCase Then StrConv = StrConvUpperCase(StrConv) End If If eCnv And vbLowerCase Then StrConv = StrConvLowerCase(StrConv) End If If eCnv = vbProperCase Then StrConv = StrConvProperCase(StrConv) End If If eCnv And vbWide Then StrConv = StrConvWide(StrConv) End If If eCnv And vbNarrow Then StrConv = StrConvNarrow(StrConv) End If If eCnv And vbKatakana Then StrConv = StrConvKatakana(StrConv) End If If eCnv And vbHiragana Then StrConv = StrConvHiragana(StrConv) End If If eCnv And vbUnicode Then StrConv = StrConvUnicode(StrConv) End If If eCnv And vbFromUnicode Then StrConv = StrConvFromUnicode(StrConv) End If End Function %>