Jeans & Development コンピューターのことなどを綴ったメモ (旧：目から鱗 w/SQLite)

function ereg_replace_sub(pattern,replacement,T,IgnoreCase)
  with (New RegExp)
    .Pattern = pattern
    .IgnoreCase = IgnoreCase
    .Global = True
    ereg_replace_sub=.replace(T,replacement)
  end with
end function
function ereg_replace(pattern,replacement,T)
  ereg_replace=ereg_replace_sub(pattern,replacement,T,false)
end function
function eregi_replace(pattern,replacement,T)
  eregi_replace=ereg_replace_sub(pattern,replacement,T,true)
end function