2006-04-26 ■ 仕事 msAccess (;´Д`)ハァ〜 眠ぃ・・・。 n種類の文字列を置き換える(1) 地番の名称を "-"(半角ハイフン)に置き換える Replace([mmts],"丁目","-") Replace([mmts],"番","-") Replace([mmts],"号","-") Replace(Replace(Replace([mmts],"丁目","-"),"番","-"),"号","-") n種類の文字列を置き換える(2) 漢数字を半角数字に置き換える Replace([mmts],"一丁目","1-") Replace([mmts],"二丁目","2-") Replace([mmts],"三丁目","3-") Replace(Replace(Replace([mmts],"一丁目","1-"),"二丁目","2-"),"三丁目","3-") 全角文字(2バイト)を半角文字(1バイト)に変換する StrConv([mmts],8) 文字列(番地)を取り出す Right([mmts],n) Len([mmts]) InStr(1,[mmts],"1"Or"2"Or"3"Or〜"9") Right([mmts],Len([mmts])-InStr(1,[mmts],"1"Or"2"Or"3"Or〜"9",0)-1) 全角文字(2バイト)を半角文字(1バイト)に変換する StrConv([mmts],8) アルファベットを大文字に変換する StrConv([mmts],1) アルファベットを半角大文字に変換する StrConv(StrConv([mmts],8),1)