Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
At(my_memo)
Message
From
26/04/2009 12:50:55
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01396410
Message ID:
01396420
Views:
61
This message has been marked as a message which has helped to the initial question of the thread.
Don't know whether this is any help but here is some code i came across that seaches string in cvs, you might be able to adapt it.

k

cFile = Filetostr("C:\myfile.CSV") && Read file
For i = 0 To 32 && Loop through control characters
IF INLIST(i,10,13) && Skip Line Feed and Carriage Return
LOOP
ENDIF
cFile = Strtran(cFile,Chr(34),"") && Replace " ntrol Characters with Empty
cFile = Strtran(cFile,Chr(61),"") && Replace = ntrol Characters with Empty
cFile = Strtran(cFile,Chr(150),"") && Replace - ntrol Characters with Empty

cFile = STRTRAN(cFile,CHR(i),"") && reokace variabe i (Integer character) with empty
Endfor
= Strtofile(cFile,"C:\myfileCLEAN.CSV") && Convert back to file
*************************************************************************************************

APPEND CLEAN FILE INTO DATABASE
Use newdatabase
Zap
Append From c:\myfileclean.Csv Type Delimited
Locate &&go top
Delete &&delete headings
pack
Previous
Reply
Map
View

Click here to load this message in the networking platform