Bonjour,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
If My.Computer.FileSystem.FileExists(Files) Then
            Dim lines As List(Of String) = System.IO.File.ReadAllLines(Files).ToList
            Dim list As New List(Of String) From {"user_pref(""network.proxy.backup.ftp"", """");",
   "user_pref(""network.proxy.backup.ftp_port"", 0);",
   "user_pref(""network.proxy.backup.socks"", """");",
   "user_pref(""network.proxy.backup.socks_port"", 0);",
   "user_pref(""network.proxy.backup.ssl"", """");",
   "user_pref(""network.proxy.backup.ssl_port"", 0);",
   "user_pref(""network.proxy.ftp"", " & """" & TextBox1.Text & """);",
   "user_pref(""network.proxy.ftp_port"", " & "" & TextBox2.Text & ");",
   "user_pref(""network.proxy.http"", " & """" & TextBox1.Text & """);",
   "user_pref(""network.proxy.http_port"", " & "" & TextBox2.Text & ");",
   "user_pref(""network.proxy.share_proxy_settings"", true);",
   "user_pref(""network.proxy.socks"", " & """" & TextBox1.Text & """);",
   "user_pref(""network.proxy.socks_port"", " & "" & TextBox2.Text & ");",
   "user_pref(""network.proxy.ssl"", " & """" & TextBox1.Text & """);",
   "user_pref(""network.proxy.ssl_port"", " & "" & TextBox2.Text & ");"}
 
            For a = 0 To lines.Count - 1
                For b = 0 To list.Count - 1
                        Dim adresse As String = list(b).Split(",")(0)
                        If lines(a).Contains(adresse) = True Then
                            MessageBox.Show("Fichier trouver " & adresse)
                        Else
                            MessageBox.Show("Fichier n'a pas etait trouver " & adresse)
                        End If
                    Next
                Next
            File.WriteAllLines(Files, lines)
            Process.Start("NOTEPAD.EXE", Files)
        End If
je voudrais savoir comment vérifier ma list de mot dans la lines si existe ? avec mon code il me marque fichier n'a pas etait trouver.
Pouvez-vous m'aider a corriger ce petit probléme,
cordialement,