Dim fichent$, l$, fichsor$, filtre$, p%, famille$, nom$, f%, infec$, listfam$, resu%(16), i, S%
filtre$ = "*.*"
'##B#
Rem Print "fichier d'entrée"
Rem FileSelect "", "", fichent$
Rem Dlg Open Me, $01000, "Fichier d'entrée", "", "", filtre$, fichent$
Rem Print fichent$
Rem Print "fichier de sortie"
Rem FileSelect "", "", fichsor$
Rem Dlg Open Me, $00002, "Fichier de sortie", "", "", filtre$, fichsor$
Open "zhp.txt" for Input As # 1
Open "zhpresu.txt" for Output As # 2
Open "PUP.txt" for Output As # 3
Open"Adware.txt" for Output As # 4
Open "Hijacker.txt" for Output As # 5
Open "Crapware.txt" for Output As # 6
Open "Spyware.txt" for Output As # 7
Open "Toolbar.txt" for Output As # 8
Open "Trojan.txt" for Output As # 9
Open "Rogue.txt" for Output As # 10
Open "Divers.txt" for Output As # 15
Open "Worm.txt" for Output As # 11
Open "PUA.txt" for Output As # 12
Open "zhpsans.txt" for Output As # 16
listfam$ = "PUP     Adware  HijackerCrapwareSpyware Toolbar Trojan  Rogue   Worm    PUA     "
OpenW # 1, 10, 10, 400, 400, 48
TitleW 1, "Séparation des infections dans ZHP"
While Not EOF(# 1)
  Line Input # 1, l$
  p% = InStr(l$, "=>") + 2
  If p% = 2 Or SubStr(l$, p%, 1) = "." Then GoTo suivant
  infec$ = Trim(SubStr$(l$, p%))
  Print # 2, l$
  Rem Print # 2, infec$; Tab(40);
  Print # 16, Trim(Left$(l$, p% - 3))
  f% = InStr( infec$, ".")
  If f% > 0 Then
    famille$ = SubStr$(infec$, 1, f% - 1)
    nom$ = SubStr$(infec$, f% + 1)
  Else
    famille$ = "Divers"
    nom$ = "vide"
  EndIf
  f% = InStr(listfam$, famille$)
  If f% = 0 Then p% = 15 Else p% = (f% + 7) / 8 + 2
  Rem   Print # 2, p%, famille$, nom$
  Print # p%, l$
  Inc resu%(p% - 2)
  suivant:
Wend
Close
Print
'##E#
S% = 0
For i = 1 To 10
  Print , SubStr(listfam$, (i * 8 - 7), 8), resu%(i)
  S% = S% + resu%(i)
Next
Print
Print , "Total", S%