Discussion :

[ayoub aouad]

S'il vous plaît j'ai besoin d'une application visual basic 6 SUR LES FICHIERS à Accès séquentiel ; J'ai beaucoup cherché mais je n'ai rien trouvé ; merci d'avance

[l_autodidacte]

Bonjour et Bienvenu sur DVP

D'abord une vue sur l'accès séquentiel :
WIKIPEDIA a le mérite d'être accessible pour tout le monde, voici ce qu'on y trouve :

En informatique, un accès séquentiel signifie qu'il doit être accédé à des éléments dans une séquence préétablie et ordonnée. L'accès séquentiel peut être imposé par des contraintes, par exemple dans le cas de la lecture d'une bande magnétique, ou choisi en fonction des besoins, par exemple quand on veut seulement traiter une séquence d'objets dans l'ordre.

La structure de données typique de l'accès séquentiel est la liste chaînée.
Une liste chaînée désigne en informatique une structure de données représentant une collection ordonnée et de taille arbitraire d'éléments de même type.

L'accès aux éléments d'une liste se fait de manière séquentielle : chaque élément permet l'accès au suivant (contrairement au cas du tableau dans lequel l'accès se fait de manière absolue, par adressage direct de chaque cellule dudit tableau).

Ensuite précise ce que tu veux faire tout en montrant ce que tu as fait ou entrain de faire.

[ayoub aouad]

SVP je suis j'ai besoin d'une application qui permet de chercher un mot dans un fichier texte et puis afficher la ligne . tout en utilisant les fichiers Accès séquentiel

[l_autodidacte]

Jette un coup d’œil ICI

[ProgElecT]

Après avoir lut la page du lien proposé par l_autodidacte, il ne te reste plus que la commande de recherche InStr([start, ]string1, string2[, compare]) à inclure dans la boucle de lecture de chaque ligne.
Tu peux regarder dans la FAQ ICI
Donc, ton code doit ressembler à

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
31
32
33
34
Dim ChemNomFichier As String, MotRechercher As String, ContenuLigne As String, LigneTrouver As String
Dim NumFich As Integer
Dim NumLigne As Integer
 
ChemNomFichier = "c:\test.txt"
'contenu du fichier test.txt:
'                              TOTO;INFO1
'                              TITI;INFO2
'                              TOTO;INFO3
'                              TATA;INFO4
'                              TETE;INFO5
'                              TOTO;INFO6
'                              TATI;INFO7
MotRechercher = "INfO3"
NumFich = FreeFile
Open ChemNomFichier For Input As #NumFich
Do While Not EOF(NumFich) 'boucle lecture séquentielle de chaque ligne du fichier jusqu'à atteindre la dernière ligne
    NumLigne = NumLigne + 1
    Line Input #NumFich, ContenuLigne
    'If InStr(1, ContenuLigne, MotRechercher, vbBinaryCompare) <> 0 Then ' distingue les minuscules et MAJUSCULES
        'si MotRechercher = "INfO3" il ne serai pas trouvé car le f est minuscule alors que dans le fichier il est en MAJUSCULE
    If InStr(1, ContenuLigne, MotRechercher, vbTextCompare) <> 0 Then
        'bien que MotRechercher = "INfO3" (f en minuscule) le mot est trouvé car la recherche est faite minuscule ou MAJUSCULE
        LigneTrouver = ContenuLigne
        Exit Do ' sortie de la boucle puisque le mot a été trouvé dans la ligne
    End If
Loop
Close #NumFich
If LigneTrouver = "" Then
    MsgBox "le mot " & MotRechercher & " n'a pas été trouvé dans le fichier " & ChemNomFichier, vbCritical, "Recherche de mot dans un fichier"
    Else
    MsgBox "le mot " & MotRechercher & " a été trouvé ligne n° " & NumLigne & vbNewLine _
            & "contenu de cette ligne:" & vbNewLine & LigneTrouver, vbInformation, "Recherche de mot dans un fichier"
End If

Dans ma signature il y a des liens pour les FAQs qui te permettront d'approfondir et découvrir d'autres commandes.