Kann jemand die Funktion in Inline-ASM umsetzen:
Code
proc ReadAccelerator
Parameters f$
declare h&,p$
h&=Assign(f$)
Reset #h&
whilenot EOF(#h&)
Input #h&,p$
if p$<>""
AddString(fim&,p$)
size=size+Val(SubStr$(p$,3,"|"))
endif
endwhile
Close #h&
Assign #h&,""
endproc
Alles anzeigen
"size" ist ein globales QuadInt, fim ein global definiertes Handle eines Listviews. Interessieren würde mich, ob SubStr$ so einfach umzumünzen ist. Zur Not kann das weggelassen werden, da würde ich in die Datei eine Extrazeile einfügen, in der schon der Gesamtwert für "size" steht.
Die Abarbeitung meiner Testdatei beginnt mit ~400 Elementen pro Sekunde und endet bei ~30/s. Beim Einlesen meiner ~55500 Elemente dauert es etwa 20 Minuten, das würde ich gern drücken.