Schnelleres zerlegen eines Strings

[Pelagio]

Hallo PB'ler

ich habe eine Datei von ca. 5 MB. Diese Datei will ich laden und in einzelne Felder zerlegen zBsp.:

Code: Alles auswählen

;Datei in FileData.s gelesen.
For n=1 to 35000
   NewElement(pValue())
    pValue() = StringField(FileData, n, #LF$)
    .....
Next n

Dies klappt auch hervorragend aber es dauert doch ein paar Minuten und dies liegt an StringField.
Meine Frage ist jetzt, gibt es eine schnellere Möglichkeit?

[DrShrek]

Vieleicht gleich beim Einlesen (Zeilenweise) der Datei die Liste anlegen?

[Pelagio]

Hallo DrShrek

Du hast zwar recht, es ist dann auch schneller aber die Datei wird von einem anderen Prozess gefüllt und damit muss ich die Zeit in der ich die Datei öffne so gering wie möglich halten.

[ts-soft]

Vieleicht gleich beim Einlesen (Zeilenweise) der Datei die Liste anlegen?

Das wird wohl länger dauern
Datei mit ReadData und dann mit Stringfield wird wohl das schnellste sein. Ich hab aber
mal irgendwo gelesen, das Stringfield immer von vorne anfängt, wenn das stimmt, wäre
eine eigene Routine dann doch geeigneter. Entsprechende Beispiele wie man so durch
den String oder Memory pointert gibt hier ja genug im Forum.

Gruß
Thomas

[Pelagio]

Danke ts-soft,

Dank deiner Anregung habe ich mir ein Tool selber geschustert das tatsächlich weit schneller die Aufgabe erledigt.
Hier mein Ergebnis:

Code: Alles auswählen

Procedure.s SPCData_Field(vRam.i = #Null)
   Protected pValue.s
   Static pRam.i
   
   If vRam
      pRam = vRam
   Else
      While Not (PeekC(pRam)=#LF)
         pValue + Chr(PeekC(pRam))
         pRam + 1
      Wend
      pRam + 1
   EndIf
   ProcedureReturn pValue      
EndProcedure

; pRam = ReadData(.....)
pSize = CountString(pRam, #LF$)
SPCData_Field(@pRam)
For pRow=1 To pSize
   AddElement(SPCData())
   SPCData() = SPCData_Field()
Next pRow

[ts-soft]

Durch direktes lesen im Speicher, per Pointer, könntest Du Dir das PeekC sparen, was dann noch mal ne Menge
speed bringt. Wenn Du das nicht hinbekommst werde ich Dir Deine Routine mal umstricken, hab aber im Moment
recht wenig Zeit und denke das schaffst Du auch selbst

Gruß
Thomas

[DrShrek]

Ich hab aber
mal irgendwo gelesen, das Stringfield immer von vorne anfängt, wenn das stimmt, wäre
eine eigene Routine dann doch geeigneter.

Startposition kann eingestellt werden:

Code: Alles auswählen

Position = FindString(String$, StringToFind$ [, StartPosition])

[ts-soft]

Startposition kann eingestellt werden:

Code: Alles auswählen

Position = FindString(String$, StringToFind$ [, StartPosition])

Ja, schön und Gut, aber was hat FindString mit StringField zu tun?
Aber wir sind alle mal etwas unkonzentriert, da kann das schon passieren.

Gruß
Thomas

[DrShrek]

Aber wir sind alle mal etwas unkonzentriert, da kann das schon passieren.

Sorry ab 45 sollte Mann doch früher ins Bett gehen

[mk-soft]

Achtung!!!

Wenn die Datei von Purebasic erfolgreich geöffnet wurde kann das andere Programm die Datei nicht mehr öffnen.

Ist leider bei PB so

Siehe Link...
http://www.purebasic.fr/german/viewtopi ... =8&t=24955

P.S. Dann kann die Datei auch normal Zeile für Zeile eingelesen werden.