Hallihallöchen
ich hab ein problem.
Und zwar hab ich eine Matrix mit 14 auf 6 feldern die die werte 0 oder 1 annehmen können.
wenn ich die gespeichert hab sieht das so aus:
14,6
"; Zeichen",1
"11111111111111"
"11111111111111"
"11111111111111"
"11111111111111"
"11111111111111"
"11111111111111"
die 14,6 und zeichen hab ich weggenommen.
die zahlen sollen nun als ein text oder zahlenfolge in einer reihe stehen.das sieht so aus.
"010101010101010101010101010101010101010101010101010101010101010101010101010101010101"
'das ist in mienem textfile eine zeile'
ok so weit so gut der code dazu:
For i = 1 To 1
' text = ""
For j = matrix(1).Column To 1 Step -1
matrix(zeichen).getFeld j, i, wert
char = CStr(wert)
text = text + char
Next
Next
und das hab ich immer wiederhlt und anstatt 1 to 1 höher gestzt also 2 to 2 und 3 to 3 ....es ist en Public Sub speichern_Click() und die variablenm sind alle deklariert. wegen platzmangel.
jetzt kommt das problem.beim laden der code sieht so aus :
For i = 1 To 1
Input #1, text
For j = 1 To matrix(zeichen).Column
Temp = Mid(text, j, 1)
wert = CInt(Temp)
'Abfrage auf fehlerhafte Datei
If (wert <> 0) Then
If (wert <> 1) Then
bFehler = False
End If
End If
matrix(zeichen).putFeld j, i, wert
Next
jetz nimmt er die ersten 14 zahlen von dem textfile und setz dies um wenn ich aber wieder auf das textfile zugreigfen möchte bringt er mir einlesen hinter dateiende und der2.te input 1# ,text ist leer. Jetzt weis ich nicht wie man auf die zahlen 15 bis 28 zugreift.
Danke im vorraus .
cu
Hucky
ich hab ein problem.
Und zwar hab ich eine Matrix mit 14 auf 6 feldern die die werte 0 oder 1 annehmen können.
wenn ich die gespeichert hab sieht das so aus:
14,6
"; Zeichen",1
"11111111111111"
"11111111111111"
"11111111111111"
"11111111111111"
"11111111111111"
"11111111111111"
die 14,6 und zeichen hab ich weggenommen.
die zahlen sollen nun als ein text oder zahlenfolge in einer reihe stehen.das sieht so aus.
"010101010101010101010101010101010101010101010101010101010101010101010101010101010101"
'das ist in mienem textfile eine zeile'
ok so weit so gut der code dazu:
For i = 1 To 1
' text = ""
For j = matrix(1).Column To 1 Step -1
matrix(zeichen).getFeld j, i, wert
char = CStr(wert)
text = text + char
Next
Next
und das hab ich immer wiederhlt und anstatt 1 to 1 höher gestzt also 2 to 2 und 3 to 3 ....es ist en Public Sub speichern_Click() und die variablenm sind alle deklariert. wegen platzmangel.
jetzt kommt das problem.beim laden der code sieht so aus :
For i = 1 To 1
Input #1, text
For j = 1 To matrix(zeichen).Column
Temp = Mid(text, j, 1)
wert = CInt(Temp)
'Abfrage auf fehlerhafte Datei
If (wert <> 0) Then
If (wert <> 1) Then
bFehler = False
End If
End If
matrix(zeichen).putFeld j, i, wert
Next
jetz nimmt er die ersten 14 zahlen von dem textfile und setz dies um wenn ich aber wieder auf das textfile zugreigfen möchte bringt er mir einlesen hinter dateiende und der2.te input 1# ,text ist leer. Jetzt weis ich nicht wie man auf die zahlen 15 bis 28 zugreift.
Danke im vorraus .
cu
Hucky