PC Toledo

Caros,
Estou fazendo um pequeno programa que recebe o nome de um arquivo como parametro para fazer algumas leituras, só que alguns arquivos com acentuação no nome do mesmo, não estão funcionando:
Exemplo: "MovimentaçãoPixBB (43).txt"

quando executo:
processa "MovimentaçãoPixBB (43).txt"

e dentro do aplicativo testo um if file(), retorna que o arquivo não existe.


Como resolver?

Faça um teste usando o caminho completo do arquivo e, usando: hb_FileExists()

exemplo:

if hb_FileExists('c:\arquivo\MovimentaçãoPixBB (43).txt')
alert('achou')
else
alert('nao achou')
endif

Olá!
Tem que usar a mesma página de código do nome do arquivo.
No editor do prg usando pagina (x) no seu aplicativo 850 e foi criado o arquivo usando UTF8.(hipótese)

Saudações,
Itamar M. Lins Jr.

Itamar M. Lins Jr. escreveu:Olá!
Tem que usar a mesma página de código do nome do arquivo.
No editor do prg usando pagina (x) no seu aplicativo 850 e foi criado o arquivo usando UTF8.(hipótese)

Saudações,
Itamar M. Lins Jr.

Abrindo o arquivo pelo VSCode indica que o mesmo foi feito em UTF8, o conteúdo dele está em UTF8, o problema está no parâmetro que passo do prompt, esse parâmetro que não estou conseguindo converter, se eu forçar um if file("Movimentação.txt") por exemplo funciona, o problema é que os acentos do nome do arquivo ele buga na conversão.

sygecom escreveu:Faça um teste usando o caminho completo do arquivo e, usando: hb_FileExists()

Deu o mesmo erro, acusando que o arquivo não existe.

Um teste, se eu usar a função directory("mov*.txt") ele pega o nome corretos dos arquivos, o problema esta quando chamo:
meuPrograma <nomeDoArquivo>.txt

Olá!
Saudações,
Itamar M. Lins Jr.

Achei a solução em uma resposta antiga do Przmek na lista do harbour, por padrão as strings passadas pelo prompt de comando como argumentos sempre vem com o codepage EN, e os parametros recebidos antes de conseguir mudar o codepage no main, logo, buga os caracteres antes, o jeito é executar a mudança de codepage antes do main.

INIT PROCEDURE CLIPINIT
SET(_SET_CODEPAGE,"PT850")
RETURN

essa procedure é executada antes do main.

Talvez assim:
Se der certo, pode passar a receber uma lista de arquivos, e não apenas um.