Je crois savoir comment faire pour UN fichier mais pour plusieurs ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Function Apparition(str As String, substr As String) As Integer
Dim p As Integer = 0
Dim count As Integer = 0
Do Until p = -1
p = str.IndexOf(substr)
If p > -1 Then
count += 1
str = str.Substring(p + substr.Length)
End If
Loop
Return count
End Function