Import Multiple file

[mazatec]

I currently have an import script that works on one file. I need it to import multiple files from one directory. The catch is i only want to import the ones that have _hdr at the end of the file name. All file extensions are .txt.

Any help would be greatly appreciated.

Regards,
Beau

[Stan Mathews]

Re: Import Multiple file

Would it be too much to ask to show us the script you have now so we could suggest modifications or do you want us to guess

the name of the table being imported to
the path to the files to be imported
the number of and names of the fields to be imported
the file type being imported

[Stan Mathews]

Re: Import Multiple file

The FILEFIND.GET() method creates a CR-LF delimited string with information about the files in a directory that match a pattern.

list = filefind.get("f:\a5v5\*_hdr.*",0,"PN")

will return a list of all the files on the F drive in the a5v5 folder that have "_hdr" immediately preceeding the . in the filename.ext.

The FOR EACH ... NEXT operators allow you to step through a list, collection, or array without knowing the number of elements that it contains.

so if you modify your script to make the first line (setting the appropriate drive and path)

list = filefind.get("f:\a5v5\*_hdr.*",0,"PN")
for each entry in list
'your present import script here
next

you only need change the line in your present script

import.file = somethingherenow
to

import.file = entry

[mazatec]

Re: Import Multiple file

hi stan,

thanks for the reply, here is the script made from the import builder.

temporary_import_table = file.temp_path_get()+ "partqahead_temp_table.dbf"
import_destination_table = "partqahead"

import_filename = filename_decode("[PathAlias.ADB_Path]\results\601 hsg_360-10_hdr.txt")
if file.exists(import_filename) = .f. then
	ui_msg_box("Error","File to import not found: '"+import_filename+"'.",ui_stop_symbol)
	end
end if


ON ERROR GOTO ERROR20022011004819405


import.type = 0
import.names = "use"
import.file = import_filename
import.db = temporary_import_table
import.skip_lines = 0
import.skip_bytes = 0
import.field_sep = "<TAB>"
import.record_sep = "<CR><LF>"
import.text_qualifier = ""
import.record_len = 0
import.rem_blanks = .F.
import.escape_newlines = .F.
import.import_encoding = "default"
import.fields = 7
import.field1 = "partid,c,0,7,0"
import.field2 = "serialid,c,1,6,0"
import.field3 = "operator,c,3,6,0"
import.field4 = "device,c,7,7,0"
import.field5 = "software,c,11,7,0"
import.field6 = "softvers,c,12,6,0"
import.field7 = "drwno,c,20,13,0"
import()


a_tbl = table.open(import_destination_table)
append.t_db = temporary_import_table
append.m_key = ""
append.t_key = ""
append.m_filter = ""
append.t_filter = ""
append.type = "All"
append.m_count = 7
append.m_field1 = "PARTID"
append.m_exp1 = "@partqahead_temp_table->PARTID"
append.m_field2 = "SERIALID"
append.m_exp2 = "@partqahead_temp_table->SERIALID"
append.m_field3 = "OPERATOR"
append.m_exp3 = "@partqahead_temp_table->OPERATOR"
append.m_field4 = "DEVICE"
append.m_exp4 = "@partqahead_temp_table->DEVICE"
append.m_field5 = "SOFTWARE"
append.m_exp5 = "@partqahead_temp_table->SOFTWARE"
append.m_field6 = "SOFTVERS"
append.m_exp6 = "@partqahead_temp_table->SOFTVERS"
append.m_field7 = "DRWNO"
append.m_exp7 = "@partqahead_temp_table->DRWNO"
append.t_count = 0
a_tbl.append()


GOTO CONTINUE20022011004819405
ERROR20022011004819405:
ON ERROR GOTO 0
ui_msg_box("Error","Error running Import Operation"+crlf()+error_text_get())
END
CONTINUE20022011004819405:

a_tbl.close()

'In case the destination table is not already in the Database, add it...
file_add_to_db(table.filename_get(import_destination_table))
'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then
	if topparent.Class() = "form" .or. topparent.class() = "browse" then
		topparent.Refresh_layout()
	end if
end if

[mazatec]

Re: Import Multiple file

Thanks for your help stan i managed to get it working. at the end of each file there is an end record, is there any way of omitting this from the import?

Beau

[Stan Mathews]

Re: Import Multiple file

I don't think you can omit it from the import but you can easily delete it.

Inside the for each...next loop but after the append insert

b_tbl = table.open("partqahead")
b_tbl.fetch_last()
b_tbl.change_begin()
b_tbl.delete()
b_tbl.change_end(.T.)
b_tbl.close(()

This will delete the last record after each import.

[Garry Flanigan]

Re: Import Multiple file

Stan is absolutely correct with his answer to your question. However, I suggest that you should check that the last record is blank before deleting.

b_tbl = table.open("partqahead")
b_tbl.fetch_last()
if alltrim(b_tbl.[COLOR="Red"]somefield[/COLOR]) = "" then
    b_tbl.change_begin()
    b_tbl.delete()
    b_tbl.change_end(.T.)
end if
b_tbl.close()

where somefield is changed to a field name that you know will (should?) contain a value in the import.