FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour 驴c贸mo hago para verificar que un archivo sea de texto?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
驴c贸mo hago para verificar que un archivo sea de texto?
Posted: Thu Mar 15, 2012 02:28 PM

Hola.

Necesito arrastar archivos a un dialogo, pero q solo sean del tipo TXT.
Hay alguna funcion que pasandole el archivo me diga de que tipo es?

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: 驴c贸mo hago para verificar que un archivo sea de texto?
Posted: Thu Mar 15, 2012 04:13 PM

Hola Goosfancito,,,
Talvez verificando que los primeros 100 caracteres correspondan al alfabeto o a caracteres "legibles".....
Salu2

Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: 驴c贸mo hago para verificar que un archivo sea de texto?
Posted: Fri Mar 16, 2012 10:25 AM

Viejo,
Como andas, aca retomando luego de una ida!
He leido que el HEAD de los archivos llevan los tipos de los mismos y de ahi pod茅s averiguar, pero no se como hacer para leer la cabecera del tipo de archivo.

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: 驴c贸mo hago para verificar que un archivo sea de texto?
Posted: Sat Mar 17, 2012 05:56 PM
Prueba asi:
Code (fw): Select all Collapse
...
..
.
    hHandle := FOpen(cFile)
    FRead(hHandle, @cTxTmp, 64000)
    FCLose(hHandle)
    If ......(cTxt ) .....
..
..

Continue the discussion