Je cherche un anti insulte
GuillaumeNoPv
Messages postés
3
Date d'inscription
dimanche 3 août 2003
Statut
Membre
Dernière intervention
14 septembre 2003
-
9 août 2003 à 09:02
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 9 août 2003 à 14:43
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 9 août 2003 à 14:43
1 réponse
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
9 août 2003 à 14:43
9 août 2003 à 14:43
eh ... faudrais faire une base de donner en access avec tout les mots. Ensuite à partir de VB, se conecter dessus. recevoir un argument du type (C:\antiFuck\antiFuck.exe "ceci est une phrase qui sacre cr****")
capter l'argument avec Command. Faire un upper à la phrase. puis faire une requête de ce genre
set rst db.openreccorsdset("select sacre from antiFuck where *sacre* " & upper(Command);")
while not rst.EOF
msgbox "Le mot interdit est : " & rst![sacre]
rst.movenext
wend
capter l'argument avec Command. Faire un upper à la phrase. puis faire une requête de ce genre
set rst db.openreccorsdset("select sacre from antiFuck where *sacre* " & upper(Command);")
while not rst.EOF
msgbox "Le mot interdit est : " & rst![sacre]
rst.movenext
wend
