' ----------------------------------------------------------
' table tag안에 br을 제거한다.
' ----------------------------------------------------------
function conv_nl(str)
'str = stripslashes($str);
str = eregi_replace("<br>(\r\n|\n\r|\r|\n)", vbLf, str)
str = ereg_replace("(\r\n|\n\r|\r)", vbLf, str)
' table안에 \n이 br로 치환되지 않도록 구분함.
str = eregi_replace("<(/?(TABLE|TR|TH|TD)[^>]*)> *\n", "<$1>\t_nl_\t", str)
' table태그 앞에 공백을 없앤다.
str = eregi_replace(" *<(/?(TABLE|TR|TH|TD)+)", "<$1", str)
' <, > 태그 안에 \n 제거
str = ereg_replace("<([^><\n]*)\n+([^><\n]*)>", "<$1 $2>", str)
str = ereg_replace("\n[:space:]*\n", "<BR>" & vbLf, str)
str = ereg_replace("\n\n", "<BR><BR>" & vbLf, str)
str = nl2br(str)
str = ereg_replace("\t_nl_\t", vbLf, str)
str = eregi_replace("</?pre>", "", str)
conv_nl = str
end functio
