Seite 1 von 1
DateiFrage
Verfasst: 16.02.2006 20:00
von Mathias-Kwiatkowski
mh hi ich habe ein kleines problem, ich erkläre es mal so mit code snaps
also wenn ich in bb 2 dateien geöffnet hatte ging es so
Code: Alles auswählen
datei=readfile("C:\datei.txt")
write=writefile("C:\Temp.txt")
repeat
string$=readline(datei)
writeline write,string$
until eof(datei)=1
closefile datei
closefile write
was dort gemacht wird ist eigentlich nur eine übertragung von einer zur anderen datei, ich kenne zwar die befehle in pbasic allerdings haben die keine parameter
in pbasic kann man es ja nur so machen writestring("hh")
was mir fehlt ist wie kann ich da eine angabe unterbringen oder wie kann ich es meistern das er von einer datei alles ausliest und in der nächsten speichert?
MFG Mathias Kwiatkowski
Danke für Hilfen!!!
Re: DateiFrage
Verfasst: 16.02.2006 20:11
von ts-soft
Mathias-Kwiatkowski hat geschrieben:oder wie kann ich es meistern das er von einer datei alles ausliest und in der nächsten speichert?
MFG Mathias Kwiatkowski
Danke für Hilfen!!!
Hab Deine Frage nicht so ganz verstanden, deshalb erstmal die meistern Frage, für PB4:
Code: Alles auswählen
datei = ReadFile(#PB_Any, "C:\datei.txt")
If datei
write = CreateFile(#PB_Any, "C:\Temp.txt")
If write
; PB4
length = Lof(datei)
Mem = AllocateMemory(length)
ReadData(datei, Mem, length)
CloseFile(datei)
WriteData(write, Mem, length)
CloseFile(write)
FreeMemory(Mem)
EndIf
EndIf
und in PB3.94 Syntax:
Code: Alles auswählen
datei = ReadFile(#PB_Any, "C:\datei.txt")
If datei
write = CreateFile(#PB_Any, "C:\Temp.txt")
If write
; PB3.94
UseFile(datei)
length = Lof()
Mem = AllocateMemory(length)
ReadData(Mem, length)
CloseFile(datei)
UseFile(write)
WriteData(Mem, length)
CloseFile(write)
FreeMemory(Mem)
EndIf
EndIf
Verfasst: 16.02.2006 20:17
von Mathias-Kwiatkowski
ich habe die version 3.94
Verfasst: 16.02.2006 20:17
von Mathias-Kwiatkowski
danke
Verfasst: 16.02.2006 21:03
von Icke
Dein Beispiel liest in BB ja Zeileweise aus, so wie ich das deuten würde. Hier ein Beispiel für PB 3.94. Ich denke das du "Usefile" suchst ...
Code: Alles auswählen
If ReadFile(0,"c:\1.txt")
If CreateFile(1,"c:\2.txt")
Repeat
UseFile(0); <--
a$=ReadString()
UseFile(1); <--
WriteStringN(a$)
Until Eof(0)
EndIf
EndIf