FiveTech Software tech support forums

Hola buenas tardes para todos

En nuestra aplicación hacemos importación de varios archivos .CVS y de Excel, desde la aplicación podemos abrir el archivo como tal, pero como hago para abrir la carpeta que contiene el archivo?, entiendo que hay que abrir el explorador de archivos?

De antemano gracias.

Moises

Yo desarrolle mi propia funcion partiendo de este codigo en visual basic: https://www.analysisandsolutions.com/so ... cvs-vb.htm

Valida el numero e identifica que tarjeta es.

Muchos saludos

... ), "Total animals in these sequence:" )   EndIfRETURN Nil    I use the same system for index, create dbf and convert into xls,cvs,xlm

My test Conversion DBF to cvs comand : DoTXT(ndelimiter) ndelimiter can be {";",",","|"} default 1 #include "FiveWin.ch"#include "FileIo.ch"FUNCTION GenTxt(ndelimiter)     MsgRun('Sto ...

I saw it run good also with ascii files ( cvs)

LOCAL cFileCSV := "c:\dircvs\name.cvs" oTxtFile := TTxtFile():New( cFileCSV, 0 ) oTxtFile:Skip() //skip the first line of the header while !oTxtFile:lEoF() ?StrToken( oTxtFile:cLine, 1, ";" ) ?StrToken( oTxtFile:cLine, ...

LOCAL cFileCSV := "c:\dircvs\name.cvs" oTxtFile := TTxtFile():New( cFileCSV, 0 ) oTxtFile:Skip() //skip the first line of the header while !oTxtFile:lEoF() ?StrToken( oTxtFile:cLine, 1, ";" ) ?StrToken( oTxtFile:cLine, ...

... master DBF. Substitute the brackets with the file names you wish to use. USE [MASTER DBF] COPY STRUCTURE TO [TEMP DBF] USE [TEMP DBF] APPEND FROM [CVS FILE] DELIMITED Then you have to delete the first record since it will be the header record. This is the only reason you need a temp DBF. GO TOP ...

Marc, Does the first record of the CSV files, contain the fieldnames? What do you mean when you say you want to link the DBF and CVS files? Do you want to import the files into a standard DBF format? You say the CSV files are random in structure. Do you mean they contain the same data ...

Or, you are not using the correct compiler switches.

EMG

Enrico,

Thanks.

Well they all make sense. So, I would say they made some improvements in the compiler to catch these issues.

James

Sorry, no errors, only warnings: test.prg(11) Warning W0019  Duplicate declaration of Method 'METER'test.prg(28) Warning W0003  Variable: 'OMETER' declared but not used in function: 'TDATA_REINDEX(20)'test.prg(28) Warning W0003  Variable: 'OTEXT' declared but n...

Enrico,

Thanks for testing it.

Interesting that you got warnings and errors. I didn't get any when compiling it with my older version of FWH/xHarbour. Warnings I'm not concerned about, but what errors did you get?

Regards,
James

Your sample, after corrected some errors and warning, compiles fine here: #include "fivewin.ch"Function Main()Return nilClass TData   Method New()   Method BuildIndex()   Method Meter()   Method Reindex() endcl...

Everyone: I noticed that I forgot to assign bFor a codeblock. So here is the updated test program. Norberto, Can you please test compile this sample with your new xHarbour version to see if it errors? James #include "fivewin.ch"Function Main()Return nilClass TData   Data Meter   Me...