Bonjour,

dans la lecture d'un fichier texte, je dois le parcourir pour pouvoir le reformatter et ainsi pouvoir utiliser la fonction append from pour le transformer en table.

J'arrive à l'ouvrir et à parcourir ligne par ligne mais comment parcourir une ligne ???
Existe t'il qqch qui ressemble au string tokenizer en java pour me permettre d'aller en info en info?

Ou alors comment faire? Je n'ai pas trop envie de m'amuser avec de substr() car on fini toujours par ce planter d'un chiffre.

Une autre idée ?

merci 

Bonjour,
Voir la fonction aLines().
Elle va te décomposer du texte en fonction d'un/des délimiteur(s), et remplir un tableau de résultat.

Par exemple : 

local array aMots(1)
ALines(aMots,"Ceci;est;un;test",.t.,";")
FOR each cMot in aMots
   ? cMot
ENDFOR

Voir aussi les fonctions GetWordNum(),GetWordCount() et StrExtract().
Il n'y donc pas de Substr() pour manipuler du texte.

voir les fonctions strextract, substr, strtran, stuff, ...

Fred
membre actif d'AtoutFox
MS MVP VFP

Bonjour,

j'ai essayé de voir pour les fonctions GetWordNum() et GetWordCount() mais il n'y a rien dans l'aide de plus fox pro me dit que la ligne que j'ai lue (en faisant lcLigne = FGETS(monText.txt)) n'est pas une classe et donc je ne peux pas utiliser ces fonctions.

Il me semble que ca va être plus ardu que prévu ce truc ...

Quelle version de Foxpro utilises tu ?

la 8

la manip :

ouvrir le fichier

m.handle=fopen("montext.txt")

if m.handle<0

  return && erreur
endif
=fseek(m.handle,0,0)
do while !feof(m.handle)
   m.ligne=fget(m.handle)
* ton boulot sur les lignes ici
   ? m.ligne
enddo

Fred
membre actif d'AtoutFox
MS MVP VFP

salut
je posséde foxpro 9.0
et je veux lire un fichier texte ligne par ligne pour ajouter dans une table brut.dbf
mais le probléme quand j'exécute ce code:

nfile=GETFILE("txt","importer")

gnFileHandle =

FOPEN(nfile)

*** Move the file pointer to BOF ***

gnPosition = FSEEK(nfile,254,2)

IF FEOF(gnFileHandle)

WAIT WINDOW 'Le fichier est empty !' NOWAIT

ELSE

WAIT WINDOW

'le fichier contient '+STR(gnPosition)+' !' NOWAIT

ENDIF

FOR nCount = 1 TO gnPosition

cligne =

FREAD(gnFileHandle,254)

WAIT WINDOW 'Importation du fichier de la ligne n° '+ alltrim(cligne)NOWAIT

ENDFOR

= FCLOSE(gnFileHandle)

le problème est toujours le fichier ouvrir est empty.
Merci

*** Move the file pointer to BOF ***
gnPosition = FSEEK(nfile,254,2)

ne positionne pas le pointeur au début du fichier mais à 254 octets de la fin...

gnPosition = FSEEK(nfile,254,2)

fseek(nfile,0,0) positionne au début
fseek(nfile,0,2) positionne à la fin (et retourne la taille)


Fred
membre actif d'[url="http://www.atoutfox.org"]AtoutFox[/url]
MS MVP VFP (2000-2007)
[ Lien ]