DateiFrage

[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!!!

[ts-soft]

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

[Mathias-Kwiatkowski]

ich habe die version 3.94

[Mathias-Kwiatkowski]

danke

[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