Discussion :

[pierreaigle]

Bonsoir, je voudrais savoir comment lire un fichier externe contenant des espaces et récupérer les données dans champ table en Windev

[hpascal]

Bonjour

Commencez déjà par regarder un peu l'aide
F1 --> Fichier externe --> Fonctions de gestion des fichiers externes

Il a un assitant avec la fonction fOuvre :
Saisissez fOuvre( et choisir l'assitant

Ensuite pour lire le contenu d'une ligne ça dépend de la structure des infos stockée : format fixe, avec séparateur ... Voir les fonctions de manipulation de chaines de caractères : F1 --> Chaîne de caractères

Bonne fin de journée

[pierreaigle]

Merci beaucoup voici ce que j'ai pu réaliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture )
SI IdFichier <> -1 ALORS
	ResLecture = fLitLigne(IdFichier)
	importtransfert.N°=ExtraitChaîne (ResLecture,1," ")
	importtransfert.Matricule=ExtraitChaîne (ResLecture,2," ")
	importtransfert.Nom=ExtraitChaîne (ResLecture,3," ")
	importtransfert.Prenoms=ExtraitChaîne (ResLecture,4," ")
	importtransfert.Heure_entrée=ExtraitChaîne (ResLecture,5," ")
    importtransfert.Type_de_pointage=ExtraitChaîne (ResLecture,6," ")
	importtransfert.Machine=ExtraitChaîne (ResLecture,7," ")
FIN

Cela marche mais il n' y a qu'une seule ligne qui est renvoyée
Comment lire tout le fichier ?

[VincentRoy]

Normal, tu n'appelles qu'une fois la fonction "FLitLigne"
Regarde l'aide de cette fonction, tu as un exemple tout fait
Vince

[hpascal]

Bonjour
L'assistant proposé génère même la boucle de parcours

Allez jusqu'au bout de l'assistant et inspirez vous du code :

nIDFichier est un entier
sChaîneLue est une chaîne

// Ouverture du fichier
nIDFichier = fOuvre("C:\temp\Monfichier.txt", foLecture)
SI nIDFichier <> -1 ALORS

// Lecture du fichier
sChaîneLue = fLitLigne(nIDFichier)
TANTQUE sChaîneLue <> EOT

// Insérez ici votre traitement
// sChaîneLue contient la chaîne lue

sChaîneLue = fLitLigne(nIDFichier)
FIN

// Fermeture du fichier
fFerme(nIDFichier)
SINON
Erreur()
FIN

Bonne journée

[pierreaigle]

Merci beaucoup à vous pour votre aide; le code marche à merveille