Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Import text.file
Message
 
To
20/07/2004 04:56:25
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00926025
Message ID:
00926027
Views:
19
Mohammed do something like that:
CREATE CURSOR cImprt (Fld1 C(10), fld2 C(10), fld3 C(10), fld4 C(10), fld5 C(10))

cParseChar = CHR(13)+CHR(10)
my_txt = FILETOSTR("MyTextFile")

all_lines = ALINES(txtLines, my_txt, cParseChar)
SELECT cImprt
currentField = 0
FOR i = 1 TO all_lines
    currentField = currentField + 1
    IF currentField > 5
       currentField = 1
    ENDIF
    IF currentField == 1
       INSERT INTO cImprt (Fld1) VALUES (txtLines[i])
    ELSE
       fldname = FIELD(i, "cImprt")
       REPLACE &fldname WITH txtLines[i]
    ENDIF
ENDFOR
(never tested)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform