Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Progress Status during Append
Message
From
07/11/2002 06:28:24
Andrew Fell-Gordon
Calypso Publications Ltd
Enfield, United Kingdom
 
 
To
06/11/2002 13:38:59
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00705246
Message ID:
00719720
Views:
12
I've had a quick look to see if some combination of SET TALK and routing talk messages to a hidden Foxpro main window would help but I can't see a way of retrieving what is written there.

The only way I can think to do it would be to change to use low level functions. it would not be too bad if you used ChrTran to convert the delimiter character to Chr(13) and then aLines to copy the data to an array. then, if all fields were character you could just INSERT INTO table FROM ARRAY (lines). If data types were different you could have a general purpose convert routine that looped through the fields converting the field type

lcBuffer = fGets(lnfh)
lcBuffer = ChrTran(lcBuffer,",",Chr(13)) && Assume comma delimited
If alines(laImport,lcBuffer) = Fcount(table)

For lnX = 1 To FCOUNT(table)
Do Case
Case VarType(Eval(Field(lnX))) = "N"
laImport(lnX) = Val(laImport(lnX))
Case VarType(Eval(Field(lnX))) = "D"
laImport(lnX) = Ctod(laImport(lnX))
&& assuming you do not have strict date set on
...etc
Endcase
Insert Into table From Array laImport
Next
lnCount = lnCount + 1
... Do notification
Else
... invalid input
Endif

Not as easy as the Append but the only way I can think of. Sorry

Andrew
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform