'########################################################### '# StrConv Uǫ@r '# @ eJKz '# http://hp.vector.co.jp/authors/VA020411 '# [email protected] '########################################################### '*************************************************** ' StrConvUpperCase '--------------------------------------------------- ' γ~ : StrConv(sInp,vbUpperCase) Uǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** Function StrConvUpperCase(sInp) StrConvUpperCase = UCase(sInp) End Function '*************************************************** ' StrConvLowerCase '--------------------------------------------------- ' γ~ : StrConv(sInp,vbLowerCase) Uǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** Function StrConvLowerCase(sInp) StrConvLowerCase = LCase(sInp) End Function '*************************************************** ' StrConvProperCase '--------------------------------------------------- ' γ~ : StrConv(sInp,vbProperCase) Uǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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ǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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 "VX" StrConvWide = StrConvWide & "X" Case "Y" StrConvWide = StrConvWide & "Z" Case "YX" StrConvWide = StrConvWide & "[" Case "\" StrConvWide = StrConvWide & "]" Case "\X" StrConvWide = StrConvWide & "^" Case "_" StrConvWide = StrConvWide & "`" Case "_X" StrConvWide = StrConvWide & "a" Case "b" StrConvWide = StrConvWide & "c" Case "bX" 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ǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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ǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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ǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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ǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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ǫ ' ޼ : ܴ@rrC ' ѭ : ܴsFrC '*************************************************** 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 ϥ@rwư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 '--------------------------------------------------- ' ޼ : ܴ@rrC,ܴBz ' ѭ : ܴsFrC '*************************************************** Function StrConv(sInp,eCnv) StrConv = sInp ' Cnv RMBzyq 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