MSDN schrieb:

This method opens a file, reads each line of the file, then adds each line as an element of a string array. It then closes the file. A line is defined as a sequence of characters followed by a carriage return ('\r'), a line feed ('\n'), or a carriage return immediately followed by a line feed. The resulting string does not contain the terminating carriage return and/or line feed.

This method attempts to automatically detect the encoding of a file based on the presence of byte order marks. Encoding formats UTF-8 and UTF-32 (both big-endian and little-endian) can be detected.

VB.NET-Quellcode

1. Imports System
2. Imports System.IO
4. Public Class Test
5. Public Shared Sub Main()
6. Dim path As String = "c:\temp\MyTest.txt"
7. Dim sw As StreamWriter
9. ' This text is added only once to the file.
10. If File.Exists(path) = False Then
12. ' Create a file to write to.
13. Dim createText() As String = {"Hello", "And", "Welcome"}
14. File.WriteAllLines(path, createText)
15. End If
17. ' This text is always added, making the file longer over time
18. ' if it is not deleted.
19. Dim appendText As String = "This is extra text" + Environment.NewLine
20. File.AppendAllText(path, appendText)
22. ' Open the file to read from.
23. Dim readText() As String = File.ReadAllLines(path)
24. Dim s As String
25. For Each s In readText
26. Console.WriteLine(s)
27. Next
28. End Sub
29. End Class

stefan15 schrieb:

sry code vergessen :

VB.NET-Quellcode

1. 'Kontaktdaten einlesen
2. Dim t As Object
3. Dim f As Object
4. Dim FileLength As Object
5. f = ("C:\Programme\Email\contacts.txt")
6. FileOpen(1, f, OpenMode.Input)
7. FileLength = LOF(1)
8. t = InputString(1, FileLength)
9. FileClose(1)
10. RichTextBox1.Text = t
11. 'Kontaktdaten aufsplitten und in die Liste übernehmen
12. For i As Integer = 0 To RichTextBox1.Lines.Count - 1
13. ListBox1.Items.Add(RichTextBox1.Lines(i))
14. Next