Domino 9 und frühere Versionen > ND8: Entwicklung

Problem mit Line Input

<< < (3/3)

pram:
ich hätte noch folgenden Verbesserungsvorschlag:
ein "Redim Preserve outBuff(0 To counter%)" und noch dazu in der Schleife ist eine sehr teure Operation

--- Code: ---Do
buf = inStream.Read(32767)
Forall b In buf
   if b == 0 then b = 32 ' alle 0x00 durch Spaces ersetzen
end forall
Call outStream.Write(buf)
Loop Until inStream.IsEOS

--- Ende Code ---
obiger Code arbeitet inplace mit nur einem Puffer und ohne umkopieren. Allerdings entfernt er die 0-bytes nicht, sondern ersetzt sie durch Spaces. Dafür dürfte der code um einiges schneller sein.

Wenn man ohne Temp-Datei auskommen will, muss man wohl noch etwas Aufwand betreiben und in "buf" nach "\r" bzw. "\n" suchen.

Gruß
Roland

Navigation

[0] Themen-Index

[*] Vorherige Sete