recherche un mot ds un fichier et afficher le nbre de fois qu'il a etait trouve

Question

Bonjour

tout est ds la question

recherche un mot ds un fichier et afficher le nbre de fois qu'il a etait trouve, ou alors si c'est plus simple, je sais pas, de mettre le contenu d'un fichier ds une listbox, et ds un textbox mettre le mot a rechercher, pis un tit bouton qui va me rechercher se mot et me dire combien de fois il l'a trouv&#233;

vala

P.S: pr rentrer ds les details, c'est simplement pour recherche dans un fichier bsp (map counter strike) une certaine occurence afin de pouvoir retrouver le nbre de slot effectif a la map

Mici d'avance

PCPT · Answer

salut,

instr te retourne la position du mot/lettre

le premier param&#232;tre est la position du premier caract&#232;re &#224; chercher.

tu boucles sur ton fichier &#224; partir de la position pr&#233;c&#233;dente trouv&#233;e (avec i = i+1), jusqu'&#224; ce que instr te retourne 0.

et t'as plus qu'&#224; afficher i

MaxSoldier · Answer

J'ai une m&#233;thode beaucoup plus rapide:



Function WordCount( Text as string,Word as string) as integer

Dim Buffer as string



buffer = replace(texte,word,"")

WordCount = (len(text) - len(buffer))/len(word)

end function


-=Ar$&#163;nik=-

cs_TheMag · Answer

vous pouvez me pondre un piti code svp, plus explicite avec comme exemple, un fichier "de_dust.bsp" et retrouver le nbre de fois que le mot "info_player" y figure.

merci d'avance
j'avais omis de dire que j'etais un big novice

Cordialement

cs_TheMag · Answer

un pitit up pr ceux qui l'ont pas vu

mici

ZiiLoG · Answer

tiens voila une petite parti de code, j'esp&#233;re quelle poura t'aider
la j'ai mi un boutton qui lorsqu'on clic dessus, appel une fonction avec comme param&#233;tre "info_player" et qui renvoi le nombre d'enregistrement.
et si tu ve rajout&#233; une text box, ba remplace "info_player" par text1.text et voila 

En esp&#233;rant t'avoir aider                        &#176;&#176; Z(i)&#178;LoG &#176;&#176;

Private Sub command1_Click()
Dim nombre As Integer


nombre = recherchemot("info_player")
If nombre = 0 Then
MsgBox "il n'y a auccun enregistrement a cette date"


Else
MsgBox "il y a " & nombre & "enregistrement"



End If
End Sub

Function recherchemot(w As String) As Integer
Dim line As String
Dim comp As Integer
comp = 0


Open "E:VB	est\de_dust.txt" For Input As #1

While Not EOF(1)
Line Input #1, line

If (Mid(line, 1, 11)) = Trim(w) Then
comp = comp + 1


End If
Wend
Close #1


recherchemot = comp
End Function

Recherche un mot ds un fichier et afficher le nbre de fois qu'il a etait trouve

5 réponses

Discussions similaires