/////// para ler o arquivo em Unicode gerado por um app feito em Windev Mobile para Android ou iOS

MyUnicodeString is UNICODE string
sLine is string = ""
sTextFileUnicode is string = "c:\tmp\00010101.txt"// formato Unicode
mLinha is string

// aqui coloquei o parametro "foAnsi"

MyUnicodeString = fLoadText(sTextFileUnicode,foAnsi)// carregar o texto

// aqui coloquei o parametro "charsetAnsi"

sLine = UnicodeToAnsi(MyUnicodeString,charsetAnsi)// converter o texto

ListDeleteAll(ListBox1)
ListAdd(ListBox1,sLine)// jogar o texto convertido em um ListBox

FOR EACH ROW OF ListBox1// ler linha a linha e tratá-la de acordo com as suas regras
mLinha = ListBox1..DisplayedValue// receber o conteudo de cada linha do texto
Trace(mLinha)// visualizar o conteudo lido em mLinha para efeito didático apenas
END

////////////////// FIM //////////////////

// para gravar o arquivo em unicode por um app iOS/Android feito em Windev Mobile

xFLagOk is boolean
FileID is int = fCreate(DirPadrao+mArquivo,foAnsi) // aqui coloquei o parametro "foAnsi"
IF FileID=-1 THEN
Info("Erro ao criar arquivo.")
xFlagOk=False
RETURN
END

... // ponha o seu codigo aqui
... // ponha o seu código aqui

// aqui coloquei o parâmetro ftpASCIIMode

EnviarArquivo is boolean=FTPSend(MinhaConexao,DirPadrao+mArquivo,CompleteDir(xPastaPedidos),"",ftpASCIIMode)
IF EnviarArquivo=False THEN
Error("Erro ao enviar arquivo para o FTP.",ErrorInfo())
Info("Arquivo não foi enviado.","Tente enviá-lo novamente.")
xFlagOk=False
RETURN
END