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

Attacher un fichier:

---

  Image3.JPG (29.79 KB)

Bonjour,

Quant on utilise fChargeTexte, il ne faut pas utiliser fOuvre (le fichier est ouvert et fermé automatiquement). De plus, il ne faut pas faire de fOuvre sans fFerme (Pensez à fermer les fichiers ouverts).

Bon dév.,

Totof

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

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

Pour enregistrer un fichier après traitement

Citation :





Salut Totof
Salut Charly


Merci pour votre précieuse aide et j'admire particuliérement la maniére pédagogue de Charly


Maintenant j'ouvre n'importe quel fichier texte et je le charge sur le champ de saisie et je l'enregistre le plus normalement , j'avoue si j'ai réussi a faire pour moi c'est formidable car j'ai découvert WD y'a environs 17 Jours et quand je voyais des gens faire des prog & des logiciels je me disais waw ils sont fort ces gars qui font des logiciels ils sont trés fort il faut étre programmeur pour faire ça .


Je me disais laisse tomber Stéphane toi tu ne pourras jamais faire ça c'est trop compliquer pour toi


Mais la volonté et la soif du savoir m'a amener a aller de l'avant et essayer de faire une petite application , certs ça parrait dérisoire par raport au gens qui font des logiciels énorme comme le CRM de PCSoft mais moi je suis pas encore arriver a ce Stade la , je commence a apprendre les bases déja a ouvrir , afficher un texte ensuitele réste Suivera ...




Voila Merci Totof et un Grand Merci au Docteur Charly Du 93



Cordialement , Stéphane