Textdatei lesen und schreiben (String, StringArray, etc...)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

    Public Function TXT2ListOfString(ByVal FullPath As String) As List(Of String)
        Dim lst As New List(Of String)
        If IO.File.Exists(FullPath) Then lst.AddRange(IO.File.ReadAllLines(FullPath, System.Text.Encoding.Default))
        Return lst
    End Function
    Public Function ListOfString2TXT(ByVal FullPath As String, ByVal lst As List(Of String)) As Boolean
        Dim f As New IO.FileInfo(FullPath)
        If f.Directory.Exists = True Then
            IO.File.WriteAllLines(FullPath, lst.ToArray, System.Text.Encoding.Default)
            Return True
        End If
        Return False
    End Function

    Public Function TXT2StringArray(ByVal FullPath As String) As String()
        Dim strar() As String = Nothing
        If IO.File.Exists(FullPath) Then strar = IO.File.ReadAllLines(FullPath, System.Text.Encoding.Default)
        Return strar
    End Function
    Public Function StringArray2TXT(ByVal FullPath As String, ByVal strar() As String) As Boolean
        Dim f As New IO.FileInfo(FullPath)
        If f.Directory.Exists = True Then
            IO.File.WriteAllLines(FullPath, strar, System.Text.Encoding.Default)
            Return True
        End If
        Return False
    End Function

    Public Function TXT2ByteArray(ByVal FullPath As String) As Byte()
        Dim byAr() As Byte = Nothing
        If IO.File.Exists(FullPath) Then byAr = IO.File.ReadAllBytes(FullPath)
        Return byAr
    End Function
    Public Function ByteArray2TXT(ByVal FullPath As String, ByVal byAr() As Byte) As Boolean
        Dim f As New IO.FileInfo(FullPath)
        If f.Directory.Exists = True Then
            IO.File.WriteAllBytes(FullPath, byAr)
            Return True
        End If
        Return False
    End Function

    Public Function TXT2String(ByVal FullPath As String) As String
        Dim str As String = ""
        If IO.File.Exists(FullPath) Then str = IO.File.ReadAllText(FullPath, System.Text.Encoding.Default)
        Return str
    End Function
    Public Function String2TXT(ByVal FullPath As String, ByVal str As String) As Boolean
        Dim f As New IO.FileInfo(FullPath)
        If f.Directory.Exists = True Then
            IO.File.WriteAllText(FullPath, str, System.Text.Encoding.Default)
            Return True
        End If
        Return False
    End Function