Discussion :

[htsinfo3000]

salut tous le monde

quelqu’un peut m aidez pour la Récupération et la Modification des informations depuis un fichier texte (fichier.txt) selon une position (linge;colonne)

Merci d'avance
cordialement.

[wd_newbie]

Hello ,

ton fichier texte, c'est quel format ? csv , random access , autre ?

Olivier

[htsinfo3000]

salut

Mon Fichier est (TXT)

merci

[mnw.william]

salut tous le monde

quelqu’un peut m aidez pour la Récupération et la Modification des informations depuis un fichier texte (fichier.txt) selon une position (linge;colonne)

Merci d'avance
cordialement.

Le principe reste le même

d'abord il faut ouvrir ledit fichier avec fOuvre()
ensuite lire les lignes avec fLitLigne()
Modifier ce que tu as à modifier
c'est pas compliqué avec windev
.

Tu peux avoir comme exemple ceci, tirer de Windev...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
// Déclaration des variables
NomCheminFichier est une chaîne
IDFichier est un entier
LigneLue est une chaîne
ResFermeFichier est un entier
 
// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"
// Ouverture du fichier
IDFichier = fOuvre(NomCheminFichier)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IDFichier = -1 ALORS
	Erreur(ErreurInfo(errMessage))
SINON
	// Lecture de la première ligne du fichier
	LigneLue = fLitLigne(IDFichier)
	// Affichage de la première ligne dans le champ de saisie
	SAI_SaisieFichier = LigneLue
	// Autres lignes à lire ? Erreur de lecture ?
	 TANTQUE LigneLue <> EOT ET LigneLue <> ""
		// Lecture des lignes suivantes du fichier
		LigneLue = fLitLigne(IDFichier)
		// Affichage des lignes suivantes dans le champ de saisie
		SAI_SaisieFichier = SAI_SaisieFichier + LigneLue
	 FIN
	// Affichage du message d'erreur si la lecture n'a pas été effectuée
	 SI LigneLue = "" ALORS Erreur(ErreurInfo(errMessage))
	 SI LigneLue = EOT ALORS Info("La fin du fichier a été atteinte")
	// Fermeture du fichier
	ResFermeFichier = fFerme(IDFichier)
	 SI ResFermeFichier = -1 ALORS
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Erreur(ErreurInfo(errMessage))
	 FIN
FIN

[htsinfo3000]

c'est bon mon frère merci pour l'aide

[jdsetls]

Bonjour,

Il existe dans l'aide des collections d'instructions adaptées.

J'utilise des fichiers texte pour pour gérer les paramètres d'application : images par défaut, en-têtes, fichiers à ouvrir par défaut, personnalisation de l'interface en couleurs et taille, the sky is the limit...

Nathalie 35000 vient de publier un exemple dont voici un extrait :

lxls_fichierExcel=xlsOuvre("C:\MO.xls",xlsEcriture)
SI ErreurDétectée = Faux ALORS
Li_nbligneFichierExcel=1
ls_contenuFichierTexte= fChargeTexte("C:\SPE.txt")
POUR TOUTE CHAINE ls_ligneFichierTexte DE ls_contenuFichierTexte SEPAREE PAR RC
toto=Gauche(ls_ligneFichierTexte,12)
tata=Droite(ls_ligneFichierTexte,10)
lxls_fichierExcel[Li_nbligneFichierExcel,"A"]=toto
lxls_fichierExcel[Li_nbligneFichierExcel,"B"]=tata
Li_nbligneFichierExcel++
FIN
// Lecture d'une cellule pour test
ResDonnée= xlsDonnée(lxls_fichierExcel,2,26,Faux)
xlsSauve(lxls_fichierExcel)
xlsFerme(lxls_fichierExcel)

FIN
// Ouverture d'un fichier externe
IDFichier = fOuvre("C:\INF.txt", foLectureEcriture)
// Écriture dans ce fichier
ResEcriture = fEcrit(IDFichier, ResDonnée)
ls_contenuFichierTexte2= fChargeTexte("C:\INF.txt")
POUR TOUTE CHAINE Ls_ligneFichierTexte2 DE ls_contenuFichierTexte2 SEPAREE PAR RC
FIN

Dans le texte d'origine tu peux insérer, modifier, détruire.

Bien cordialement,

Jacques De Schryver