1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Private sub et call.

wilfriedp Messages postés 12 Date d'inscription vendredi 12 juin 2015 Statut Membre Dernière intervention 20 juin 2015 - 20 juin 2015 à 14:13
vb95 Messages postés 3390 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 27 janvier 2023 - 20 juin 2015 à 18:02
Bonjour,
J'ai actuellement un private qui permet de rechercher dans un fichier texte des mots définie et les retourne sur une console, jusqu'à là, rien de bien méchant : 
Private Sub Syncro()
        Dim Findstring = IO.File.ReadAllText(My.Computer.FileSystem.CurrentDirectory & "\Path.txt")
        Dim Lookfor(4) As String
        Lookfor(0) = "SciTE"
        Lookfor(1) = "Battle.net"
        Lookfor(2) = "CCleaner"
        Lookfor(3) = "FileZilla"
        Lookfor(4) = "Gyazo"

        Win32.AllocConsole()
        Dim sr As StreamReader = New StreamReader(My.Computer.FileSystem.CurrentDirectory & "\Path.txt")
        For Each line As String In File.ReadLines(My.Computer.FileSystem.CurrentDirectory & "\Path.txt")
            For Each s In Lookfor
                If line.Contains(s) Then
                    Console.WriteLine(line)
                End If
            Next
        Next
    End Sub


Maintenant le truc, c'est que j'aimerai utilisé lookfor dans un autre sub comme ceci : 
 Case "Lancer CCleaner"
                Shell(lookfor(2))


Je pourrais tout simplement c/c mon tableau dans le sub, mais c'est pas du tout optimisé.

Merci de vos réponses, bonne journée.
A voir également:

2 réponses

Réponse 1 / 2
wilfriedp Messages postés 12 Date d'inscription vendredi 12 juin 2015 Statut Membre Dernière intervention 20 juin 2015
20 juin 2015 à 14:20
Hep ! J'ai déjà trouvé une autre solution, comme ceci par exemple : 
Case "Lancer CCleaner"
                For Each line As String In File.ReadLines(My.Computer.FileSystem.CurrentDirectory & "\Path.txt")
                    If line.Contains("CCleaner") Then
                        Shell(line)
                    End If
                    Next


Mais j'aimerai savoir pour l'autre solution si cela aurait été possible ;)
0
Réponse 2 / 2
vb95 Messages postés 3390 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 27 janvier 2023 163
20 juin 2015 à 18:02
Salut
en VB net on utilise Process.Start et non Shell !
Google est ton ami
0
Rejoignez-nous