miska593
Messages postés dimanche 12 mars 2017Date d'inscription
24 avril 2017
Dernière intervention
-
12 mars 2017 à 20:52 - Dernière réponse : Whismeril12032
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 septembre 2018
Dernière intervention
- 27 mars 2017 à 21:36
je voudrais savoir comment enregistrer une liste mot par rapport une position d'un mot avec writealltext sens utiliser WriteAllLines.
voici mon code :
If My.Computer.FileSystem.FileExists(Files) Then
Dim lines As String = File.ReadAllText(Files)
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);"}
For i = 0 To list.Count - 1
If lines.Contains("network.predictor.cleaned-up") Then
lines = lines & vbCrLf & list(i) '<= ça sauvegarde a la dernière lignes.
End If
Next
File.WriteAllText(Files, lines)
End If
je voudrais savoir comment enregistrer a partir network.predictor.cleaned-up avec ma list de mot avec WriteAllText?
Whismeril12032
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 septembre 2018
Dernière intervention -12 mars 2017 à 21:09
0
Merci
Bonsoir
VbCrlf c'est pas du VB.Net, c'est de l'import VB6, il serait judicieux de retirer cet import car des fois il est générateur de bugs difficiles à trouver.
dans ta liste y'a pas network.predictor.cleaned-up, donc là ton code ne fait rien.
enfin ton code lit un fichier, ajoute (ou pas) du texte après le contenu et réécrit le fichier, pourquoi ne pas tout simplement écrire à la suite du fichier? et qu'est-ce que t'as contre writeAllLines ça marche bien?
Bonsoir,
Dans mon fichier , j'ai un mot qui s'appelle network.predictor.cleaned-up et je voudrais ajouter ma liste après ce mot. J'ai rien contre WriteAllLIne mais je voudrais ajouter ma liste avec WriteallText.
Es ce que c'est possible avec WriteAllText? Est comment?
Merci de votre reponse.
Whismeril12032
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 septembre 2018
Dernière intervention -13 mars 2017 à 00:25
0
Merci
Ha je n'avais pas compris.
Voici un exemple
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
Merci de votre réponse mais j'ai un probléme avec votre code :
dans mon fichier il y a liste de mot:
exemple :.....etc
user_pref("network.http.proxy.pipelining", true);
user_pref("network.predictor.cleaned-up",true); '<= ajouter ma list en dessous network.predictor.cleaned-up
user_pref("network.proxy.type", 0);
....etc
le code :
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
il m'affiche une erreur :
L'exception System.InvalidCastException n'a pas été gérée
Message=La conversion de la chaîne "
# User Preferences
" en type 'Double' n'est pas valide.
comment faire pour ajouter ma list dans dessous avec network.predictor.cleaned-up.
miska593
Messages postés dimanche 12 mars 2017Date d'inscription
24 avril 2017
Dernière intervention -14 mars 2017 à 12:54
0
Merci
Bonjour, j'ai trouver la solution avec WriteAllText mais c'est mieux pour travail avec WriteAllLines.
j'ai un probléme avec le code modifier, j'ai un message erreur : L'argument 'Start' doit être supérieur à zéro.
Dim 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
avec WriteAllText ça fonctionne mais pas avec WriteAllLines. comment on fait pour remplacer ma listip avec WriteAllLines?
Avant de te donner quoique ce soit je t'ai posé une question.
Je te montre un code, tu en appliques la moitié et après tu me dit que ça ne marche pas. Je te pose une question tu ne réponds pas....
Alors pourquoi moi je te répondrais? N'oublie pas que nous sommes tous bénévoles.
Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Whismeril12032
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 septembre 2018
Dernière intervention -27 mars 2017 à 21:36
0
Merci
Bonsoir,
le 14 mars à 17h42, je t'ai posé une question.
Tu n'y as pas répondu.
Tant que tu n'y répondras pas, je n'irai pas plus loin et ne répondrai d'ailleurs plus.
