Private listitems As New List(Of String) For iter = 0 To 40000 listitems.Add("mvmvlvdldv,vdmdmdd fvdfdgdfgfdfd ---" & iter.ToString) Next System.IO.File.WriteAllLines(pathfichier, listitems.ToArray)
My.Computer.FileSystem.WriteAllText(nomFichierBDDTemporaire, "", False) 'on enregistre les données, triées, dans le fichier de base de donnée BaseDeDonnees.Sort() Dim buffer As String = "" For i As Int32 = 0 To (BaseDeDonnees.Count - 1) Dim ligne As String = BaseDeDonnees(i) buffer = buffer & ligne & vbCrLf If buffer.Length > 5000 Then My.Computer.FileSystem.WriteAllText(nomFichierBDDTemporaire, buffer, True) buffer = "" End If Next My.Computer.FileSystem.WriteAllText(nomFichierBDDTemporaire, buffer, True) buffer = "" My.Computer.FileSystem.MoveFile(nomFichierBDDTemporaire, nomFichierBdd, True)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEt ce que je veux faire, c'est changer le mot6 par exemple en mot10, sans avoir à tout réécrire....
non, c'est la structure simplifié... le nombre de mots par ligne est variable
Ce que je veux faire, c'est pouvoir modifier un mot si l'utilisateur se rend compte que la traduction est fausse
mais mon entreprise m'impose l'usage du fichier texte (c'est dans le cahier des charges)
Private listitems As New List(Of String) Try listitems = System.IO.File.ReadAllLines(pathfichier).ToList Catch ex As Exception MessageBox.Show(ex.Message) End Try