>Function f_tiracaractersujo > Parameters par_string > Local i > For i=1 To 31 > If i<>9 .And. i<>10 .And. i<>13 > par_string=Strtran(par_string,Chr(i),"") > Endif > Endfor > Return par_string >>
ChrTran()
?x = "abcdefg" ? Chrtran(x,"abc","")No seu caso será mais como:
cSujos = Chr(1)+Chr(2)+...+Chr(31) lcXML = Chrtran(lcXML,cSujos,"") StrToFile(lcXML,"c:\temp\archivo.xml")