Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

Replace String und Position für Blobs

 

Erfaßt von: Thomas Maul (eMail: Thomas.Maul@de.4D.com ) am 24.10.2005 ; -
Letzte Änderung: 24.10.2005

 

Kurzbeschriebung: Textfelder sind in Version 2004 auf 32000 Zeichen limitiert. Längere Texte können in Blobs gehalten werden, man vermißt dann aber oft Befehle zur String-Bearbeitung wie Replace String und Position.

---

Beschreibung Die beiden Methoden "Replace_String_Blob" und "Position_Blob" bilden die 4D Befehle für Text nach, die Paramter sind identisch, nur eben Blob statt Text. Die Methoden analysieren nicht das Blob selbst sondern zerlegen es in Teile und nutzen die Textbefehle, damit auch im interpretierten Modus eine akzeptable Geschwindigkeit erreicht wird (auch bei 200 k Dokumenten benötigt Replace_String_Blob nur einige Ticks). Die Befehle erwarten für Suchen/Ersetzen jeweils Text, so können vorhanden Anwendungen leicht auf Blobs umgestellt werden. Syntax: Replace_String_blob(sourceBlob; oldString; newString{; howMany}) -> Blob Übergabe von oldString und newString als Text Beispiel: $blob := Replace_String_blob($blob; "abcdef"; "12345") Position_blob(find; blob;{start}) -> number Beispiel: $anzahl := Position_blob("hallo"; $blob) Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für Replace String und Position für Blobs

---

4D Code Beispiel ` Position_blob(find; blob;{start}) -> number ` call like Position - just with a blob and not text ` in addition Para 3 allows to set a start position, usual for large blobs ` find = String with Find condition `Thomas Maul, 4D Germany, 16.09.2005 C_TEXT($pattern;$1;$textfragment) C_BLOB($2) C_LONGINT($result;$0;$start;$3) C_LONGINT($posoffset;$offset;$err;$length) $result:=0 $pattern:=$1 If (Count parameters>=3) $start:=$3 Else $start:=0 End if $offset:=$start $posoffset:=0 $textfragment:=BLOB to text($2;Text without length ;$offset;30000) $result:=Position($pattern;$textfragment) While (($offset<BLOB size($2)) & ($result=0)) $length:=Length($textfragment)-1000 $posoffset:=$posoffset+$length-1 $textfragment:=Substring($textfragment;$length)+BLOB to text($2;Text without length ;$offset;30000) $result:=Position($pattern;$textfragment) End while If ($result>0) $0:=$result+$posoffset+$start Else $0:=0 End if ` Replace String_blob(sourceBlob; oldString; newString{; howMany}) -> Blob ` call like Replace Sring - just with a blob and not text `Thomas Maul, 4D Germany, 16.09.2005 C_BLOB($1;$0;$blob;$emptyblob) C_TEXT($oldstring;$2;$newstring;$3) C_LONGINT($offset;$position;$counter;$err;$howmany;$4) If (Count parameters<3) $0:=$emptyblob ` error Else $oldstring:=$2 $newstring:=$3 If (Count parameters=4) $howmany:=$4 Else $howmany:=32000 End if $blob:=$1 $counter:=0 $position:=0 Repeat $position:=Position_Blob ($oldstring;$blob;$position) If ($position>0) $offset:=$position-1 Case of : (Length($newstring)>Length($oldstring)) INSERT IN BLOB($blob;$position-1;Length($newstring)-Length($oldstring);0) $position:=$position+(Length($newstring)-Length($oldstring))+Length($oldstring) : (Length($newstring)<Length($oldstring)) DELETE FROM BLOB($blob;$position-1;Length($oldstring)-Length($newstring)) $position:=$position-(Length($oldstring)-Length($newstring))+Length($oldstring) End case TEXT TO BLOB($newstring;$blob;Text without length ;$offset) $counter:=$counter+1 End if Until (($position=0) | ($counter>=$howmany)) $0:=$blob End if Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link