| I found an old taf that I once used to import a text file, I tried to make it work today, but it failed. After uploading the tab delimited text file, it goes through this to clean it up. <@COMMENT>############################ This is where we set the delimiters for the written array. ###########################</@COMMENT> <@ASSIGN local$FileData <@OMIT STR="<@ARG FileData>" CHARS="<@CHAR 12>">> <@ASSIGN local$FileData <@REPLACE STR="@@FileData" FINDSTR="<@DQ><@DQ>" REPLACESTR="<@SQ><@SQ>">> <@ASSIGN local$FileData <@OMIT STR="@@FileData" CHARS="<@DQ>">> <@ASSIGN local$FileData <@REPLACE STR="@@FileData" FINDSTR="<@SQ><@SQ>" REPLACESTR="<@DQ>">> <@ASSIGN local$FileData <@REPLACE STR="@@FileData" FINDSTR="<@SQ>" REPLACESTR="`">> <@ASSIGN local$FileData <@OMIT STR="@@FileData" CHARS="<@SQ>">> <@ASSIGN local$FileData <@REPLACE STR="@@FileData" FINDSTR="<@CHAR 13><@CHAR 13>" REPLACESTR="<@CHAR 13>">> <@IF EXPR="<@RIGHT STR='@@FileData' NUMCHARS='1'>!='<@CHAR 13>'"> <@ASSIGN local$FileData "@@FileData<@CHAR 13>"> </@IF> <@ASSIGN local$carrycols VALUE='<@TOKENIZE VALUE="@@FileData" CHARS="<@CHAR 13>">'> <@ASSIGN local$carrycols VALUE=<@TRANSPOSE carrycols>> <@ASSIGN local$maxcol 0> <@ASSIGN local$mincol 0> <@ASSIGN local$c_rows <@NUMROWS ARRAY='CarryCols'>> <@FOR START="1" STEP="1" STOP="@@c_rows"> <@ASSIGN local$colnum <@CALC EXPR="<@LENGTH STR='<@KEEP "@@carrycols[<@CURROW>,1]" CHARS="<@CHAR 9>">'>+1">> <@IF EXPR="@@colnum > @@maxcol"> <@ASSIGN local$maxcol @@colnum> <@ELSEIF EXPR="(@@colnum < @@mincol) or (@@mincol=0)"> <@ASSIGN local$mincol @@colnum> </@IF> </@FOR> <HTML> <HEAD> <TITLE>Setup Data Pump</TITLE> </HEAD> <BODY BGCOLOR="white"><CENTER> <B>Setting up columns with @@maxcol columns and @@c_rows rows.</B> <P> Then it creates an array to prepare it for import: <@ASSIGN user$data <@ARRAY ROWS="@@c_rows" COLS="@@maxcol">> <@ROWS START=1 STEP=1 ARRAY="carrycols" PUSH=30> <@IF EXPR="<@CURROW>%5" FALSE="<@CURROW>-"> <@ASSIGN local$test <@TOKENIZE VALUE='@@carrycols[<@CURROW>,1]' CHARS='<@CHAR 9>'>> <@ASSIGN local$r_row <@CURROW>> <@FOR START="1" STEP="1" STOP="<@NUMCOLS ARRAY='test'>"> <@ASSIGN data[@@r_row,<@CURROW>] @@test[1,<@CURROW>]> </@FOR> </@ROWS> At this point, I get an error, saying that it isn't tab delimited, or it isn't doesn't have a return at the end of the line or something. Anyway, I can't import. Basically, I need some kind of app to import text files into a primebase db. If anyone can help I would appreciate it. Mark Weiss
________________________________________________________________________ TO UNSUBSCRIBE: Go to http://www.witango.com/developer/maillist.taf |
