drcharly93 a écrit:
Bonjour Stéphane,
Il faudrait apprendre à être un peu plus clair aussi bien dans vos explications que dans votre codecela 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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4739&post_id=19674