Function Datenfeld_1_Speichern(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Dateiendung As String)
Dim i1 As Long
For i1 = 0 To Anzahl_Feld1
Filpat = Pfad & Dateiname & i1 & Dateiendung
If Datenfeld(i1) <> "" Then
Open Filpat For Output As #1
Print #1, Datenfeld(i1)
Close #1
Else
If Dir(Filpat) <> "" Then
Kill (Filpat)
End If
End If
Next i1
End Function
Function Datenfeld_2_Speichern(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Anzahl_Feld2, Dateiendung As String)
Dim i1 As Long
Dim i2 As Long
For i1 = 0 To Anzahl_Feld1
For i2 = 0 To Anzahl_Feld2
Filpat = Pfad & Dateiname & i1 & "_" & i2 & Dateiendung
If Datenfeld(i1, i2) <> "" Then
Open Filpat For Output As #1
Print #1, Datenfeld(i1, i2)
Close #1
Else
If Dir(Filpat) <> "" Then
Kill (Filpat)
End If
End If
Next i2
Next i1
End Function
Function Datenfeld_3_Speichern(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Anzahl_Feld2, Anzahl_Feld3, Dateiendung As String)
Dim i1 As Long
Dim i2 As Long
Dim i3 As Long
For i1 = 0 To Anzahl_Feld1
For i2 = 0 To Anzahl_Feld2
For i3 = 0 To Anzahl_Feld3
Filpat = Pfad & Dateiname & i1 & "_" & i2 & "_" & i3 & Dateiendung
If Datenfeld(i1, i2, i3) <> "" Then
Open Filpat For Output As #1
Print #1, Datenfeld(i1, i2, i3)
Close #1
Else
If Dir(Filpat) <> "" Then
Kill (Filpat)
End If
End If
Next i3
Next i2
Next i1
End Function
Function Datenfeld_4_Speichern(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Anzahl_Feld2, Anzahl_Feld3, Anzahl_Feld4, Dateiendung As String)
Dim i1 As Long
Dim i2 As Long
Dim i3 As Long
Dim i4 As Long
For i1 = 0 To Anzahl_Feld1
For i2 = 0 To Anzahl_Feld2
For i3 = 0 To Anzahl_Feld3
For i4 = 0 To Anzahl_Feld4
Filpat = Pfad & Dateiname & i1 & "_" & i2 & "_" & i3 & "_" & i4 & Dateiendung
If Datenfeld(i1, i2, i3, i4) <> "" Then
Open Filpat For Output As #1
Print #1, Datenfeld(i1, i2, i3, i4)
Close #1
Else
If Dir(Filpat) <> "" Then
Kill (Filpat)
End If
End If
Next i4
Next i3
Next i2
Next i1
End Function
Function Datenfeld_1_Laden(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Dateiendung As String)
Dim i1 As Long
Dim Ausgabetext As String
For i1 = 0 To Anzahl_Feld1
Filpat = Pfad & Dateiname & i1 & Dateiendung
If Dir(Filpat) <> "" Then
Open Filpat For Input As #1
Datenfeld(i1) = ""
Do While Not EOF(1)
Input #1, Ausgabetext
Datenfeld(i1) = Datenfeld(i1) & Ausgabetext & vbCr
Loop
Close #1
End If
Next i1
End Function
Function Datenfeld_2_Laden(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Anzahl_Feld2, Dateiendung As String)
Dim i1 As Long
Dim i2 As Long
Dim Ausgabetext As String
For i1 = 0 To Anzahl_Feld1
For i2 = 0 To Anzahl_Feld2
Filpat = Pfad & Dateiname & i1 & "_" & i2 & Dateiendung
If Dir(Filpat) <> "" Then
Open Filpat For Input As #1
Datenfeld(i1, i2) = ""
Do While Not EOF(1)
Input #1, Ausgabetext
Datenfeld(i1, i2) = Datenfeld(i1, i2) & Ausgabetext & vbCr
Loop
Close #1
End If
Next i2
Next i1
End Function
Function Datenfeld_3_Laden(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Anzahl_Feld2, Anzahl_Feld3, Dateiendung As String)
Dim i1 As Long
Dim i2 As Long
Dim i3 As Long
Dim Ausgabetext As String
For i1 = 0 To Anzahl_Feld1
For i2 = 0 To Anzahl_Feld2
For i3 = 0 To Anzahl_Feld3
Filpat = Pfad & Dateiname & i1 & "_" & i2 & "_" & i3 & Dateiendung
If Dir(Filpat) <> "" Then
Open Filpat For Input As #1
Datenfeld(i1, i2, i3) = ""
Do While Not EOF(1)
Input #1, Ausgabetext
Datenfeld(i1, i2, i3) = Datenfeld(i1, i2, i3) & Ausgabetext & vbCr
Loop
Close #1
End If
Next i3
Next i2
Next i1
End Function
Function Datenfeld_4_Laden(Pfad As String, Dateiname As String, Datenfeld, Anzahl_Feld1 As Integer, Anzahl_Feld2, Anzahl_Feld3, Anzahl_Feld4, Dateiendung As String)
Dim i1 As Long
Dim i2 As Long
Dim i3 As Long
Dim i4 As Long
Dim Ausgabetext As String
For i1 = 0 To Anzahl_Feld1
For i2 = 0 To Anzahl_Feld2
For i3 = 0 To Anzahl_Feld3
For i4 = 0 To Anzahl_Feld4
Filpat = Pfad & Dateiname & i1 & "_" & i2 & "_" & i3 & "_" & i4 & Dateiendung
If Dir(Filpat) <> "" Then
Open Filpat For Input As #1
Datenfeld(i1, i2, i3, i4) = ""
Do While Not EOF(1)
Input #1, Ausgabetext
Datenfeld(i1, i2, i3, i4) = Datenfeld(i1, i2, i3, i4) & Ausgabetext & vbCr
Loop
Close #1
End If
Next i4
Next i3
Next i2
Next i1
End Function