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 35
| Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("C:\LogFile.txt", 1, True)
List=array("Gros","Mots_vulgaire","Mauvais","bad","mechant")
With FSO.GetFile("C:\LogFile.txt")
LingesFichiers = Split(.OpenAsTextStream(1, 0).Read(.Size), vbcrlf)
End With
' On déclare la variable qui va contenir la ligne lue
Dim TEMP_Line
' On lit le fichier tant et aussi longtemps que nous ne sommes rendus en bas
Do While Not File.AtEndOfStream
' TEMP_Line continendra la ligne. Nous pouvons faire toutes sortes de manipulations
' avec cette variable. À noter qu'on ne peut utiliser plus d'une fois .ReadLine par fichier
' ouvert. C'est pourquoi il faut l'assigner à une variable
TEMP_Line = File.ReadLine
'MsgBox("Ligne lue: " & TEMP_Line)
Loop
' Il ne faut absolument pas oublier de fermer le fichier
File.Close
For X=0 to UBound(List)
For Each Ligne in LingesFichiers
If InStr(1, Ligne, List(X), 1) > 0 Then
msgBox "Mauvais mot trouvé :" &List(X),16,"ATTENTION MAUVAIS MOTS !!!"
Call Avertir
end if
Next
Next
'------------------------------------------------Avertir-------------------------------------------------------------
sub Avertir
dim parler
set parler=createobject("SAPI.SpVoice")
parler.speak "Please, don't use Bad words, any more, like" &List(X)&". Thank you, for your Understanding !"
end sub
'----------------------------------------------------------------------------------------------------------------------- |
Partager