Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

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

Redundante Feldinhalte finden

 

Erfaßt von: Carsten Belling (eMail: cb@bswe.net ) am 07.01.2006 ; -
Letzte Änderung: 07.01.2006

 

Kurzbeschriebung: Die Methode sucht in einem beliebigen Feld nach redundaten Inhalten. Voraussetzung ist, dass das Feld per QUERY() angesprochen werden kann. Leere Felder werden nicht berücksichtigt.;

---

Beschreibung Die Methode sucht in einem beliebigen Feld nach redundaten Inhalten. Voraussetzung ist, dass das Feld per QUERY() angesprochen werden kann. Leere Felder werden nicht berücksichtigt. Das Ergebnis ist eine sortierte Auswahl der Duplikate. Je nach Feldtyp muss die Variable $checkValue angepasst werden oder beim Vergleich eine Typkonvertierung erfolgen. Als Parameter wird der Methode ein Zeiger auf das gewünschte Feld übergeben. Beispiel-Anwendung: C_LONGINT($dupCount) $dupCount:=FindFieldDups (->[Tabelle1]Feld1) ALERT(String($dupCount)+" Duplikat(e) gefunden.") Getestet mit 4D 2004.3 Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für Redundante Feldinhalte finden

---

4D Code Beispiel   `Method as Function: FindFieldDups (FieldPointer) C_LONGINT($0) C_POINTER($1;$fldP;$tblP) C_STRING(255;$checkValue) C_LONGINT($as;$i) $fldP:=$1 $tblP:=Table(Table($fldP)) ARRAY STRING(36;$dupValues;0) CREATE SET($tblP->;"$restoreSet") ALL RECORDS($tblP->) ORDER BY($tblP->;$fldP->;>) FIRST RECORD($tblP->) $checkValue:="" For ($i;1;Records in selection($tblP->)) If (($fldP->=$checkValue) & ($fldP->#"")) APPEND TO ARRAY($dupValues;$fldP->) End if $checkValue:=$fldP-> NEXT RECORD($tblP->) End for $as:=Size of array($dupValues) If ($as>0)   `Duplikate als Auswahl CREATE EMPTY SET($tblP->;"$dupSet") For ($i;1;$as) QUERY($tblP->;$fldP->=$dupValues{$i}) CREATE SET($tblP->;"$foundSet") UNION("$dupSet";"$foundSet";"$dupSet") End for USE SET("$dupSet") ORDER BY($tblP->;$fldP->;>) $0:=Records in selection($tblP->) Else   `keine Duplikate gefunden USE SET("$restoreSet") $0:=0 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