Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
At(my_memo)
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01396410
Message ID:
01396420
Vues:
62
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform