'########################################################### '# StrConv ÇUÇ«Çé¡ÐÇïÇ@ÇrÃö¼Æ '# §@¦¨ ÇeÇJÇKÇz '# http://hp.vector.co.jp/authors/VA020411 '# [email protected] '########################################################### '*************************************************** ' StrConvUpperCase '--------------------------------------------------- ' ¥Î³~ : StrConv(sInp,vbUpperCase) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConvUpperCase(sInp) StrConvUpperCase = UCase(sInp) End Function '*************************************************** ' StrConvLowerCase '--------------------------------------------------- ' ¥Î³~ : StrConv(sInp,vbLowerCase) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConvLowerCase(sInp) StrConvLowerCase = LCase(sInp) End Function '*************************************************** ' StrConvProperCase '--------------------------------------------------- ' ¥Î³~ : StrConv(sInp,vbProperCase) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** 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) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConvWide(s) Dim nCnt Dim nLen Dim sChr Dim sMud nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("¡ª¢X", sMud) Then sChr = sChr & sMud nCnt = nCnt + 1 End If Select Case sChr Case " " StrConvWide = StrConvWide & "¡@" Case "!" StrConvWide = StrConvWide & "¡I" Case """" StrConvWide = StrConvWide & " " Case "#" StrConvWide = StrConvWide & "¡" Case "$" StrConvWide = StrConvWide & "¢C" Case "%" StrConvWide = StrConvWide & "¢H" Case "&" StrConvWide = StrConvWide & "¡®" Case "'" StrConvWide = StrConvWide & " " Case "(" StrConvWide = StrConvWide & "¡]" Case ")" StrConvWide = StrConvWide & "¡^" Case "*" StrConvWide = StrConvWide & "¡¯" Case "+" StrConvWide = StrConvWide & "¡Ï" Case "," StrConvWide = StrConvWide & "¡A" Case "-" StrConvWide = StrConvWide & "¡Ð" Case "." StrConvWide = StrConvWide & "¡D" Case "/" StrConvWide = StrConvWide & "¡þ" Case ":" StrConvWide = StrConvWide & "¡G" Case ";" StrConvWide = StrConvWide & "¡F" Case "<" StrConvWide = StrConvWide & "¡Õ" Case "=" StrConvWide = StrConvWide & "¡×" Case ">" StrConvWide = StrConvWide & "¡Ö" Case "?" StrConvWide = StrConvWide & "¡H" Case "@" StrConvWide = StrConvWide & "¢I" Case "[" StrConvWide = StrConvWide & "¡e" Case "]" StrConvWide = StrConvWide & "¡f" Case "^" StrConvWide = StrConvWide & "¡@" Case "_" StrConvWide = StrConvWide & "¡Å" Case "`" StrConvWide = StrConvWide & "¡«" Case "{" StrConvWide = StrConvWide & "¡a" Case "|" StrConvWide = StrConvWide & "¡ý" Case "}" StrConvWide = StrConvWide & "¡b" Case "~" StrConvWide = StrConvWide & "¡ã" Case "¡E" StrConvWide = StrConvWide & "¡C" Case "¡u" StrConvWide = StrConvWide & "¡u" Case "¡v" StrConvWide = StrConvWide & "¡v" Case "¡B" StrConvWide = StrConvWide & "¡B" Case "¡D" StrConvWide = StrConvWide & "¡E" Case "¡H" 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 "DZ" StrConvWide = StrConvWide & "DZ" Case "DZ¡ª" StrConvWide = StrConvWide & "Dz" Case "dz" StrConvWide = StrConvWide & "dz" Case "dz¡ª" 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 "ÇË¢X" StrConvWide = StrConvWide & "ÇÍ" Case "ÇÎ" StrConvWide = StrConvWide & "ÇÎ" Case "ÇΡª" StrConvWide = StrConvWide & "ÇÏ" Case "Ç΢X" StrConvWide = StrConvWide & "ÇÐ" Case "ÇÑ" StrConvWide = StrConvWide & "ÇÑ" Case "ÇÑ¡ª" StrConvWide = StrConvWide & "ÇÒ" Case "ÇÑ¢X" StrConvWide = StrConvWide & "ÇÓ" Case "ÇÔ" StrConvWide = StrConvWide & "ÇÔ" Case "ÇÔ¡ª" StrConvWide = StrConvWide & "ÇÕ" Case "ÇÔ¢X" StrConvWide = StrConvWide & "ÇÖ" Case "Ç×" StrConvWide = StrConvWide & "Ç×" Case "Çסª" StrConvWide = StrConvWide & "ÇØ" Case "Ç×¢X" 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 & "¡U" Case "¢X" StrConvWide = StrConvWide & "¡@" Case " " StrConvWide = StrConvWide & "¡@" Case "!" StrConvWide = StrConvWide & "¡I" Case """" StrConvWide = StrConvWide & " " Case "#" StrConvWide = StrConvWide & "¡" Case "$" StrConvWide = StrConvWide & "¢C" Case "%" StrConvWide = StrConvWide & "¢H" Case "&" StrConvWide = StrConvWide & "¡®" Case "'" StrConvWide = StrConvWide & " " Case "(" StrConvWide = StrConvWide & "¡]" Case ")" StrConvWide = StrConvWide & "¡^" Case "*" StrConvWide = StrConvWide & "¡¯" Case "+" StrConvWide = StrConvWide & "¡Ï" Case "," StrConvWide = StrConvWide & "¡A" Case "-" StrConvWide = StrConvWide & "¡Ð" Case "." StrConvWide = StrConvWide & "¡D" Case "/" StrConvWide = StrConvWide & "¡þ" Case ":" StrConvWide = StrConvWide & "¡G" Case ";" StrConvWide = StrConvWide & "¡F" Case "<" StrConvWide = StrConvWide & "¡Õ" Case "=" StrConvWide = StrConvWide & "¡×" Case ">" StrConvWide = StrConvWide & "¡Ö" Case "?" StrConvWide = StrConvWide & "¡H" Case "@" StrConvWide = StrConvWide & "¢I" Case "[" StrConvWide = StrConvWide & "¡e" Case "]" StrConvWide = StrConvWide & "¡f" Case "^" StrConvWide = StrConvWide & "¡@" Case "_" StrConvWide = StrConvWide & "¡Å" Case "`" StrConvWide = StrConvWide & "¡«" Case "{" StrConvWide = StrConvWide & "¡a" Case "|" StrConvWide = StrConvWide & "¡ý" Case "}" StrConvWide = StrConvWide & "¡b" 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 & "ÇA" Case "ÇB¡ª" StrConvWide = StrConvWide & "ÇC" Case "ÇD¡ª" StrConvWide = StrConvWide & "ÇE" Case "ÇF¡ª" StrConvWide = StrConvWide & "ÇG" Case "ÇH¡ª" StrConvWide = StrConvWide & "ÇI" Case "ÇK¡ª" StrConvWide = StrConvWide & "ÇL" Case "ÇM¡ª" StrConvWide = StrConvWide & "ÇN" Case "ÇO¡ª" StrConvWide = StrConvWide & "ÇP" Case "ÇV¡ª" StrConvWide = StrConvWide & "ÇW" Case "ÇV¢X" StrConvWide = StrConvWide & "ÇX" Case "ÇY¡ª" StrConvWide = StrConvWide & "ÇZ" Case "ÇY¢X" StrConvWide = StrConvWide & "Ç[" Case "Ç\¡ª" StrConvWide = StrConvWide & "Ç]" Case "Ç\¢X" StrConvWide = StrConvWide & "Ç^" Case "Ç_¡ª" StrConvWide = StrConvWide & "Ç`" Case "Ç_¢X" StrConvWide = StrConvWide & "Ça" Case "Çb¡ª" StrConvWide = StrConvWide & "Çc" Case "Çb¢X" StrConvWide = StrConvWide & "Çd" Case "Ç¢¡ª" StrConvWide = StrConvWide & "Çð" Case "ǧ¡ª" StrConvWide = StrConvWide & "Ǩ" Case "Ç©¡ª" StrConvWide = StrConvWide & "Ǫ" Case "Ç«¡ª" StrConvWide = StrConvWide & "Ǭ" Case "Ç¡ª" StrConvWide = StrConvWide & "Ç®" Case "ǯ¡ª" StrConvWide = StrConvWide & "Ç°" Case "DZ¡ª" StrConvWide = StrConvWide & "Dz" Case "dz¡ª" 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 "ÇË¢X" StrConvWide = StrConvWide & "ÇÍ" Case "ÇΡª" StrConvWide = StrConvWide & "ÇÏ" Case "Ç΢X" StrConvWide = StrConvWide & "ÇÐ" Case "ÇÑ¡ª" StrConvWide = StrConvWide & "ÇÒ" Case "ÇÑ¢X" StrConvWide = StrConvWide & "ÇÓ" Case "ÇÔ¡ª" StrConvWide = StrConvWide & "ÇÕ" Case "ÇÔ¢X" StrConvWide = StrConvWide & "ÇÖ" Case "Çסª" StrConvWide = StrConvWide & "ÇØ" Case "Ç×¢X" StrConvWide = StrConvWide & "ÇÙ" Case "¡E" StrConvWide = StrConvWide & "¡C" Case "¡u" StrConvWide = StrConvWide & "¡u" Case "¡v" StrConvWide = StrConvWide & "¡v" Case "¡B" StrConvWide = StrConvWide & "¡B" Case "¡D" StrConvWide = StrConvWide & "¡E" Case "¡H" 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 "DZ" StrConvWide = StrConvWide & "DZ" Case "DZ¡ª" StrConvWide = StrConvWide & "Dz" Case "dz" StrConvWide = StrConvWide & "dz" Case "dz¡ª" 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 "ÇË¢X" StrConvWide = StrConvWide & "ÇÍ" Case "ÇÎ" StrConvWide = StrConvWide & "ÇÎ" Case "ÇΡª" StrConvWide = StrConvWide & "ÇÏ" Case "Ç΢X" StrConvWide = StrConvWide & "ÇÐ" Case "ÇÑ" StrConvWide = StrConvWide & "ÇÑ" Case "ÇÑ¡ª" StrConvWide = StrConvWide & "ÇÒ" Case "ÇÑ¢X" StrConvWide = StrConvWide & "ÇÓ" Case "ÇÔ" StrConvWide = StrConvWide & "ÇÔ" Case "ÇÔ¡ª" StrConvWide = StrConvWide & "ÇÕ" Case "ÇÔ¢X" StrConvWide = StrConvWide & "ÇÖ" Case "Ç×" StrConvWide = StrConvWide & "Ç×" Case "Çסª" StrConvWide = StrConvWide & "ÇØ" Case "Ç×¢X" 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 & "¡U" Case "¢X" StrConvWide = StrConvWide & "¡@" Case Else StrConvWide = StrConvWide & sChr End Select Next End Function '*************************************************** ' StrConvNarrow '--------------------------------------------------- ' ¥Î³~ : StrConv(s,vbNarrow) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConvNarrow(s) Dim nCnt Dim nLen Dim sChr Dim sMud nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("¡ª¢X", sMud) Then sChr = sChr & sMud nCnt = nCnt + 1 End If Select Case sChr Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case "¡@" StrConvNarrow = StrConvNarrow & " " Case "¡B" StrConvNarrow = StrConvNarrow & "¡B" Case "¡C" StrConvNarrow = StrConvNarrow & "¡E" Case "¡A" StrConvNarrow = StrConvNarrow & "," Case "¡D" StrConvNarrow = StrConvNarrow & "." Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case "¡G" StrConvNarrow = StrConvNarrow & ":" Case "¡F" StrConvNarrow = StrConvNarrow & ";" Case "¡H" StrConvNarrow = StrConvNarrow & "?" Case "¡I" StrConvNarrow = StrConvNarrow & "!" Case "¡U" StrConvNarrow = StrConvNarrow & "¡ª" Case "¡@" StrConvNarrow = StrConvNarrow & "¢X" 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 "¡e" StrConvNarrow = StrConvNarrow & "[" Case "¡f" StrConvNarrow = StrConvNarrow & "]" Case "¡a" StrConvNarrow = StrConvNarrow & "{" Case "¡b" StrConvNarrow = StrConvNarrow & "}" Case "¡u" StrConvNarrow = StrConvNarrow & "¡u" Case "¡v" StrConvNarrow = StrConvNarrow & "¡v" Case "¡Ï" StrConvNarrow = StrConvNarrow & "+" Case "¡Ð" StrConvNarrow = StrConvNarrow & "-" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case "¡×" StrConvNarrow = StrConvNarrow & "=" Case "¡Õ" StrConvNarrow = StrConvNarrow & "<" Case "¡Ö" StrConvNarrow = StrConvNarrow & ">" Case "¢D" StrConvNarrow = StrConvNarrow & "\" Case "¢C" StrConvNarrow = StrConvNarrow & "$" Case "¢H" StrConvNarrow = StrConvNarrow & "%" Case "¡" StrConvNarrow = StrConvNarrow & "#" Case "¡®" StrConvNarrow = StrConvNarrow & "&" Case "¡¯" StrConvNarrow = StrConvNarrow & "*" Case "¢I" StrConvNarrow = StrConvNarrow & "@" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" 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 "DZ" StrConvNarrow = StrConvNarrow & "DZ" Case "Dz" StrConvNarrow = StrConvNarrow & "DZ¡ª" Case "dz" StrConvNarrow = StrConvNarrow & "dz" Case "Ç´" StrConvNarrow = StrConvNarrow & "dz¡ª" 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 & "ÇË¢X" Case "ÇÎ" StrConvNarrow = StrConvNarrow & "ÇÎ" Case "ÇÏ" StrConvNarrow = StrConvNarrow & "ÇΡª" Case "ÇÐ" StrConvNarrow = StrConvNarrow & "Ç΢X" Case "ÇÑ" StrConvNarrow = StrConvNarrow & "ÇÑ" Case "ÇÒ" StrConvNarrow = StrConvNarrow & "ÇÑ¡ª" Case "ÇÓ" StrConvNarrow = StrConvNarrow & "ÇÑ¢X" Case "ÇÔ" StrConvNarrow = StrConvNarrow & "ÇÔ" Case "ÇÕ" StrConvNarrow = StrConvNarrow & "ÇÔ¡ª" Case "ÇÖ" StrConvNarrow = StrConvNarrow & "ÇÔ¢X" Case "Ç×" StrConvNarrow = StrConvNarrow & "Ç×" Case "ÇØ" StrConvNarrow = StrConvNarrow & "Çסª" Case "ÇÙ" StrConvNarrow = StrConvNarrow & "Ç×¢X" Case "ÇÚ" StrConvNarrow = StrConvNarrow & "ÇÚ" Case "ÇÛ" StrConvNarrow = StrConvNarrow & "ÇÛ" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" 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 & "¡H" Case "Çï" StrConvNarrow = StrConvNarrow & "Çï" Case "Çð" StrConvNarrow = StrConvNarrow & "Ç¢¡ª" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case " " StrConvNarrow = StrConvNarrow & "|" Case " " StrConvNarrow = StrConvNarrow & "'" Case " " StrConvNarrow = StrConvNarrow & """" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case " " StrConvNarrow = StrConvNarrow & "|" Case " " StrConvNarrow = StrConvNarrow & "'" Case " " StrConvNarrow = StrConvNarrow & """" Case "¡E" StrConvNarrow = StrConvNarrow & "¡D" Case Else StrConvNarrow = StrConvNarrow & sChr End Select Next End Function '*************************************************** ' StrConvKatakana '--------------------------------------------------- ' ¥Î³~ : StrConv(s,vbKatakana) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConvKatakana(s) Dim nCnt Dim nLen Dim sChr Dim sMud nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("¡ª¢X", 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 & "DZ" Case "Æü" StrConvKatakana = StrConvKatakana & "Dz" Case "Æý" StrConvKatakana = StrConvKatakana & "dz" Case "Æþ" StrConvKatakana = StrConvKatakana & "Ç´" Case "Ç@" StrConvKatakana = StrConvKatakana & "ǵ" Case "ÇA" StrConvKatakana = StrConvKatakana & "Ƕ" Case "ÇB" StrConvKatakana = StrConvKatakana & "Ç·" Case "ÇC" StrConvKatakana = StrConvKatakana & "Ǹ" Case "ÇD" StrConvKatakana = StrConvKatakana & "ǹ" Case "ÇE" StrConvKatakana = StrConvKatakana & "Ǻ" Case "ÇF" StrConvKatakana = StrConvKatakana & "Ç»" Case "ÇG" StrConvKatakana = StrConvKatakana & "Ǽ" Case "ÇH" StrConvKatakana = StrConvKatakana & "ǽ" Case "ÇI" StrConvKatakana = StrConvKatakana & "Ǿ" Case "ÇJ" StrConvKatakana = StrConvKatakana & "Ç¿" Case "ÇK" StrConvKatakana = StrConvKatakana & "ÇÀ" Case "ÇL" StrConvKatakana = StrConvKatakana & "ÇÁ" Case "ÇM" StrConvKatakana = StrConvKatakana & "ÇÂ" Case "ÇN" StrConvKatakana = StrConvKatakana & "ÇÃ" Case "ÇO" StrConvKatakana = StrConvKatakana & "ÇÄ" Case "ÇP" StrConvKatakana = StrConvKatakana & "ÇÅ" Case "ÇQ" StrConvKatakana = StrConvKatakana & "ÇÆ" Case "ÇR" StrConvKatakana = StrConvKatakana & "ÇÇ" Case "ÇS" StrConvKatakana = StrConvKatakana & "ÇÈ" Case "ÇT" StrConvKatakana = StrConvKatakana & "ÇÉ" Case "ÇU" StrConvKatakana = StrConvKatakana & "ÇÊ" Case "ÇV" StrConvKatakana = StrConvKatakana & "ÇË" Case "ÇW" StrConvKatakana = StrConvKatakana & "ÇÌ" Case "ÇX" StrConvKatakana = StrConvKatakana & "ÇÍ" Case "ÇY" StrConvKatakana = StrConvKatakana & "ÇÎ" Case "ÇZ" StrConvKatakana = StrConvKatakana & "ÇÏ" Case "Ç[" StrConvKatakana = StrConvKatakana & "ÇÐ" Case "Ç\" StrConvKatakana = StrConvKatakana & "ÇÑ" Case "Ç]" StrConvKatakana = StrConvKatakana & "ÇÒ" Case "Ç^" StrConvKatakana = StrConvKatakana & "ÇÓ" Case "Ç_" StrConvKatakana = StrConvKatakana & "ÇÔ" Case "Ç`" StrConvKatakana = StrConvKatakana & "ÇÕ" Case "Ça" StrConvKatakana = StrConvKatakana & "ÇÖ" Case "Çb" StrConvKatakana = StrConvKatakana & "Ç×" Case "Çc" StrConvKatakana = StrConvKatakana & "ÇØ" Case "Çd" StrConvKatakana = StrConvKatakana & "ÇÙ" Case "Çe" StrConvKatakana = StrConvKatakana & "ÇÚ" Case "Çf" StrConvKatakana = StrConvKatakana & "ÇÛ" Case "Çg" StrConvKatakana = StrConvKatakana & "ÇÜ" Case "Çh" StrConvKatakana = StrConvKatakana & "ÇÝ" Case "Çi" StrConvKatakana = StrConvKatakana & "ÇÞ" Case "Çj" StrConvKatakana = StrConvKatakana & "Çß" Case "Çk" StrConvKatakana = StrConvKatakana & "Çà" Case "Çl" StrConvKatakana = StrConvKatakana & "Çá" Case "Çm" StrConvKatakana = StrConvKatakana & "Çâ" Case "Çn" StrConvKatakana = StrConvKatakana & "Çã" Case "Ço" StrConvKatakana = StrConvKatakana & "Çä" Case "Çp" StrConvKatakana = StrConvKatakana & "Çå" Case "Çq" StrConvKatakana = StrConvKatakana & "Çæ" Case "Çr" StrConvKatakana = StrConvKatakana & "Çç" Case "Çs" StrConvKatakana = StrConvKatakana & "Çè" Case "Çt" StrConvKatakana = StrConvKatakana & "Çé" Case "Çu" StrConvKatakana = StrConvKatakana & "Çê" Case "Çv" StrConvKatakana = StrConvKatakana & "Çë" Case "Çw" StrConvKatakana = StrConvKatakana & "Çì" Case "Çx" StrConvKatakana = StrConvKatakana & "Çí" Case "Çy" StrConvKatakana = StrConvKatakana & "Çî" Case "Çz" StrConvKatakana = StrConvKatakana & "Çï" Case Else StrConvKatakana = StrConvKatakana & sChr End Select Next End Function '*************************************************** ' StrConvHiragana '--------------------------------------------------- ' ¥Î³~ : StrConv(s,vbHiragana) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConvHiragana(s) Dim nCnt Dim nLen Dim sChr Dim sMud nLen = Len(s) For nCnt = 1 To nLen sChr = Mid(s,nCnt,1) sMud = Mid(s,nCnt+1,1) If InStr("¡ª¢X", 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 "DZ" StrConvHiragana = StrConvHiragana & "Æû" Case "Dz" StrConvHiragana = StrConvHiragana & "Æü" Case "dz" StrConvHiragana = StrConvHiragana & "Æý" Case "Ç´" StrConvHiragana = StrConvHiragana & "Æþ" Case "ǵ" StrConvHiragana = StrConvHiragana & "Ç@" Case "Ƕ" StrConvHiragana = StrConvHiragana & "ÇA" Case "Ç·" StrConvHiragana = StrConvHiragana & "ÇB" Case "Ǹ" StrConvHiragana = StrConvHiragana & "ÇC" Case "ǹ" StrConvHiragana = StrConvHiragana & "ÇD" Case "Ǻ" StrConvHiragana = StrConvHiragana & "ÇE" Case "Ç»" StrConvHiragana = StrConvHiragana & "ÇF" Case "Ǽ" StrConvHiragana = StrConvHiragana & "ÇG" Case "ǽ" StrConvHiragana = StrConvHiragana & "ÇH" Case "Ǿ" StrConvHiragana = StrConvHiragana & "ÇI" Case "Ç¿" StrConvHiragana = StrConvHiragana & "ÇJ" Case "ÇÀ" StrConvHiragana = StrConvHiragana & "ÇK" Case "ÇÁ" StrConvHiragana = StrConvHiragana & "ÇL" Case "ÇÂ" StrConvHiragana = StrConvHiragana & "ÇM" Case "ÇÃ" StrConvHiragana = StrConvHiragana & "ÇN" Case "ÇÄ" StrConvHiragana = StrConvHiragana & "ÇO" Case "ÇÅ" StrConvHiragana = StrConvHiragana & "ÇP" Case "ÇÆ" StrConvHiragana = StrConvHiragana & "ÇQ" Case "ÇÇ" StrConvHiragana = StrConvHiragana & "ÇR" Case "ÇÈ" StrConvHiragana = StrConvHiragana & "ÇS" Case "ÇÉ" StrConvHiragana = StrConvHiragana & "ÇT" Case "ÇÊ" StrConvHiragana = StrConvHiragana & "ÇU" Case "ÇË" StrConvHiragana = StrConvHiragana & "ÇV" Case "ÇÌ" StrConvHiragana = StrConvHiragana & "ÇW" Case "ÇÍ" StrConvHiragana = StrConvHiragana & "ÇX" Case "ÇÎ" StrConvHiragana = StrConvHiragana & "ÇY" Case "ÇÏ" StrConvHiragana = StrConvHiragana & "ÇZ" Case "ÇÐ" StrConvHiragana = StrConvHiragana & "Ç[" Case "ÇÑ" StrConvHiragana = StrConvHiragana & "Ç\" Case "ÇÒ" StrConvHiragana = StrConvHiragana & "Ç]" Case "ÇÓ" StrConvHiragana = StrConvHiragana & "Ç^" Case "ÇÔ" StrConvHiragana = StrConvHiragana & "Ç_" Case "ÇÕ" StrConvHiragana = StrConvHiragana & "Ç`" Case "ÇÖ" StrConvHiragana = StrConvHiragana & "Ça" Case "Ç×" StrConvHiragana = StrConvHiragana & "Çb" Case "ÇØ" StrConvHiragana = StrConvHiragana & "Çc" Case "ÇÙ" StrConvHiragana = StrConvHiragana & "Çd" Case "ÇÚ" StrConvHiragana = StrConvHiragana & "Çe" Case "ÇÛ" StrConvHiragana = StrConvHiragana & "Çf" Case "ÇÜ" StrConvHiragana = StrConvHiragana & "Çg" Case "ÇÝ" StrConvHiragana = StrConvHiragana & "Çh" Case "ÇÞ" StrConvHiragana = StrConvHiragana & "Çi" Case "Çß" StrConvHiragana = StrConvHiragana & "Çj" Case "Çà" StrConvHiragana = StrConvHiragana & "Çk" Case "Çá" StrConvHiragana = StrConvHiragana & "Çl" Case "Çâ" StrConvHiragana = StrConvHiragana & "Çm" Case "Çã" StrConvHiragana = StrConvHiragana & "Çn" Case "Çä" StrConvHiragana = StrConvHiragana & "Ço" Case "Çå" StrConvHiragana = StrConvHiragana & "Çp" Case "Çæ" StrConvHiragana = StrConvHiragana & "Çq" Case "Çç" StrConvHiragana = StrConvHiragana & "Çr" Case "Çè" StrConvHiragana = StrConvHiragana & "Çs" Case "Çé" StrConvHiragana = StrConvHiragana & "Çt" Case "Çê" StrConvHiragana = StrConvHiragana & "Çu" Case "Çë" StrConvHiragana = StrConvHiragana & "Çv" Case "Çì" StrConvHiragana = StrConvHiragana & "Çw" Case "Çí" StrConvHiragana = StrConvHiragana & "Çx" Case "Çî" StrConvHiragana = StrConvHiragana & "Çy" Case "Çï" StrConvHiragana = StrConvHiragana & "Çz" Case Else StrConvHiragana = StrConvHiragana & sChr End Select Next End Function '*************************************************** ' StrConvUnicode '--------------------------------------------------- ' ¥Î³~ : StrConv(s,vbUnicode) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** 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) ÇUÇ«Çé¡ÐÇï ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** 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 Æò¨Ï¥ÎÇ@Çr©w¼Æ°p '*************************************************** ' 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 '--------------------------------------------------- ' ¤Þ¼Æ : ÅÜ´«Ç@Çr¤å¦r¦C,ÅÜ´«³B²z ' ©ÑÈ : ÅÜ´«ÆûÇsÇF¤å¦r¦C '*************************************************** Function StrConv(sInp,eCnv) StrConv = sInp ' Cnv ÇR¹ïÆýÇM³B²zÇy®¶Çq¤ÀÆ÷ 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