>Alex,
>
>Ótima ideia a sua ! Tratar apenas o "XML" é muito mais fácil do que fazer algo durante o select !
>
>Fiz uma função para tirar os caracteres sujos :
>
>>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
>
>
>Isso teoricamente resolverá. Vou testar bastante e te conto o resultado.
>
>ObrigadoPorque não
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")