Das deutsche QBasic- und FreeBASIC-Forum

[Pille95]

hey.
ich steh malwieder vor nem problem undzwar würde ich gerne beispielweißte eine .txt erstellen lassen und ne 0 z.b reinschreiben lassen. dann soll der inhalt der reingeschrieben wurde eingelesen und anschließend verdoppelt dazugeschrieben werden. alles kein problem nur bei dem verdoppel der eingelesen variable hängts...wie realisiere ich das?

Pille

[MisterD]

einfach zweimal schreiben bevor du die datei wieder schließt?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Pille95]

das hätt ich ja hinbekommen, aber es soll immer wieder der inhalt eingelesen, verdoppelt und dazugeschrieben werden...

[MisterD]

auf machen
lesen
schreiben
schreiben
zu machen
von vorne anfangen



hä?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Pille95]

das problem ist das ich nur die letzde geschriebene zeile auslesen und verdoppelt wieder reinschreiben möchte... ich bin verwirrt?!

[MisterD]

ach nur die letzte?

na dann:
öffnen, alle zeilen lesen, immer die letzte merken, bis die datei zu ende ist, dann haste die letzte zeile
öffnen im "append" modus, zeile schreiben, zumachen.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Pille95]

das ich in append öffen muss is mir klar sonst würd er ja überschreiben einfach nur... nur ich versteh nich wie ich die letzde zeil in ne variable bekommen soll?!
weil zum verdoppeln müsste ich ja einfach 2 mal print #1, variable schreiben...

[MisterD]

ich sag doch, du liest einfach alle zeilen und merkst sie dir die letzte. wenn die datei zuende ist ist die letzte zeile die du dir gemerkt hast natürlich die letzte zeile in der datei. die schreibst du dann mit append einfach nochmal hinten an die datei dran und bist fertig, wo ist das problem?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Pille95]

das problem ist das zwar verstanden habe aber mir nich im klaren darüber bin wie ich das in den quelltext schreiben soll...

[MisterD]

dim zeile as string
open #datei for input
while(not eof(#datei)) do
line input #datei zeile
end
close

open #datei for append
print #datei zeile
close

-> fertig? bestimmt nicht 1:1 lauffähig aber du weißt hoffentlich wie die befehle richtig geschrieben werden müssen
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Pille95]

hat sich erledigt, danke

[MisterD]

tipps halt einfach ab, schreib die befehle dabei richtig, und dann drück F5?

beiträge wegeditieren is plöt
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[HorstD]

Hier mal 2 Bespiele:
1. Datei einlesen und eine neue Datei mit verdoppelter letzter Zeile erstellen

[28398]

Gehen Sie weiter.

[MisterD]

was is das denn bitte für nen nonsense post? o_O
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra