Oh, da hab ich beim erstellen des Beitrags was durcheinander gebracht. Kann man den Beitrag nicht ändern??
hier nochmal in übersichtlicher Form.
Am besten wäre, wenn ich eine Function hätte, in der ich z.b. Dim Ursache_3(9, 9, 9, 5) As String übergebe und dieses wird komplett als Datei gespeichert und kann umgekehrt wieder genau so gefüllt werden. Kann mir jemand helfen??
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
|