15/08/24 12:30:03.53 BBDOPljJ0.net
ググったらいいものがあった
;全角英数字を半角英数字に変換
WideToNarrow( str )
{
buf =
Loop , Parse , str
{
If( RegExMatch( A_LoopField , "[！-～]" ) )
{
code := Asc( A_LoopField ) - 65248
buf := buf . Chr( code )
}Else
{
buf := buf . A_LoopField
}
}
Return buf
}