functionreplacestr(str)

dimre

setre=newregexp

re.ignorecase=true

re.global=true

re.pattern="D"

str=re.replace(str,"")

replacestr=str

setre=nothing

endfunction