質問: .readall 'テキスト文書の内容を文字列aに代入 .close '指定したファイルを閉じる end with end sub
回答: 中途半端な回答ですみません。最初に謝っときます。 何が中途半端かというと。 (123) や (12)などのように全て半角か全角の場合は変換します。 括弧の両側が半角・全角で揃っていなくても大丈夫。 しかし、括弧の中の数字に半角・全角が混じっていたら見逃してしまいます。 他にも漏れがあるかもしれません。。。 function replacexx(byval arg as variant) as string dim org as object dim match as object dim matches as object if isnull(arg) then replacexx = null exit function end if set org = createobject("vbscript.regexp") org.pattern = "(\(|\()([1-9][0-9]{0,}|[1-9][0-9]{0,})(\)|\))" org.global = true set matches = org.execute(arg) for each match in matches arg = replace(arg, match.value, "", compare:=vbtextcompare) next replacexx = arg set org = nothing end function