cs_GaGa
Messages postés8Date d'inscriptionjeudi 4 avril 2002StatutMembreDernière intervention18 décembre 2006
-
17 déc. 2006 à 16:09
cs_GaGa
Messages postés8Date d'inscriptionjeudi 4 avril 2002StatutMembreDernière intervention18 décembre 2006
-
18 déc. 2006 à 01:27
Salut,
dsl de vous deranger pour si peut ;-) mais suite a un pari stupide je suis a la recherche d'un petit prog qui permete de compter combien de fois chaque mot aparait dans un document texte.
Je l'acorde ce n'est pas trop utile mais cela me depanerai bien.
Enfin j'ai cherché un peut partout et rien trouver si vous avec un lient qui pourais maider merci d'avance !
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 17 déc. 2006 à 16:42
Il y a peu (très peu de temps) un sujet identique a été traité sur une chaîne de caractères.
Il ne te reste plus qu'à voir comment (et les exemples sont vraiment nombreux sur ce forum) comment ouvrir (avec Open...) ton fichier texte pour donner à une variable la valeur de son contenu.3
Une fois cette variable ainsi définie : il te suffit de lui appliquer l'une des méthodes que tu trouveras dans l'exemple précité (à chercher sur ce forum... auquel j'ai participé. Tout celà est très récent.)
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 17 déc. 2006 à 17:40
Salut,
allez, en voici une toute prête :
Option Explicit
Public Function NbInStr(ByVal MyStart As Long, ByVal MyWord As String, ByVal MyString As String) As Long
If MyStart < 1 Or LenB(MyWord) < 2 Or LenB(MyString) < 2 Then Exit Function
Dim i As Long, MyCounter As Long
MyCounter = 0
For i = MyStart * 2 - 1 To LenB(MyString) Step 2 If MidB(MyString, i, LenB(MyWord)) MyWord Then MyCounter MyCounter +
1
Next i
NbInStr = MyCounter
End Function
Sub Exemple_Utilisation()
Dim ff As Integer, Contenu As String
ff = FreeFile
Open "C:\Chemin\Nom fichier.txt" For Input As #ff
Contenu = Input(LOF(ff), #ff)
Close #ff