![]() | ![]() | ![]() | ![]() | ![]() |
I wrote this example for someone who wanted to do pretty much what you see here, each record of a CSV file creates it's own html page. The name of the file is determined by the record number.
You should also have a look at the other multiple import example. The example on this page is similar but does things in a completely different way.
;---------------------------------------------------------------------------- ; MODULE NAME: IMPORT.IT ; ; DESCRIPTION: Example file of import of a comma delimited file where ; each record goes into its own file. The line number is ; used to name the file. ; ; ; Imported file looks like: ; ~~~~~~~~~~~~~~~~~~~~~~~~~ ; Dennis,Bareis,Programmer ; Wendy,Buxton,Librarian ; Fred,Nerk,Idiot ; ;---------------------------------------------------------------------------- ;--- Start and end main HTML file ------------------------------------------- <HTML> <HEAD> <TITLE>MAIN FILE</TITLE> </HEAD> <BODY> <H1>MAIN FILE</H1> <P>This is a fairly basic example kept simple on purpose to hopefully make things easier to understand. Basically we imported a comma delimited file (could have been fixed or other format) and generate the record into a new html page whose name depends on the line Number. ;--- Initialize a line count ------------------------------------------------ #RexxVar RecordLineCount = 0 ;--- Define HTML to start the import data files ----------------------------- #define StartsImportFiles \ ;--- Open the record's file ------------ -\ #output 'file_{$LineNum}.htm' ASIS -\ -\ ;--- Output Start of HTML page --------- -\ <HTML> %\ <HEAD> %\ <TITLE>IMPORTED: {$Desc}</TITLE> %\ <?PpwizardGeneratorMetaTags> %\ </HEAD> %\ <BODY> %\ <H1>IMPORTED: {$Desc}</H1> ;--- Define HTML to end the import data files ------------------------------- #define EndsImportFiles \ ;--- Output end of html page ----------- -\ </BODY></HTML> -\ -\ ;--- Close this HTML file -------------- -\ #output ;--- Prepare for import ----------------------------------------------------- #evaluate '' 'NL = d2c(10)' ;;NL = Newline Code #define IMPORT_PROTECT_START ;;We don't want imported data "protected" or #output etc won't get executed #define IMPORT_PROTECT_END #define IMPORT_HEADER ;;We will output our own headers #define IMPORT_BEFORE #define IMPORT_AFTER ;;We will output our own trailers #DefineRexx IMPORT_RECORD_FILTER ;--- Which output file should contain this record? --- RecordLineCount = RecordLineCount + 1; ;--- Make sure output will go to correct file -------- Codes = '<' || '$StartsImportFiles LineNum="' || RecordLineCount || '" Desc="FILE #' || RecordLineCount || '">' Codes = Codes || NL; Codes = Codes || ' <P>Column 1 = ' || Column.1; Codes = Codes || NL; Codes = Codes || ' <P>Column 2 = ' || Column.2; Codes = Codes || NL; Codes = Codes || ' <P>Column 3 = ' || Column.3; Codes = Codes || NL; Codes = Codes || '<' || '$EndsImportFiles>'; Codes = Codes || NL; Codes = Codes || NL; ThisRecordsCodes = Codes; #DefineRexx ;--- Import the data into the 'x' files ------------------------------------- #import INPUT.CMA CMA "" "First Name" "Surname" "Job" ;--- Report on the number of files created/records imported ----------------- <P>Thats all folks, created <??RecordLineCount $$AddComma> files. ;--- Finish off HTML for "control" page ------------------------------------- </BODY></HTML>
![]() | ![]() | ![]() | ![]() | ![]() |