Function EChar(ParaStr) ParaStr=trim(ParaStr) ParaStr=replace(ParaStr,chr(39),"'") ParaStr=replace(ParaStr,chr(34),""") EChar=ParaStr End function
Function DChar(ParaStr) ParaStr=replace(ParaStr,"'",chr(39)) ParaStr=replace(ParaStr,""",chr(34)) DChar=ParaStr End function