WDForge.org - Forums

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

Sujet: Re: Ouvrir et Enregistrer un Fichier TEXTE D'Un Champ De Saisie
par drcharly93 sur 8/11/2006 12:42:19

Bonjour Stéphane,

Il faudrait apprendre à être un peu plus clair aussi bien dans vos explications que dans votre code

cela serait plus simple pour tout le monde.

1) Vous commencez par ouvrir le fichier :
"C:\Documents and Settings\Mes documents\Liste Produits.txt" que vous créer si celui ci n'existe pas et en lecture seulement

2) Vous sélectionnez via le sélecteur de fichier un fichier quelconque dont vous stocké son handle dans la variable 'IdFichier'

3) Dans SAI1 vous affectez le contenu du fichier "C:\TEMP.TXT"

4) vous affecter le handle du fichier: "C:\TEMP.TXT" a la variable 'IdFichier' précédement affecté par le handle du fichier sélectionner via le sélecteur, donc opération caduque

5) Dans SAI1 vous affecter le contenu d'un fichier 'NomFic' initialisé on ne saist où! car le chemin n'est pas fourni!, alors que vous veniez juste d'y afficher le contenu du fichier "C:\TEMP.TXT"
autre opération caduque

Conclusion :
au regard de votre code on ne comprends pas vraiment ce que vous cherchez à faire.

Comme le souligne Totof eviter d'utiliser simultanément fOuvre et fChargeTexte qui font la meme chose mais fChargeTexte le fait plus simplement.

en plus simple
Initialisation des paramètres de la procédure

sFichierProduit est une chaine
sFichierDestination est une chaine

Ouverture d'un fichier Liste de produits via le sélecteur

sFichierProduit = fSélecteur("C:\Répertoires", "Fichier.txt", ...
      "Liste de produits",...
      "Fichier Texte (*.TXT)"+TAB+"*.txt"+RC+"Tous"+TAB+"*.*", "txt")
SAI1 = fChargeTexte(sFichierProduit)
// 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

Pour enregistrer un fichier après traitement

sFichierDestination = = fSélecteur("", "", "Sélection d'un fichier externe", ...
"LISTE PRODUITS"+ TAB +"*.txt", "txt", fselCrée )
//Si on ne renseigne pas de nom
Si sFichierDestination = "" Alors Retour
Si Pas FSauveTexte(sFichierDestination, SAI1) Alors
 Erreur(ErreurInfo())
 Retour
Fin