Probleme lecture avec fileinput en visual 10
Bonjour, voila mon probleme: mon fichier contient des donnees diverses
nom du fichier texte: config.cfg
contenu:
3.0.1.2
-------- Dates diverses --------
--/--/----
--/--/----
--/--/----
--/--/----
--/--/----
--/--/----
-------- Dates de mises a jour --------
15/12/2011
--/--/----
15/12/2011
-------- Détail de la mise a jour client --------
-- Implantation
pour le lire voici le code:
dim textline as string
FileOpen(1, "c:\config.dll", OpenMode.input) ' Open file.
TextLine = LineInput(1)
Label36.Text = TextLine
Label36.Refresh()
TextLine = LineInput(1)
TextLine = LineInput(1)
Label18.Text = TextLine
TextLine = LineInput(1)
Label17.Text = TextLine
TextLine = LineInput(1)
Label10.Text = TextLine
TextLine = LineInput(1)
Label24.Text = TextLine
TextLine = LineInput(1)
Label23.Text = TextLine
TextLine = LineInput(1)
Label25.Text = TextLine
TextLine = LineInput(1)
TextLine = LineInput(1)
Label13.Text = TextLine
TextLine = LineInput(1)
Label14.Text = TextLine
TextLine = LineInput(1)
Label15.Text = TextLine
FileClose(1)
alors mon premier probleme est le suivant:
au lieu de me rendre "3.0.1.2" dans le label, il me marque "ÿ?3"
tres embetant car ca me fout le bordel.
ensuite il ne semble pas vouloir tenir compte des lignes
au 3eme lineinput il me marque "" par exemple
le gros probleme est que ce fichier change constament et les lignes n'ont jamais le meme nombre de caractere
un petit coup de main ?
nom du fichier texte: config.cfg
contenu:
3.0.1.2
-------- Dates diverses --------
--/--/----
--/--/----
--/--/----
--/--/----
--/--/----
--/--/----
-------- Dates de mises a jour --------
15/12/2011
--/--/----
15/12/2011
-------- Détail de la mise a jour client --------
-- Implantation
pour le lire voici le code:
dim textline as string
FileOpen(1, "c:\config.dll", OpenMode.input) ' Open file.
TextLine = LineInput(1)
Label36.Text = TextLine
Label36.Refresh()
TextLine = LineInput(1)
TextLine = LineInput(1)
Label18.Text = TextLine
TextLine = LineInput(1)
Label17.Text = TextLine
TextLine = LineInput(1)
Label10.Text = TextLine
TextLine = LineInput(1)
Label24.Text = TextLine
TextLine = LineInput(1)
Label23.Text = TextLine
TextLine = LineInput(1)
Label25.Text = TextLine
TextLine = LineInput(1)
TextLine = LineInput(1)
Label13.Text = TextLine
TextLine = LineInput(1)
Label14.Text = TextLine
TextLine = LineInput(1)
Label15.Text = TextLine
FileClose(1)
alors mon premier probleme est le suivant:
au lieu de me rendre "3.0.1.2" dans le label, il me marque "ÿ?3"
tres embetant car ca me fout le bordel.
ensuite il ne semble pas vouloir tenir compte des lignes
au 3eme lineinput il me marque "" par exemple
le gros probleme est que ce fichier change constament et les lignes n'ont jamais le meme nombre de caractere
un petit coup de main ?