Bonsoir,
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
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.