Dim texteOrigine As String = "Ceci est un texte, pour te montrer" & Environment.NewLine & "comment insérer du contenu, juste là après le mot TrucMuche." & Environment.NewLine & "Et pas après!" Dim motCle As String = "TrucMuche." Dim indexTexte As Integer = texteOrigine.IndexOf(motCle) Dim debutDuTexte As String = texteOrigine.Substring(0, indexTexte + motCle.Length) Dim finDuTexte As String = texteOrigine.Substring(indexTexte + motCle.Length) Dim laListe As New List(Of String)() From {"Voici les lignes,", "à écrire après le mot clé", "pour l'exemple"} Dim contenu As String = String.Join(Environment.NewLine, laListe) Dim aMettreDansWriteAllTexte As String = debutDuTexte & contenu & finDuTexte
If lines.Contains("network.predictor.cleaned-up") Then
Dim debut As String = lines.Substring(0, lines + "network.predictor.cleaned-up".Length)
Dim fin As String = lines.Substring(lines + "network.predictor.cleaned-up".Length)
Dim contenu As String = String.Join(Environment.NewLine, list)
Dim Mettre As String = debut & contenu & fin
File.WriteAllText(Files, Mettre)
End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim ListIP As New List(Of String) From {"user_pref(""network.proxy.ftp"",", "user_pref(""network.proxy.http"",", "user_pref(""network.proxy.socks"",", "user_pref(""network.proxy.ssl"","} For a = 0 To lines.Count - 1 For j = 0 To list.Count - 1 If lines(a).Contains(list(j)) = True Then For Each Data As String In ListIP Dim First As Integer = InStr(lines(a), Data) - 1 Dim Last As Integer = InStr(First, lines(a), """);") lines(a) = lines(a).Replace(lines(a).Substring(First, Last - First), Data & "" & TextBox1.Text & """);") Next ...etc
WriteAllText mais c'est mieux pour travail avec WriteAllLines
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