Write-, ReadStructure (3. Update)

[Scarabol]

Hi Leute,

kann man für die Standard IDE Plugins oder sowas schreiben, oder mit einem Macro tricksen?

Gruß
Scarabol

[STARGÅTE]

Tachchen Nic,

ich habe auch mal n Version geschrieben, die bei Arrays keine Rekursion benutzt (sonder LL-Elemente).
Daruch werden ganze Arrays die nur aus b,c,l,f,q,d bestehen auch komplett als Data geschrieben/gelesen.

Vllt ist diese Variante ja schneller, man kann es leider nicht richtig Testen, da die Festplatte zu unterschiedliche Schreibgeschwindigkeit hat.

Außerdem schreibe ich die Strings anders in die Datei, ....

Gucks dir einfach mal an:

Code: Alles auswählen

Structure AllTypes 
 StructureUnion 
  b.b : c.c : w.w : l.l : f.f : d.d : q.q : s.s 
 EndStructureUnion 
EndStructure 
Structure StructureArrayPBI 
 Feld.l 
 Index.l
EndStructure 
Global NewList StructureArrayPBI.StructureArrayPBI()

Procedure WriteStructure(File, *Value.AllTypes, *Struktur.Character)
 While *Struktur\c
  Select *Struktur\c
   Case '[' : 
    AddElement(StructureArrayPBI())
    Felder = Val(PeekS(*Struktur+1))
    StructureArrayPBI()\Feld = Felder
    StructureArrayPBI()\Index = *Struktur+Len(Str(Felder))
    *Struktur = StructureArrayPBI()\Index
   Case ']'
    StructureArrayPBI()\Feld - 1
    If Not StructureArrayPBI()\Feld
     DeleteElement(StructureArrayPBI())
    Else
     *Struktur = StructureArrayPBI()\Index
    EndIf
   Case 'b' : DataLength + 1
   Case 'c' : DataLength + SizeOf(Character)
   Case 'w' : DataLength + 2
   Case 'l' : DataLength + 4
   Case 'f' : DataLength + 4
   Case 'q' : DataLength + 8
   Case 'd' : DataLength + 8
   Case 's' : 
    If DataLength
     WriteData(File, *Value, DataLength)
     *Value + DataLength
     DataLength = 0
    EndIf
    WriteString(File,*Value\s) : WriteByte(File,0)
    *Value + 4
  EndSelect  
  *Struktur + 1
 Wend
 If DataLength
  WriteData(File, *Value, DataLength)
 EndIf
EndProcedure

Procedure ReadStructure(File, *Value.AllTypes, *Struktur.Character)
 While *Struktur\c
  Select *Struktur\c
   Case '[' : 
    AddElement(StructureArrayPBI())
    Felder = Val(PeekS(*Struktur+1))
    StructureArrayPBI()\Feld = Felder
    StructureArrayPBI()\Index = *Struktur+Len(Str(Felder))
    *Struktur = StructureArrayPBI()\Index
   Case ']'
    StructureArrayPBI()\Feld - 1
    If Not StructureArrayPBI()\Feld
     DeleteElement(StructureArrayPBI())
    Else
     *Struktur = StructureArrayPBI()\Index
    EndIf
   Case 'b' : DataLength + 1
   Case 'c' : DataLength + SizeOf(Character)
   Case 'w' : DataLength + 2
   Case 'l' : DataLength + 4
   Case 'f' : DataLength + 4
   Case 'q' : DataLength + 8
   Case 'd' : DataLength + 8
   Case 's' : 
    If DataLength
     ReadData(File, *Value, DataLength)
     *Value + DataLength
     DataLength = 0
    EndIf
    *Value\s = ReadString(File)
    *Value + 4
  EndSelect
  *Struktur + 1  
 Wend
 If DataLength
  ReadData(File, *Value, DataLength)
 EndIf
EndProcedure

btw. n Frage, ist SizeOf() eine Procedure oder ein Macro, denn wenn das programm immer wieder neu "guckt" wie groß eine LONG ist wäre eine einfache 4 schneller ^^

[NicTheQuick]

Das muss ein Makro sein und vom Präprozessor abgearbeitet werden, denn zur Laufzeit gibt es keine Typen mehr.

Hm... Ich schätze nach 4 Jahren ist dir das sowieso schon klar.

[mk-soft]

Hi Nic,

super reaktionszeit auf eine Frage...
Sind ja nur knapp 10 Monate vergangen.

[Kaeru Gaman]

mit der neuen Version müßte man das sowieso vielleicht umschreiben, da man jetzt mit = Kopien von Structs erzeugen kann.
... oder ganz aufgeben, wenn es nicht mehr kann.

[STARGÅTE]

super reaktionszeit auf eine Frage...
Sind ja nur knapp 10 Monate vergangen.

er hatte mir ja damals schon n PN geschickt

[NicTheQuick]

er hatte mir ja damals schon n PN geschickt

Das wusste ich auch nicht mehr, siehste mal...

[NicTheQuick]

Ich habe meine Funktionen erweitert auf die neuste und noch nicht existente PB-Version.
Siehe "Edit 4" im ersten Post.

[ts-soft]

Ich habe meine Funktionen erweitert auf die neuste und noch nicht existente PB-Version.
Siehe "Edit 4" im ersten Post.

Die wird dann aber auch nicht funktionieren, weil s.s wird in structureunion verboten bleiben!
*s wird funktionieren!

Gruß
Thomas

[NicTheQuick]

Jetzt funktioniert es. Habe ein bisschen getrickst.