Probleme mon bout de code ......
Publié : lun. 20/avr./2009 14:31
bonjour, je rencontre un petit probleme de code en faites avec la commande ReadString , je sais que lui mettre une constante ( #fichier)
mais je sais pas comment dire au programme que #fichier = text.s
si je lance le code j'ai une erreur a la commande Readstring. si quelq'un peux m'aider j'ai parcouru le forum à la recherche d'un indice mais j'ai pas trouver .
ps: avant la version 4.0 ça marcher nickel .
mais je sais pas comment dire au programme que #fichier = text.s
si je lance le code j'ai une erreur a la commande Readstring. si quelq'un peux m'aider j'ai parcouru le forum à la recherche d'un indice mais j'ai pas trouver .
ps: avant la version 4.0 ça marcher nickel .
Code : Tout sélectionner
Procedure charger_document()
text.s=OpenFileRequester( "chargement d'un fichier texte","","Fichier text|*.txt",0)
If text<> ""
If OpenFile(0,text)
Repeat
AddGadgetItem(#Document,-1,ReadString())
Until Eof(0)
CloseFile(0)
EndIf
EndIf
EndProcedure