[VB6]Lire une partie d'un fichier .txt

**patoch76** · 01/05/2006, 22h41

Bonjour

je precise que je suis en vb6
j'ai un fichier texte et un texbox

je voudrais lire un partie specifié d'un fichier texte dans mon texbox

exemple du fichier txt : 01- blablablabla
blablabla

02-reblablabla

03-rereblablabla

et je voudrais lire a la demande la partie 01 ou 02 etc etc
Merci pour la reponse

**SfJ5Rpw8** · 01/05/2006, 22h44

ouf... va falloir que être plus précis sur les balalallabla (contenu et organisation de ton fichier) .. .. voir FAQ VB et tutoriaux ...
pour commencer .. :

http://www.developpez.com/vbasic/tut...tutoriel24.php

**doudoustephane** · 01/05/2006, 22h48

bbil, tu as un probleme de lien...

**patoch76** · 01/05/2006, 22h56

ce sont des donneés par departement c'est pour ca que j'ai mis 01 ,02 etc etc et je voudrais que lorsque j'apelle un departement je voudrais que les données qui tienne plusieurs ligne apparaisse dans mon textbox

**doudoustephane** · 01/05/2006, 23h00

a mon avis, le mieu, c'est de charger ton fichier en faisant une recherche au fur et a mesure de tes lignes et donc, ne finalement retenir que ce qui est compris entre ton numero voulu et le suivant...

**patoch76** · 01/05/2006, 23h02

Voila c'est ce que je voudrais DOUDOUALLEMAND
mais comment fait t'on ?

**SfJ5Rpw8** · 01/05/2006, 23h10

ben tu te sert du tutorial dont je 'tai posté le lien... tu lit le fichier ligne à ligne ... jusqu'a rencontrer une ligne commençant... par le numéro de département cherché... et ensuite tu continu à lire le fichier jusqu'a la prochaine ligne commençant par 2 chiffre (pas terrible comme séparateur) tout en stockant les lignes lues dans le textbox...
à voir

open lineinput...

**doudoustephane** · 01/05/2006, 23h16

Envoyé par bbil

ben tu te sert du tutorial dont je 'tai posté le lien...

info bis bbil, ton lien est mauvais est dirige vers le site http://www.lemonde.fr !!! que se soit en cliquant dessus ou en le copiant doncx, si tu pouvais le refaire stp...

**patoch76** · 01/05/2006, 23h40

oui y fonctionne pas son lien
peut pas acceder au tuto

**SfJ5Rpw8** · 01/05/2006, 23h44

tien un peu de code ... issu de l'aide en ligne VBA..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim TextLine
dim f as integer 
f = freefile
Open "FICHTEST" For Input As #f    ' Ouvre le fichier.
Do While Not EOF(f)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #f, TextLine        ' Lit la ligne dans la variable.
    Debug.Print TextLine    ' Affiche dans la fenêtre Exécution.
Loop
Close #f    ' Ferme le fichier.

**patoch76** · 02/05/2006, 00h20

Voila le code que j'ai mis ,mais il me met que la premiere ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Dim recup As String
Open "texte.txt" For Input As #1
Input #1, recup
    If Len(recup) <> 0 Then
        If InStr(recup, "Ain") <> 0 Then
            Text2.Text = Text2.Text + recup + vbCrLf
        End If
    End If
Close #1
If Text2.Text = "" Then
    MsgBox "Le texte n'a pas été trouvé..."
End If
End Sub

**SfJ5Rpw8** · 02/05/2006, 00h23

ben tu n'as pas de boucle... regarde le code que j'ai tiré pour toi de l'aide en ligne... et la boucle while...

**patoch76** · 02/05/2006, 00h32

je suis carrement paumé la ???
maintnant il vas me cher tous les mots "Ain"

**doudoustephane** · 02/05/2006, 00h38

Envoyé par bbil

tien un peu de code ... issu de l'aide en ligne VBA..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim TextLine
dim f as integer 
f = freefile
Open "FICHTEST" For Input As #f    ' Ouvre le fichier.
Do While Not EOF(f)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #f, TextLine        ' Lit la ligne dans la variable.
    Debug.Print TextLine    ' Affiche dans la fenêtre Exécution.
Loop
Close #f    ' Ferme le fichier.

oui, il va scuter tout ton fichier dans la boucle while (d'ou son importance) et chercher ce aue tu veux(enfin, c'est toi qui le fait ca) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim TextLine
dim f as integer 
f = freefile
Open "FICHTEST" For Input As #f    ' Ouvre le fichier.
Do While Not EOF(f)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #f, TextLine        ' Lit la ligne dans la variable.
    Debug.Print TextLine    ' Affiche dans la fenêtre Exécution.
   'mets ici ton code de recherche et de test et, si tu n'en a pas besoin, enleve l'affichage...
Loop
Close #f    ' Ferme le fichier.

**SfJ5Rpw8** · 02/05/2006, 00h50

tiens ... j'espére que tu vas prendre un peu de temps pour comprendre le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub LitDepartement(i As Integer)
Dim TextLine As String
Dim stDeb As String
Dim stFin As String
Dim bTrouve As Boolean 'Flag Début département trouvé
Dim f As Integer
Text2 = "" 'Vide text box...
stDeb = Format(i, "00-") ' Formate numero appart 01-
stFin = Format(i + 1, "00-")
f = FreeFile
Open "texte.txt"  For Input As #f    ' Ouvre le fichier.
Do While Not EOF(f)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #f, TextLine        ' Lit la ligne dans la variable.
    If Not bTrouve Then
       If Left(TextLine, 3) = stDeb Then
         Text2 = TextLine
         bTrouve = True
       End If
    Else
       If Left(TextLine, 3) <> stFin Then
         Text2 = Text2 & vbCrLf & TextLine 'Rajoute ligne
       Else
            Close #f
            Exit Do 'Sort de la boucle while
       End If
    End If
Loop
Close #f    ' Ferme le fichier.
End Sub

**doudoustephane** · 02/05/2006, 00h52

voila, tu peux remercier bbil, il t'as mis le code complet...

**AlainTech** · 02/05/2006, 06h59

Envoyé par patoch76

et je voudrais lire a la demande la partie 01 ou 02 etc etc

Envoyé par patoch76

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(recup, "Ain") <> 0 Then

Faudrait voir à rester cohérent.
Tu nous dis que tu cherches les numéros de département et, dans ton code, tu cherches sur leur nom.

**patoch76** · 02/05/2006, 19h27

Je suis désolé mais le code de BBIL ne fonctionne pas ,je n'ai rien du tout dans ma texbox

**SfJ5Rpw8** · 02/05/2006, 20h04

Envoyé par patoch76

Je suis désolé mais le code de BBIL ne fonctionne pas ,je n'ai rien du tout dans ma texbox

ne pourrai tu pas nous faire passer quelques "vrai" lignes de ton fichier...? histoire de voir s'il y as quelque chose que l'on as pas vu ...?

le code tu l'appelle bien de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
LitDepartement(2)

tu as bien dans ton fichier une ligne qui commence par 02- et plus loin une autre 03-

?

**patoch76** · 02/05/2006, 20h25

je l'apelle a partir d'un label :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub L01_Click()
Dim path
path = App.path
If Right$(path, 1) <> "\" Then path = path & "\"
Image2.Picture = LoadPicture(App.path & "\Image\Ain" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d01" & ".gif")
 
 
' JE VOUDRAIS ENLEVER CETTE PARTIE POUR METTRE LE TEXTE DANS
' UN FICHIER .TXT mais avec plus de ligne
-------------------------------------------------------
Text1.Text = "Nom du département:Ain Région:Rhône -Alpes Superficie:5 554 km2 Point culminant:Crêt de la Neige 1 723 m. Chef -lieu:Bourg-en-Bresse. 4 arrondissements, 38 cantons, 419 communes. Population:471 019 hab. (recensement 1990)"
-------------------------------------------------------------------
 
End Sub

[VB6]Lire une partie d'un fichier .txt

VB 6 et antérieur

Discussions similaires

Partager

Partager