FICHIER SEQUENTIEL

Question

Bonjour,

Je réalise un carnet de contacts, j'aimerais pouvoir effectuer une recherche par nom (en utilisant input box) et afficher avec msgbox le résultat (nom et prénom). Pouvez vous m'aider ?

Private Sub Command1_Click()
Open "c:\essai.txt" For Append As #1
Print #1, N
Dim o
Dim P$(50, 2)
For L = 1 To N
For C = 1 To 2
Print #1, P$(L, C)
Next C
Next L
Close #1

'E C R I T U R E   D U  F I C H I E R

N = N + 1
invite = "Saisissez le NOM !"
P$(N, 1) = InputBox$(invite)

invite = "Saisissez le PRENOM !"
P$(N, 2) = InputBox$(invite)

Open "c:\essai.txt" For Append As #1
Print #1, N
For L = 1 To N
For C = 1 To 2
Print #1, P$(N, C)
Next C
Next L
Text1.Text = P$(N, 1)
Close #1
' RECHERCHE PAR NOM ET AFFICHAGE DU RESULTAT
?

Merci

oliver · Answer

salut,

je pense que tu ne devrais pas utiliser de fichier à accès séquentiel car si tu veux inclure une option de modif des données tu seras obligé de passer par un 2eme fichier. je pense que tu devrais utiliser un fichier à accès aléatoire bcp plus souple.
aussi je conseille de tout convertir en majuscules avec UCASE$

si tu veux qd meme utiliser un séquentiel, fait un truc du style :

1
close
tofind$ = inputbox("entrer le nom à chercher")
    open "c:\essai.txt" for input as #1
    do while not eof(1)
       input #1,nom$,prenom$
            if ucase$(nom$) = ucase$(tofond$) then 
              affich$=msgbox(nom$ & " " & prenom$)
              goto 5       
            end if
    loop
5
close
end

merci de me faire un petit mail pour me dire ce que ça donne ou pour plus de precisions.

salut.

FICHIER SEQUENTIEL

1 réponse

Discussions similaires