HMGforum.com

I need to parse a tab delimited text file into a DBF.

Each line ends with ascii(182). Need to read line by line so I can parse and format the data and then put into the DBF. Example code would be most appreciated.

[u]Moderator Notes[/u] (Pablo César) wrote:Message and title have been re-edited also replaced from Self Introduction section, because it contains technical questions. And message/topic title was re-edited.

Have you well come to forum !

You need to make your own routine, reading your text in file, line by line. I indicate to you to do it thru low level functions (FOpen, FRead, FClose). These functions you should be aware in Clipper, it's better way and safe.

NickSteel wrote:I'm new to HMG (old to Clipper) and need a little information.

I need to parse a tab delimited text file into a DBF.

Each line ends with ascii(182). Need to read line by line so I can parse and format the data and then put into the DBF. Example code would be most appreciated.

Hi Nick, welcome aboard

The method may depends size of file.

If could you send a little portion ( 10-20 line ) and notify size of file, will be possible suggesting more specific way(s).

Happy HMG'ing

The file is huge and has different line formats. Have to do it line by line. If I can get a line in, I can figure out how to parse it. Can you post an example with Fopen(), Fclose(). Long time since I used low level Clipper commands.

Thanks in advance.

ERMHDR 6.2.1 2013-05-09 Project xxlni8 GEP - Leo Nicholson dbxDatabaseNoName Project Management USD
%T CURRTYPE
%F curr_id decimal_digit_cnt curr_symbol decimal_symbol digit_group_symbol pos_curr_fmt_type neg_curr_fmt_type curr_type curr_short_name group_digit_cnt base_exch_rate
%R 1 2 $ . , #1.1 (#1.1) Dollar USD 3 1
%R 10 2 $ . , #1.1 (#1.1) Argentine Peso ARS 3 3.077
%R 11 2 A$ . , #1.1 (#1.1) Australian Dollar AUST 3 1.208
%R 13 2 R$ . , #1.1 (#1.1) Brazilian Real BRL 3 2.014

%T MEMOTYPE
%F memo_type_id seq_num eps_flag proj_flag wbs_flag task_flag memo_type
%R 921 1 Y Y Y Y General Comments
%R 31323 527 N N N Y SAP Order Header Long Text
%T OBS
%F obs_id parent_obs_id guid seq_num obs_name obs_descr
%R 565 0 America's Capital Projects

This routine I used in STRU app.
I hope to be useful.

Thanks, guys. Especially for the sample code!

Trying everything and failing. Cannot get the code above to compile (syntax error & MAKEARRAY17).

I've been trying to find a sample with FOPEN(), FREAD(), FREADSTR(), FWRITE(), etc that works.

NickSteel wrote:Trying everything and failing. Cannot get the code above to compile (syntax error & MAKEARRAY17).

Try to replace this:

Aadd(aLine,&(cLine))

changing to:

Aadd(aLine,cLine)

And let me know is working. This macro character I've have been used due my text in file are with quotes characters at begining and final of each line. But seems is not same case for you...

This seems to be working. I inserted a msginfo(cLine) so I can see the text. What is easy way to display the array?

And..................

This is very clever code! I know it will solve my problem, as it reads the source file line by line.

NickSteel wrote:What is easy way to display the array?

I usually use DebugMSG function from our colleague Marek. Hereunder is: Put in you code and call this function like this: DebugMSG(aLine)

This is very clever code! I know it will solve my problem, as it reads the source file line by line.

Thank you and glad to know it has been helpful to you...