sato
04.07.2009, 01:37
Hallo
Will hoffen das mir jemand dabei helfen kann
Möchte eine Logdatei in eine SD karte täglich automatisch kreieren
die aus eine 4 stellige Nummer plus das Datum, bestehen soll
Das Datum kann ich von den Uhr Baustein DS1307 lesen und mit der
4 stellige nummer die Dateiname machen
Beispiel: 00021211.09
Habe diesen code geschrieben, aber es klappt nicht
weiss nur nicht was da falsch ist. Hat jemand eine
Idee wie das gemacht werden kann
[Code:]
board$ = "0002"
Month$ = Str(_month)
Day$ = Str(_day)
Year$ = Str(_year)
If Len(Year$) = 1 Then
Year$ = "0" + Year$
End If
'
Logfile$ = board$ + Day$ + Month$ + "." + Year$
'''Beispiel der Dateiname 00021211.09
Print #1 , "Logfile = " ; Logfile$ 'Zweck debug
'
'Fals die Datei noch nicht existiert, eine neue kreieren
If Logfile$ <> Last_logfile$ Then
Open Logfile$ For Output As #9 'Eine leere Datei kreieren
Print #9 , "---Start---" 'Etwas in die Datei schreiben
Flush #9
Close #9
Else
'
Datastr$ = "Hello World"
Open Logfile$ For Append As #9 'Zur Datei anhängen
Print #9 , Datastr$
Flush #9
Close #9
Last_logfile$ = Logfile$ 'Am nächsten Tag eine neue Datei kreieren, dar das Datum sich geändert hat
End If
[/Code:]
Bedanke mich für jede mögliche Hilfe
Mfg
Sato
Will hoffen das mir jemand dabei helfen kann
Möchte eine Logdatei in eine SD karte täglich automatisch kreieren
die aus eine 4 stellige Nummer plus das Datum, bestehen soll
Das Datum kann ich von den Uhr Baustein DS1307 lesen und mit der
4 stellige nummer die Dateiname machen
Beispiel: 00021211.09
Habe diesen code geschrieben, aber es klappt nicht
weiss nur nicht was da falsch ist. Hat jemand eine
Idee wie das gemacht werden kann
[Code:]
board$ = "0002"
Month$ = Str(_month)
Day$ = Str(_day)
Year$ = Str(_year)
If Len(Year$) = 1 Then
Year$ = "0" + Year$
End If
'
Logfile$ = board$ + Day$ + Month$ + "." + Year$
'''Beispiel der Dateiname 00021211.09
Print #1 , "Logfile = " ; Logfile$ 'Zweck debug
'
'Fals die Datei noch nicht existiert, eine neue kreieren
If Logfile$ <> Last_logfile$ Then
Open Logfile$ For Output As #9 'Eine leere Datei kreieren
Print #9 , "---Start---" 'Etwas in die Datei schreiben
Flush #9
Close #9
Else
'
Datastr$ = "Hello World"
Open Logfile$ For Append As #9 'Zur Datei anhängen
Print #9 , Datastr$
Flush #9
Close #9
Last_logfile$ = Logfile$ 'Am nächsten Tag eine neue Datei kreieren, dar das Datum sich geändert hat
End If
[/Code:]
Bedanke mich für jede mögliche Hilfe
Mfg
Sato