'########################################################### '# StrConv －關數 '# 作成  '# http://hp.vector.co.jp/authors/VA020411 '# [email protected] '########################################################### '*************************************************** ' 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 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 & " " Case "#" StrConvWide = StrConvWide & "＃" Case "$" StrConvWide = StrConvWide & "＄" Case "%" StrConvWide = StrConvWide & "％" Case "&" StrConvWide = StrConvWide & "＆" Case "'" StrConvWide = StrConvWide & " " Case "(" StrConvWide = StrConvWide & "（" Case ")" StrConvWide = StrConvWide & "）" Case "*" StrConvWide = StrConvWide & "＊" Case "+" StrConvWide = StrConvWide & "＋" Case "," StrConvWide = StrConvWide & "，" Case "-" StrConvWide = StrConvWide & "－" Case "." StrConvWide = StrConvWide & "．" Case "/" StrConvWide = StrConvWide & "／" Case ":" StrConvWide = StrConvWide & "：" Case ";" StrConvWide = StrConvWide & "；" Case "<" StrConvWide = StrConvWide & "＜" Case "=" StrConvWide = StrConvWide & "＝" Case ">" StrConvWide = StrConvWide & "＞" Case "?" StrConvWide = StrConvWide & "？" Case "@" StrConvWide = StrConvWide & "＠" Case "[" StrConvWide = StrConvWide & "〔" Case "]" StrConvWide = StrConvWide & "〕" Case "^" StrConvWide = StrConvWide & "　" Case "_" StrConvWide = StrConvWide & "ˍ" Case "`" StrConvWide = StrConvWide & "‵" Case "{" StrConvWide = StrConvWide & "｛" Case "|" StrConvWide = StrConvWide & "∣" Case "}" StrConvWide = StrConvWide & "｝" Case "~" StrConvWide = StrConvWide & "～" Case "‧" StrConvWide = StrConvWide & "。" Case "「" StrConvWide = StrConvWide & "「" Case "」" StrConvWide = StrConvWide & "」" Case "、" StrConvWide = StrConvWide & "、" Case "．" StrConvWide = StrConvWide & "‧" Case "？" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "－" StrConvWide = StrConvWide & "－" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "｜" Case "°" StrConvWide = StrConvWide & "　" Case " " StrConvWide = StrConvWide & "　" Case "!" StrConvWide = StrConvWide & "！" Case """" StrConvWide = StrConvWide & " " Case "#" StrConvWide = StrConvWide & "＃" Case "$" StrConvWide = StrConvWide & "＄" Case "%" StrConvWide = StrConvWide & "％" Case "&" StrConvWide = StrConvWide & "＆" Case "'" StrConvWide = StrConvWide & " " Case "(" StrConvWide = StrConvWide & "（" Case ")" StrConvWide = StrConvWide & "）" Case "*" StrConvWide = StrConvWide & "＊" Case "+" StrConvWide = StrConvWide & "＋" Case "," StrConvWide = StrConvWide & "，" Case "-" StrConvWide = StrConvWide & "－" Case "." StrConvWide = StrConvWide & "．" Case "/" StrConvWide = StrConvWide & "／" Case ":" StrConvWide = StrConvWide & "：" Case ";" StrConvWide = StrConvWide & "；" Case "<" StrConvWide = StrConvWide & "＜" Case "=" StrConvWide = StrConvWide & "＝" Case ">" StrConvWide = StrConvWide & "＞" Case "?" StrConvWide = StrConvWide & "？" Case "@" StrConvWide = StrConvWide & "＠" Case "[" StrConvWide = StrConvWide & "〔" Case "]" StrConvWide = StrConvWide & "〕" Case "^" StrConvWide = StrConvWide & "　" Case "_" StrConvWide = StrConvWide & "ˍ" Case "`" StrConvWide = StrConvWide & "‵" Case "{" StrConvWide = StrConvWide & "｛" Case "|" StrConvWide = StrConvWide & "∣" Case "}" StrConvWide = StrConvWide & "｝" Case "~" StrConvWide = StrConvWide & "～" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "‧" StrConvWide = StrConvWide & "。" Case "「" StrConvWide = StrConvWide & "「" Case "」" StrConvWide = StrConvWide & "」" Case "、" StrConvWide = StrConvWide & "、" Case "．" StrConvWide = StrConvWide & "‧" Case "？" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "－" StrConvWide = StrConvWide & "－" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "〞" StrConvWide = StrConvWide & "" Case "°" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" StrConvWide = StrConvWide & "" Case "" 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 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 "‧" 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 " " StrConvNarrow = StrConvNarrow & "|" Case " " StrConvNarrow = StrConvNarrow & "'" Case " " StrConvNarrow = StrConvNarrow & """" Case "‧" StrConvNarrow = StrConvNarrow & "．" Case " " StrConvNarrow = StrConvNarrow & "|" Case " " StrConvNarrow = StrConvNarrow & "'" Case " " 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 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 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