Lire et écrire dans un fichier txt en utilisant VB.NET avec des mots entre

Question

Je veux ouvrir un fichier txt et y écrire numbers de 1 to 100 et mettre entre chaque numéro enter.

Answer 1

Une façon vous pouvez essayer est d'écrire les chiffres dans un StringBuilder puis utiliser sa méthode ToString() pour obtenir le texte résultant:

Imports System.IO 
Imports System.Text 


Public Class NumberWriter 
    Private ReadOnly OutputPath as String = _ 
      Path.Combine(Application.StartupPath, "out.txt") 


    Public Sub WriteOut() 
     Dim outbuffer as New StringBuilder() 

     For i as integer = 1 to 100 
      outbuffer.AppendLine(System.Convert.ToString(i)) 
     Next i 

     File.WriteAllText(OutputPath, outbuffer.ToString(), true) 
    End Sub 

    Public Shared Sub Main() 
     Dim writer as New NumberWriter() 
     Try 
     writer.WriteOut() 
     Catch ex as Exception 
     Console.WriteLine(ex.Message) 
     End Try 
    End Sub 
End Class 

Answer 2

Voir System.IO namespace, en particulier le System.IO.File class.

Answer 3

Il y a un bon exemple sur à la maison et apprendre

Dim FILE_NAME As String = "C:\test2.txt" 

If System.IO.File.Exists(FILE_NAME) = True Then 
    Dim objWriter As New System.IO.StreamWriter(FILE_NAME) 
    objWriter.Write(TextBox1.Text) 
    objWriter.Close() 
    MsgBox("Text written to file") 
Else 
    MsgBox("File Does Not Exist") 
End If 

Answer 4

Vous pouvez également utiliser l'espace de noms "My.Computer.FileSystem", comme:

Dim str As String = "" 
For num As Int16 = 1 To 100 
    str += num.ToString & vbCrLf 
Next 
My.Computer.FileSystem.WriteAllText("C:\Working\Output.txt", str, False)