25-04-2013, 03:45 AM
Bonjour à tous, je suis sous la version 10 et un peu novice .....
je voudrais ouvrir un fichier externe, lire le contenu et remplir ma table avec ce contenu ! chaque fois, message d'erreur d'ouverture du fichier !
voici le code que j'utilise :
MessageDvd est une chaîne
HLitPremier(GenreFilms,IDGenreFilms)
SI HNbEnr(GenreFilms) <> 0 ALORS
MessageDvd = " Importation de votre liste des Genres Dvd "
SI OuiNon(MessageDvd) = Non ALORS
RETOUR
SINON
Indice est un entier
Resultat est une chaîne
HGèreIntégrité(Faux)
Indice = fOuvre("C:\Mes Projets\Mes Films\Exe\Liste des Genre Dvd.txt",foLecture)
SI Indice <> -1 ALORS
Resultat = fLitLigne(Indice)
TANTQUE Resultat <> EOT
GenreFilms.Genre = ExtraitChaîne(Resultat,1)
HAjoute(GenreFilms)
SI HErreurDoublon() ALORS
Info("Problème" + SansEspace(GenreFilms.Genre))
FIN
Resultat = fLitLigne(Indice)
Multitâche()
FIN
SINON
Info("Erreur d'ouverture du Fichier : ")
FIN
HGèreIntégrité(Vrai)
Info("Le rapatriement des Genres est terminé.")
TableAffiche(Table,taInit)
FIN
FIN
ou est l'erreur ?
merci de votre aide
je voudrais ouvrir un fichier externe, lire le contenu et remplir ma table avec ce contenu ! chaque fois, message d'erreur d'ouverture du fichier !
voici le code que j'utilise :
MessageDvd est une chaîne
HLitPremier(GenreFilms,IDGenreFilms)
SI HNbEnr(GenreFilms) <> 0 ALORS
MessageDvd = " Importation de votre liste des Genres Dvd "
SI OuiNon(MessageDvd) = Non ALORS
RETOUR
SINON
Indice est un entier
Resultat est une chaîne
HGèreIntégrité(Faux)
Indice = fOuvre("C:\Mes Projets\Mes Films\Exe\Liste des Genre Dvd.txt",foLecture)
SI Indice <> -1 ALORS
Resultat = fLitLigne(Indice)
TANTQUE Resultat <> EOT
GenreFilms.Genre = ExtraitChaîne(Resultat,1)
HAjoute(GenreFilms)
SI HErreurDoublon() ALORS
Info("Problème" + SansEspace(GenreFilms.Genre))
FIN
Resultat = fLitLigne(Indice)
Multitâche()
FIN
SINON
Info("Erreur d'ouverture du Fichier : ")
FIN
HGèreIntégrité(Vrai)
Info("Le rapatriement des Genres est terminé.")
TableAffiche(Table,taInit)
FIN
FIN
ou est l'erreur ?
merci de votre aide