Fichier texte merci
cs_moi4975
Messages postés
109
Date d'inscription
lundi 27 juin 2005
Statut
Membre
Dernière intervention
17 juillet 2007
-
2 août 2005 à 15:42
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 2 août 2005 à 19:21
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 2 août 2005 à 19:21
A voir également:
- Fichier texte merci
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Souligner texte illustrator - Forum Graphisme/design
- Bug DXF DXW avec illustrator - Forum Graphisme/design
4 réponses
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
2 août 2005 à 16:05
2 août 2005 à 16:05
Salut,
Essaie :
Open "C:\Lecon16.txt" For Input As #intFile
Text1.Text = Input(LOF(intFile), #intFile)
Close #intFile
De cette manière, si ton fichier n'est pas trop grand, tu l'importeras directement en entier dans ta textbox.
Si c'est trop pour une textbox, essaie avec une richtextbox.(composants Microsoft Rich Textbox 6.0 (SP 6).)
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Essaie :
Open "C:\Lecon16.txt" For Input As #intFile
Text1.Text = Input(LOF(intFile), #intFile)
Close #intFile
De cette manière, si ton fichier n'est pas trop grand, tu l'importeras directement en entier dans ta textbox.
Si c'est trop pour une textbox, essaie avec une richtextbox.(composants Microsoft Rich Textbox 6.0 (SP 6).)
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
cs_moi4975
Messages postés
109
Date d'inscription
lundi 27 juin 2005
Statut
Membre
Dernière intervention
17 juillet 2007
2 août 2005 à 16:13
2 août 2005 à 16:13
merci ca marche !!!
mais qu'estce que veut dire le "Input(LOF(intFIle),#intFile)"
mais qu'estce que veut dire le "Input(LOF(intFIle),#intFile)"
cs_hassen
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
2 août 2005 à 16:14
2 août 2005 à 16:14
oui c plus simple d'utiliser Microsoft Rich Textbox
RichTextBox1.FileName = "c:\lecon16.txt"
Hassen TUNISIE
RichTextBox1.FileName = "c:\lecon16.txt"
Hassen TUNISIE
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
2 août 2005 à 19:21
2 août 2005 à 19:21
LOF(intFile) = taille de ton fichier en octets.
Avec Input(LOF(intFIle),#intFile) tu lis tout ton fichier d'un coup.
Tu pourrais lire octet par octet :
Dim intFile As Integer
Dim Valeur As String
intFile = FreeFile
Open "C:\Lecon16.txt" For Input As #intFile
do While not eof(intFile)
Valeur = valeur & Input(1,#intFile)
loop
textbox.text=valeur
close #intFile
C'est plus long.
Dans ce cas, si tu veux utiliser le get, l'équivalent serait :
Dim intFile As Integer
Dim Valeur As String
Dim tmp as string * 1
Dim i as long
intFile = FreeFile
Open "C:\Lecon16.txt" For Random As #intFile len = len(tmp)
for i = 1 to lof(intFile)
get #intFile, i, tmp
Valeur = valeur & tmp
next
textbox.text=valeur
close #intFile
La différence entre ces 2 derniers cas, c'est qu'avec random et get, tu peux lire l'octet ou le groupe d'octets que tu veux ou tu veux dans le fichier et qu'avec l'input(1,#intFile), tu lis en séquentiel sans possibilité de revenir au début sans réouvrir le fichier.
Dans ton cas, le plus simple et le plus rapide est la solution que je t'ai indiquée au début.
Bonne prog
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Avec Input(LOF(intFIle),#intFile) tu lis tout ton fichier d'un coup.
Tu pourrais lire octet par octet :
Dim intFile As Integer
Dim Valeur As String
intFile = FreeFile
Open "C:\Lecon16.txt" For Input As #intFile
do While not eof(intFile)
Valeur = valeur & Input(1,#intFile)
loop
textbox.text=valeur
close #intFile
C'est plus long.
Dans ce cas, si tu veux utiliser le get, l'équivalent serait :
Dim intFile As Integer
Dim Valeur As String
Dim tmp as string * 1
Dim i as long
intFile = FreeFile
Open "C:\Lecon16.txt" For Random As #intFile len = len(tmp)
for i = 1 to lof(intFile)
get #intFile, i, tmp
Valeur = valeur & tmp
next
textbox.text=valeur
close #intFile
La différence entre ces 2 derniers cas, c'est qu'avec random et get, tu peux lire l'octet ou le groupe d'octets que tu veux ou tu veux dans le fichier et qu'avec l'input(1,#intFile), tu lis en séquentiel sans possibilité de revenir au début sans réouvrir le fichier.
Dans ton cas, le plus simple et le plus rapide est la solution que je t'ai indiquée au début.
Bonne prog
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?