WDForge.org - Forums

Ouvrir et Enregistrer un Fichier TEXTE D'Un Champ De Saisie

Sujet: Ouvrir et Enregistrer un Fichier TEXTE D'Un Champ De Saisie
par Stephane37 sur 7/11/2006 19:24:01

Salut a Tous ,

Tout d'abord je vouderais remercier Dr Charly pour ces efforts ainsi que tous les gens qui sont sur le site pour la réussite du Forum .

Voila ,

J'ai crée une féntre avec un hamp de saisie
Je Vouderais simplement ouvrir mon Fichier qui sera afficher sur mon Champ SAISIE ENSUITE L'enregistrer mo Fichier je l'ai nommé "LISTE PRODUITS.TXT"

Ouvrir La Liste de Produits :

// Déclaration des variables
NomCheminFichier est une chaîne
IdFichier est un entier

// Ouverture du fichier
nIdFic = fOuvre("C:\Documents and Settings\Mes documents\Liste Produits.txt", FOCréationSiInexistant+FOLecture)

// Sélection d'un fichier
IdFichier = fSélecteur ("C:\Répertoires", "Fichier.txt", ...
"Sélectionner un fichier",...
"Liste Produits(*..txt)"+ TAB +"*.txt"+ RC +"Tous"+ TAB +"*.*", "txt")
NomFic est une chaîne = "LISTE PRODUITS.TXT"

// Nom du fichier
SAIS1=fChargeTexte("C:\TEMP.TXT") // Champ texte où afficher le contenu du fichier
// Ouverture d'un fichier externe
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture )
// Lecture dans ce fichier

// Lecture du fichier "NomFic"
SAIS1 = fChargeTexte(NomFic)

// Vérification de la réussite de la lecture
SI ErreurDétectée ALORS
// On indique l'erreur et sa cause
Erreur(ChaîneConstruit("Une erreur est survenue pendant la lecture de : %1", NomFic),ErreurInfo())
RETOUR
FIN

Enregistrer la Liste de Prix & les Produits :

// Déclaration des variables
NomCheminFichier est une chaîne
IdFichier est un entier

// Sélection du nom et du chemin du fichier
NomCheminFichier = fSélecteur("", "", "Sélection d'un fichier externe", ...
"LISTE PRODUITS"+ TAB +"*.txt", "txt", fselCrée )

// Ouverture du fichier
IdFichier = fOuvre (NomCheminFichier, foLectureEcriture+foCréationSiInexistant )
SI IdFichier = -1 ALORS
Erreur(ErreurInfo( errMessage ))

SINON
// Traitements dans le fichier ouvert
...
// Fin de traitements
FIN

Quand je click sur ouvrir il m'ouvre le fichier sauvegardé dans :
("C:\Documents and Settings\Mes documents\Liste Produits.txt"

Quand j'essaye d'ouvrir d'autres fichiers d'un autre emplacements ça fonctionne pas .

Pour La fonction enregistrer la fenétre s'ouvre le fichier est enregistrer mais vide sans liste de Prix donc la liste n'a pas été enregistrer a partir du champ de Saisie !

Merci

Cordialement, Stéphane