Tester

Signaler
Messages postés
44
Date d'inscription
mercredi 19 septembre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
salut

je changer do while par for pour chercher dans une tableau a n case le mot qui va met  " Trend Micro PC-cillin Internet Security 2007" c_a_d le nom d'antivirus  , lors version et etc.

pour afficher dans une label qui appelle "nom_antivirus.",version.Caption et ansi de suite

* mais la recherche est se fait dans le fichier texte "AntiVirus.txt"
nb: comment chercher une chaine de carectere dans une fichier texte  et lorsque en ne trouve pas lors chaine  en va ajouter le chaine pour dans une tableau  motnom(), motversion(), etc
et parcourir lors tableau

Private Sub antivirus()


n = 10
Dim motnom() As String


Dim motversion() As String




Dim mottype() As String


Dim motdernier() As String


Dim i, j, k, l As Integer


Dim tmp As String 'variable pour stocker chaque ligne du fichier
Dim mot As String 'variable pour stocker le mot à rechercher
Dim s As String


Dim nom_antivirus As Variant
Dim version_antivirus As Variant
Dim type_antivrus As Variant
Dim dernier As Variant


n = 100

""en utilise le shell pour executer le AntiVirus.bat dans le cmd.exe  pour met le continu dans le fichier AntiVirus.txt ,ansi de suite , et puis met le continu de fichier dans le list3 pour parcourire la recherche

Shell "\Application_Securiser_de_Windows\LesoutiledePFE\outil\cmd.exe /c  \Application_Securiser_de_Windows\LesoutiledePFE\AntiVirus\AntiVirus.bat"
place1 = "\Application_Securiser_de_Windows\Resultat\AntiVirus.txt"   'OFile
List3.Clear
ReDim motnom(n)
ReDim mottype(n)
ReDim motversion(n)
ReDim motdernier(n)
 motnom(0) = "Trend Micro PC-cillin Internet Security 2007"
motversion(0) = "15.3"
mottype(0) = "0x1"
motdernier(0) = ""
 
'motnom(1) = ""
'motversion(1) = " "
'mottype(1) = ""
'motdernier(1) = ""


' il est varaiable


    Open place1 For Input As 2  'on ouvre le fichier à analyser
   
 Do Until EOF(2) 't'en qu'on est pas à la fin du fichier:
   
           Line Input #2, tmp 'on lis la ligne et on la stock dans la variable
       
            List3.AddItem tmp 'on ajoute la ligne dans la listbox
      


       
               ' Do While ((InStr(tmp, motnom(i))) > 0) ' Or ((InStr(tmp, motnom(i + 1))) > 0) 'on vérifi si le mot rechercher ne serais pas dans la ligne
                  For i = 0 To n - 1
                 
                 
                  Next i
                  If (Val(InStr(tmp, motnom(i))) > 0) Then ' And (Val(InStr(tmp, motnom(i + 1))) > 0)) Then
                      'motnom(i) = ""
                    nom_antivirus.Caption = "" & motnom(i)        "voila lors porbleme , lorsque en fait l'execution ,il donne un message "    un objet est decret " 

                     'deuxiemenom.Caption = "" & motnom(i + 1)
                     'Next i ' deuxieme nom  antivirus
                     For j = 0 To n - 1
                    
                     Next j
                     If (Val(InStr(tmp, motversion(j)) > 0)) Then '  And Val(InStr(tmp, motversion(i + 1))) > 0) Then
                    version.Caption = "" & motversion(j)  'version
                    'deuxiemeversion.Caption = "" & motversion(j + 1)
                    'End If
                    'Next j
                    For k = 0 To n - 1
                   
                    Next k
                    If Val(InStr(tmp, mottype(k)) > 0) Then ' And Val(InStr(tmp, mottype(k + 1)) > 0) Then
                    type_de_mise_a_jour.Caption = "" & mottype(j)  ' type d'antivirus
                    'deuxiemetype.Caption = "" & mottype(j + 1) 'deuxieme type d'antivirus
                   ' End If
               
                  ' Next k
                   
                  'Exit For
                   
                 ElseIf ((Val(InStr(tmp, motnom(i))) > 0)) Then
                
                                 'tester pour une seule antivirus
               
                     nom_antivirus.Caption = "  " & motnom(i)  'nom d'antivirus
                      'nom_antivirus.Caption = "  " & " " & motnom(i + 1) 'nom d'antivirus
                   
                    
                     If (Val(InStr(tmp, motversion(j)) > 0)) Then  'Or Val(InStr(tmp, motversion(i + 1))) > 0) Then
                     version.Caption = "" & motversion(j)  'version
                     'version.Caption = "" & "" & motversion(j + 1) 'version
                     End If
                   
                    
                  
                   
                     If Val(InStr(tmp, mottype(k)) > 0) Or Val(InStr(tmp, mottype(k + 1)) > 0) Then
                     type_de_mise_a_jour.Caption = "" & mottype(j)  ' type d'antivirus
                     'type_de_mise_a_jour.Caption = "" & "" & mottype(j + 1)
                     End If
                  
                  
                    
                     If Val(InStr(tmp, motdernier(l)) > 0) Or Val(InStr(tmp, motdernier(l + 1)) > 0) Then
                     dernier_date_de_mise_ajour.Caption = "" & motdernier(l)
                     'dernier_date_de_mise_ajour.Caption = "" & motdernier(l + 1)
                     End If
                   
                    
                 
                 ' Exit For
               
                Else
                
                MsgBox " il n'exsiste aucun antivirus ou bien votre Antivirus n'est pas connu  " '& vbCrLf " & "si tu vous ajouter votre Antivirus  ou bien installé un Antivirus pour securiser votre machine"
                'lorsque il n'a pas d'antivirus , en doit ajouter un antivirus bien defini
                 'nom_antivirus = Form1.nom_antivirus.Text
                ' version_antivirus = Form1.version.Text
                 'type_antivrus = Form1.denier_mise_ajour.Text
                 'dernier = Form1.type_de_mise_ajour.Text
                 

'"lorsque il n a pas le chaine en va ajouter 

                  If Form1.ajouter = True Then
                  motnom(i) = nom_antivirus
                  motversion(j) = version_antivirus
                  mottype(k) = type_antivrus
                  motdernier(l) = dernier
                  End If
                  
                 
              
                  End If
               
                 
                   'Next i
                 ' Next j
                 'Next k
                 'Next l
                 
                 
                           
                       
                         End If
                        ' Loop
                 Close #2
                  ' End If
                    Close #2
         'End If
    'Loop
   ' i = i + 1
    'j = j + 1
    'k = k + 1
    'l = l + 1
   
    Close #2
   End If
    'Loop
  Loop
   
    'Exit For
   
   
   
   


End Sub


 

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Même réponse que dans ta même question d'hier --> http://www.vbfrance.com/infomsg_TESTER_1038537.aspx
Personne ne te répondra avec aussi peu d'information.
Tu fournis le listing d'un programme où la moitié des instructions est en commentaire. Tu crois que c'est facile à lire ?
Prends au moins le soin de rendre les choses faciles pour le lecteur. On ne va pas prendre une heure pour mettre au propre ton code !

On n'est pas là pour dépanner tes programmes mais pour répondre aux questions que tu te poses.
Alors si tu veux des réponses, explique, décompose ce que tu as faire.
Tu parles de :
- Rechercher un texte dans un fichier :
   Est-ce que la lecture des données se passe bien ?
   As-tu vérifié que tu lisais bien toutes les lignes les unes après les autres ?
- Comparer le texte de chaque ligne avec le texte recherché
   As-tu cherché comment rechercher un texte dans un autre texte ?
   As-tu vérifié les paramètres de l'instruction Instr afin que la comparaison soit bien faite sous forme de texte (et pas binairement) ? Cela peut corriger des problèmles de majuscules/minuscules ou des accents
- Apprends à debuguer ton programme.
   VB6 a les commandes suivantes :
   - F8 au lieu de F5 pour aller d'instruction en instruction
   - Quand le programme est arrêté, en survolant les variables avec la souris, cela provoque l'affichage du contenu de la variable
      Vérifie que la variable a bien la valeur que tu attends
      Vérifie que les tests des If ou des boucles fonctionne
   - Créé un point d'arrêt en cliquant sur une ligne + touche F9 : Le programme s'arrêtera là pour que tu vérifies le contenu des variables
     Ensuite, F8 pour continuer d'une seule ligne ou F5 pour que le programme continue normalement.

Etc, etc ...   

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)