ライブラリ眺めてたら、大文字化・小文字化はあったんだけども全角⇔半角変換が見当たらなかった。
※※※ 追記・訂正 ※※※
ノードの方に『全角化／半角化』ありました。
ググったら、素晴らしいスクリプトを公開している記事を見つけたので、WinActorで早速使えるようにしてみました。
オプションで、以下の変換を選んで実行できる様にしてあります。
- 全角⇒半角（英数記号カタカナ）
- 全角⇒半角（英数記号のみ）
- 全角⇒半角（カタカナのみ）
- 半角⇒全角（英数記号カタカナ）
- 半角⇒全角（英数記号のみ）
- 半角⇒全角（カタカナのみ）
スクリプト実行のスクリプトタブに以下のスクリプトを張り付けて下さい。
Dim objCWN, SrcStr, ConvType, RsltVal, Rslt
SrcStr = !変換前の文字列!
ConvType = !変換内容|全⇒半(ALL),全⇒半(英数記),全⇒半(カナ),半⇒全(ALL),半⇒全(英数記),半⇒全(カナ)!
RsltVal = $変換した結果$
Set objCWN = New CharWideNarrow
Select Case ConvType
Case "全⇒半(ALL)"
Rslt = objCWN.ToNarrowAll(SrcStr)
Case "全⇒半(英数記)"
Rslt = objCWN.ToNarrowASCII(SrcStr)
Case "全⇒半(カナ)"
Rslt = objCWN.ToNarrowKANA(SrcStr)
Case "半⇒全(ALL)"
Rslt = objCWN.ToWideAll(SrcStr,False)
Case "半⇒全(英数記)"
Rslt = objCWN.ToWideASCII(SrcStr)
Case "半⇒全(カナ)"
Rslt = objCWN.ToWideKANA(SrcStr,True)
End Select
Call SetUMSVariable(RsltVal , Rslt)
Set objCWN = Nothing
Class CharWideNarrow
Dim widedicASCII, widedicANK, narrowdicASCII, narrowdicANK
Dim x
Private Sub Class_Initialize()
'コンストラクタ
Set widedicASCII = CreateObject("Scripting.Dictionary")
Set widedicANK = CreateObject("Scripting.Dictionary")
Set narrowdicASCII = CreateObject("Scripting.Dictionary")
Set narrowdicANK = CreateObject("Scripting.Dictionary")
With narrowdicANK
'表の作成
.Add "゜", "ﾟ"
.Add "゛", "ﾞ"
.Add "ヴ", "ｳﾞ"
.Add "ン", "ﾝ"
.Add "ヲ", "ｦ"
.Add "ヱ", "ｳｪ"
.Add "ヰ", "ｳｨ"
.Add "ワ", "ﾜ"
.Add "ヮ", "ﾜ"
.Add "ロ", "ﾛ"
.Add "レ", "ﾚ"
.Add "ル", "ﾙ"
.Add "リ", "ﾘ"
.Add "ラ", "ﾗ"
.Add "ヨ", "ﾖ"
.Add "ョ", "ｮ"
.Add "ユ", "ﾕ"
.Add "ュ", "ｭ"
.Add "ヤ", "ﾔ"
.Add "ャ", "ｬ"
.Add "モ", "ﾓ"
.Add "メ", "ﾒ"
.Add "ム", "ﾑ"
.Add "ミ", "ﾐ"
.Add "マ", "ﾏ"
.Add "ポ", "ﾎﾟ"
.Add "ボ", "ﾎﾞ"
.Add "ホ", "ﾎ"
.Add "ペ", "ﾍﾟ"
.Add "ベ", "ﾍﾞ"
.Add "ヘ", "ﾍ"
.Add "プ", "ﾌﾟ"
.Add "ブ", "ﾌﾞ"
.Add "フ", "ﾌ"
.Add "ピ", "ﾋﾟ"
.Add "ビ", "ﾋﾞ"
.Add "ヒ", "ﾋ"
.Add "パ", "ﾊﾟ"
.Add "バ", "ﾊﾞ"
.Add "ハ", "ﾊ"
.Add "ノ", "ﾉ"
.Add "ネ", "ﾈ"
.Add "ヌ", "ﾇ"
.Add "ニ", "ﾆ"
.Add "ナ", "ﾅ"
.Add "ド", "ﾄﾞ"
.Add "ト", "ﾄ"
.Add "デ", "ﾃﾞ"
.Add "テ", "ﾃ"
.Add "ヅ", "ﾂﾞ"
.Add "ツ", "ﾂ"
.Add "ッ", "ｯ"
.Add "ヂ", "ﾁﾞ"
.Add "チ", "ﾁ"
.Add "ダ", "ﾀﾞ"
.Add "タ", "ﾀ"
.Add "ゾ", "ｿﾞ"
.Add "ソ", "ｿ"
.Add "ゼ", "ｾﾞ"
.Add "セ", "ｾ"
.Add "ズ", "ｽﾞ"
.Add "ス", "ｽ"
.Add "ジ", "ｼﾞ"
.Add "シ", "ｼ"
.Add "ザ", "ｻﾞ"
.Add "サ", "ｻ"
.Add "ゴ", "ｺﾞ"
.Add "コ", "ｺ"
.Add "ゲ", "ｹﾞ"
.Add "ケ", "ｹ"
.Add "グ", "ｸﾞ"
.Add "ク", "ｸ"
.Add "ギ", "ｷﾞ"
.Add "キ", "ｷ"
.Add "ガ", "ｶﾞ"
.Add "カ", "ｶ"
.Add "オ", "ｵ"
.Add "ォ", "ｫ"
.Add "エ", "ｴ"
.Add "ェ", "ｪ"
.Add "ウ", "ｳ"
.Add "ゥ", "ｩ"
.Add "イ", "ｲ"
.Add "ィ", "ｨ"
.Add "ア", "ｱ"
.Add "ァ", "ｧ"
.Add "ー", "ｰ"
.Add "・", "･"
.Add "、", "､"
.Add "」", "｣"
.Add "「", "｢"
.Add "。", "｡"
'逆引き表の作成
For Each x In .Keys
If widedicANK.Exists( .Item(x) ) = False Then
widedicANK.Add .Item(x), x
End If
Next
End With
With narrowdicASCII
'表の作成
.Add "～", "~"
.Add "｝", "}"
.Add "｜", "|"
.Add "｛", "{"
.Add "ｚ", "z"
.Add "ｙ", "y"
.Add "ｘ", "x"
.Add "ｗ", "w"
.Add "ｖ", "v"
.Add "ｕ", "u"
.Add "ｔ", "t"
.Add "ｓ", "s"
.Add "ｒ", "r"
.Add "ｑ", "q"
.Add "ｐ", "p"
.Add "ｏ", "o"
.Add "ｎ", "n"
.Add "ｍ", "m"
.Add "ｌ", "l"
.Add "ｋ", "k"
.Add "ｊ", "j"
.Add "ｉ", "i"
.Add "ｈ", "h"
.Add "ｇ", "g"
.Add "ｆ", "f"
.Add "ｅ", "e"
.Add "ｄ", "d"
.Add "ｃ", "c"
.Add "ｂ", "b"
.Add "ａ", "a"
.Add "‘", "`"
.Add "＿", "_"
.Add "＾", "^"
.Add "］", "]"
.Add "￥", "\"
.Add "［", "["
.Add "Ｚ", "Z"
.Add "Ｙ", "Y"
.Add "Ｘ", "X"
.Add "Ｗ", "W"
.Add "Ｖ", "V"
.Add "Ｕ", "U"
.Add "Ｔ", "T"
.Add "Ｓ", "S"
.Add "Ｒ", "R"
.Add "Ｑ", "Q"
.Add "Ｐ", "P"
.Add "Ｏ", "O"
.Add "Ｎ", "N"
.Add "Ｍ", "M"
.Add "Ｌ", "L"
.Add "Ｋ", "K"
.Add "Ｊ", "J"
.Add "Ｉ", "I"
.Add "Ｈ", "H"
.Add "Ｇ", "G"
.Add "Ｆ", "F"
.Add "Ｅ", "E"
.Add "Ｄ", "D"
.Add "Ｃ", "C"
.Add "Ｂ", "B"
.Add "Ａ", "A"
.Add "＠", "@"
.Add "？", "?"
.Add "＞", ">"
.Add "＝", "="
.Add "＜", "<"
.Add "；", ";"
.Add "：", ":"
.Add "９", "9"
.Add "８", "8"
.Add "７", "7"
.Add "６", "6"
.Add "５", "5"
.Add "４", "4"
.Add "３", "3"
.Add "２", "2"
.Add "１", "1"
.Add "０", "0"
.Add "／", "/"
.Add "．", "."
.Add "－", "-"
.Add "，", ","
.Add "＋", "+"
.Add "＊", "*"
.Add "）", ")"
.Add "（", "("
.Add "’", "'"
.Add "＆", "&"
.Add "％", "%"
.Add "＄", "$"
.Add "＃", "#"
.Add "”", """"
.Add "！", "!"
.Add " ", " "
'逆引き表の作成
For Each x In .Keys
widedicASCII.Add .Item(x), x
Next
End With
End Sub
Private Sub Class_Terminated()
'デストラクタ
Set widedicASCII = Nothing
Set widedicANK = Nothing
Set narrowdicASCII = Nothing
Set narrowdicANK = Nothing
End Sub
Function ToNarrowAll( byref str )
Dim rtn, max_, char_, trns_
rtn = ""
max_ = len( str )
For i = 1 to max_
char_ = Mid( str,i,1 )
If narrowdicASCII.Exists( char_ ) Then
trns_ = narrowdicASCII.Item( char_ )
Else
If narrowdicANK.Exists( char_ ) Then
trns_ = narrowdicANK.Item( char_ )
Else
trns_ = char_
End If
End If
rtn = rtn & trns_
Next
ToNarrowAll = rtn
End Function
Function ToNarrowASCII( byref str )
Dim rtn, max_, char_, trns_
rtn = ""
max_ = len( str )
For i = 1 to max_
char_ = Mid( str,i,1 )
If narrowdicASCII.Exists( char_ ) Then
trns_ = narrowdicASCII.Item( char_ )
Else
trns_ = char_
End If
rtn = rtn & trns_
Next
ToNarrowASCII = rtn
End Function
Function ToNarrowKANA( byref str )
Dim rtn, max_, char_, trns_
rtn = ""
max_ = len( str )
For i = 1 to max_
char_ = Mid( str,i,1 )
If narrowdicANK.Exists( char_ ) Then
trns_ = narrowdicANK.Item( char_ )
Else
trns_ = char_
End If
rtn = rtn & trns_
Next
ToNarrowKANA = rtn
End Function
Function ToWideAll( byref str , byval option_ )
Dim rtn, max_, char_, trns_, next_c, flg_nextc_trns
rtn = ""
max_ = len( str ) - 1
flg_nextc_trns = False
For i = 1 to max_
If flg_nextc_trns = True Then
flg_nextc_trns = False
Else
char_ = Mid( str, i , 1 )
next_c = Mid( str, i+1 , 1 )
Select Case next_c
Case "ﾟ" , "ﾞ"
If widedicANK.Exists( char_ & next_c ) Then
char_ = char_ & next_c
flg_nextc_trns = True
End If
Case "ｨ" , "ｪ"
If Option_ Then
If widedicANK.Exists( char_ & next_c ) Then
char_ = char_ & next_c
flg_nextc_trns = True
End If
End If
Case Else
End Select
If widedicASCII.Exists( char_ ) Then
trns_ = widedicASCII.Item( char_ )
Else
If widedicANK.Exists( char_ ) Then
trns_ = widedicANK.Item( char_ )
Else
trns_ = char_
End If
End If
rtn = rtn & trns_
End If
Next
If flg_nextc_trns = False Then
char_ = Right( str, 1 )
If widedicASCII.Exists( char_ ) Then
trns_ = widedicASCII.Item( char_ )
Else
If widedicANK.Exists( char_ ) Then
trns_ = widedicANK.Item( char_ )
Else
trns_ = char_
End If
End If
rtn = rtn & trns_
End If
ToWideAll = rtn
End Function
Function ToWideASCII( byref str )
Dim rtn, max_, char_, trns_
rtn = ""
max_ = len( str )
For i = 1 to max_
char_ = Mid( str,i, 1 )
If widedicASCII.Exists( char_ ) Then
trns_ = widedicASCII.Item( char_ )
Else
trns_ = char_
End If
rtn = rtn & trns_
Next
ToWideASCII = rtn
End Function
Function ToWideKANA( byref str , byval option_ )
Dim rtn, max_, char_, trns_, next_c, flg_nextc_trns
rtn = ""
max_ = len( str ) - 1
flg_nextc_trns = False
For i = 1 to max_
If flg_nextc_trns = True Then
flg_nextc_trns = False
Else
char_ = Mid( str, i , 1 )
next_c = Mid( str, i+1 , 1 )
Select Case next_c
Case "ﾟ" , "ﾞ"
If widedicANK.Exists( char_ & next_c ) Then
char_ = char_ & next_c
flg_nextc_trns = True
End If
Case "ｨ" , "ｪ"
If option_ Then
If widedicANK.Exists( char_ & next_c ) Then
char_ = char_ & next_c
flg_nextc_trns = True
End If
End If
Case Else
End Select
If widedicANK.Exists( char_ ) Then
trns_ = widedicANK.Item( char_ )
Else
trns_ = char_
End If
rtn = rtn & trns_
End If
Next
If flg_nextc_trns = False Then
char_ = Right( str, 1 )
If widedicANK.Exists( char_ ) Then
trns_ = widedicANK.Item( char_ )
Else
trns_ = char_
End If
rtn = rtn & trns_
End If
ToWideKANA = rtn
End Function
End Class
張り付けると、設定画面はこんな感じになります。
