Doppelte Einträge entfernen - Paules-PC-Forum.de

**Frabbing** · 16.01.2010, 22:22

Für Listboxen, Choiceboxen & Co sollte es eine schnelle Möglichkeit geben, doppelte Einträge zu entfernen. Hierbei sollte man wählen können, ob die Klein/Großschreibung beachtet werden soll oder nicht, und ob der Suchtext einem ganzen Eintrag entsprechen soll, oder nur einem Teil davon.

horsthorn · 17.01.2010, 10:15

@Frank
So wäre mein Anfang - wenn ich wieder Zeit habe, mache ich weiter

Zitat:

DECLARE list1&
DECLARE anz%,I%
DECLARE txt$,txt1$

PROC DATEN01 'anstelle dieser Daten kann alles andere eingeladen werden
CLEARLIST
ADDSTRING(list1&,"1. Zeile")
ADDSTRING(list1&,"2. Zeile")
ADDSTRING(list1&,"3. Zeile")
ADDSTRING(list1&,"4. Zeile")
ADDSTRING(list1&,"5. Zeile")
ADDSTRING(list1&,"5. Zeile") 'die Zeile ist doppelt
ADDSTRING(list1&,"6. Zeile")
ADDSTRING(list1&,"7. Zeile")
ADDSTRING(list1&,"8. Zeile")
ADDSTRING(list1&,"9. Zeile")
ADDSTRING(list1&,"0. Zeile")
ENDPROC

CLS
list1&=CREATE("LISTBOX",%HWnd,"",100,20,200,300)
DATEN01
anz%=GETCOUNT(list1&)
WHILENOT I% = anz%
txt$=GETSTRING$(list1&,I%)
txt1$=GETSTRING$(list1&,(I%-1))
CASE txt1$=txt$: DELETESTRING(list1&,I%)
INC I%
ENDWHILE
WAITINPUT

**Jac de Lad** · 17.01.2010, 11:23

Das klappt aber nur bei sortierten Listen!

**Jac de Lad** · 17.01.2010, 11:24

Du hast den Code nicht getestet! Ich auch nicht, aber probier ihn mal aus. Er müsste einen Fehler erzeugen, weil anz% größer ist als die Anzahl der Einträge, wenn ein Eintrag gelöscht wird. :P

horsthorn · 17.01.2010, 11:51

@Jac
Selber testen macht schlau !

Zitat:

So wäre mein Anfang - wenn ich wieder Zeit habe, mache ich weiter

Ich habe getestet und in diesem Codesplitter entsteht kein Fehler. Es ist ein Startcode - andere können auch mal an der Idee von Frank mitmachen.
Wenn möglich, nicht soviel API !
Es geht auch mit XProfan -

wie gesagt, habe keine Zeit im Moment
Aber ich werde "dem Schwein schon schlachten

"

**Jac de Lad** · 17.01.2010, 12:51

Wenn man es aber mal lögisch überdenkt kann die Schleife nicht bis zu Ende geführt werden, wenn Eintrgeäge gelöscht werden, da GetCount(list&) dann weniger ist. Besser wäre:

Code:

DECLARE list1&
DECLARE anz%,I%
DECLARE txt$,txt1$

PROC DATEN01 'anstelle dieser Daten kann alles andere eingeladen werden
CLEARLIST
ADDSTRING(list1&,"1. Zeile")
ADDSTRING(list1&,"2. Zeile")
ADDSTRING(list1&,"3. Zeile")
ADDSTRING(list1&,"4. Zeile")
ADDSTRING(list1&,"5. Zeile")
ADDSTRING(list1&,"5. Zeile") 'die Zeile ist doppelt
ADDSTRING(list1&,"6. Zeile")
ADDSTRING(list1&,"7. Zeile")
ADDSTRING(list1&,"8. Zeile")
ADDSTRING(list1&,"9. Zeile")
ADDSTRING(list1&,"0. Zeile")
ENDPROC

CLS
list1&=CREATE("LISTBOX",%HWnd,"",100,20,200,300)
DATEN01
'anz%=GETCOUNT(list1&)
'WHILENOT I% = anz%
        whileloop Getcount(list1&)-2,0,-1
txt$=GETSTRING$(list1&,&Loop)
        txt1$=GETSTRING$(list1&,(&Loop+1))
CASE txt1$=txt$: DELETESTRING(list1&,&Loop)       
ENDWHILE
WAITINPUT

Ungetestet!

Jac

**AHT** · 17.01.2010, 14:07

Mmmh...

Code:

'#####################################################################################
'#########                          Code von AHT                             #########
'#########      Gepostet für http://www.paules-pc-forum.de                   #########
'#####################################################################################
declare ListBox&
 
WindowStyle 31 + 512
WindowTitle "Doppelte Listboxeinträge löschen"
Window 0, 0 - 640, 440
UserMessages $10
 
ListBox&=Create("ListBox", %HWND, "", 20, 20, 580, 330)
 
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 2")
Addstring(ListBox&, "Test 3")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 4")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 5")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 2")
Addstring(ListBox&, "Test 3")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 4")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 11")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 5")
Addstring(ListBox&, "Test 1")
Addstring(ListBox&, "Test 1")
 
Sleep 2000
 
Delete_Listox_Doubles(ListBox&)
 
While %Umessage <> $10
 Waitinput
wend
 
Proc Delete_Listox_Doubles
 Parameters LBox&
 Declare LBOXCounter&, LBOXString$, FoundLB&
 clear LBOXCounter&
 While LBOXCounter& < (GetCount(LBox&) - 1)
  LBOXString$=GetString$(LBox&, LBOXCounter&)
  FoundLB& = SendMessage(LBox&, $18F, LBOXCounter&, addr(LBOXString$))
  While FoundLB& <> LBOXCounter&
   IF (LBOXString$ = GetString$(LBox&, FoundLB&)) and (LBOXCounter& <> FoundLB&)
    DeleteString(LBox&,FoundLB&)
    FoundLB& = SendMessage(LBox&, $18F, int(FoundLB& - 1), addr(LBOXString$))
   else 
    FoundLB& = SendMessage(LBox&, $18F, FoundLB&, addr(LBOXString$))
   endif
  EndWhile
  LBOXCounter& = LBOXCounter& + 1
 EndWhile
 Return
endproc

Andreas Miethe · 17.01.2010, 14:14

Wie wäre es denn wenn man gar nicht erst einträgt was schon da ist, dann muss man es auch nicht mehr austragen

Code:

DECLARE list1&

Proc AddStringListe
Parameters Liste&,S$
If SendMessage(Liste&,$01A2,-1,Addr(S$)) = -1' LB_FINDSTRINGEXACT 
ADDSTRING(Liste&,S$)
Endif
Endproc

PROC DATEN01 'anstelle dieser Daten kann alles andere eingeladen werden
CLEARLIST
ADDSTRINGListe(list1&,"1. Zeile")
ADDSTRINGListe(list1&,"2. Zeile")
ADDSTRINGListe(list1&,"3. Zeile")
ADDSTRINGListe(list1&,"4. Zeile")
ADDSTRINGListe(list1&,"5. Zeile")
ADDSTRINGListe(list1&,"5. Zeile") 'die Zeile ist doppelt
ADDSTRINGListe(list1&,"6. Zeile")
ADDSTRINGListe(list1&,"6. Zeile") ' diese auch
ADDSTRINGListe(list1&,"7. Zeile")
ADDSTRINGListe(list1&,"8. Zeile")
ADDSTRINGListe(list1&,"9. Zeile")
ADDSTRINGListe(list1&,"0. Zeile")
ENDPROC


CLS
list1&=CREATE("LISTBOX",%HWnd,"",100,20,200,300)
DATEN01
WAITINPUT

**AHT** · 17.01.2010, 14:32

...gemein, du hast dich nicht an die Fragestellung gehalten

.

Andreas Miethe · 17.01.2010, 14:35

Zitat:

Zitat von AHT

...gemein, du hast dich nicht an die Fragestellung gehalten

.

Stimmt.
Und so geht es mit genauerer Prüfung

Code:

DECLARE list1&

Proc AddStringListe
Parameters Liste&,S$,Zeile&,Comp$
Zeile& = SendMessage(Liste&,$01A2,-1,Addr(S$))' LB_FINDSTRINGEXACT 
If Zeile& = -1
ADDSTRING(Liste&,S$)
else
Comp$ = GetString$(Liste&,Zeile&)
If External("kernel32.dll","lstrcmp",Addr(Comp$),Addr(S$)) <> 0
ADDSTRING(Liste&,S$)
Endif
Endif
Endproc

PROC DATEN01 'anstelle dieser Daten kann alles andere eingeladen werden
CLEARLIST
ADDSTRINGListe(list1&,"1. Zeile")
ADDSTRINGListe(list1&,"2. Zeile")
ADDSTRINGListe(list1&,"3. Zeile")
ADDSTRINGListe(list1&,"4. Zeile")
ADDSTRINGListe(list1&,"5. Zeile")
ADDSTRINGListe(list1&,"5. Zeile") 'die Zeile ist doppelt
ADDSTRINGListe(list1&,"6. Zeile")
ADDSTRINGListe(list1&,"6. zeile") ' diese nicht !
ADDSTRINGListe(list1&,"7. Zeile")
ADDSTRINGListe(list1&,"8. Zeile")
ADDSTRINGListe(list1&,"9. Zeile")
ADDSTRINGListe(list1&,"0. Zeile")
ENDPROC


CLS
list1&=CREATE("LISTBOX",%HWnd,"",100,20,200,300)
DATEN01
WAITINPUT

**AHT** · 17.01.2010, 14:41

Warum musst du das genauer prüfen?
Ich glaube, deine erste Prozedur war schon so in Ordnung...

Andreas Miethe · 17.01.2010, 14:50

Nein, da wurde nicht auf Gross- Kleinschreibung geprüft.

Bangkok · 17.01.2010, 15:16

Also soviel ich weiß ist die Groß und Kleinschreibung bei LB_FINDSTRINGEXACT egal.
The search is not case sensitive, so this string can contain *** combination of uppercase and lowercase letters.

Aber um bei der Fragestellung zu bleiben denke ich der Code von Andreas etwas abgewandelt dürfte die schnellste Methode sein.

Code:

DECLARE list1&

Proc AddStringListe
Parameters Liste&,S$
If SendMessage(Liste&,$01A2,-1,Addr(S$)) = -1' LB_FINDSTRINGEXACT 
ADDSTRING(Liste&,S$)
Endif
Endproc

PROC DATEN01 'anstelle dieser Daten kann alles andere eingeladen werden
CLEARLIST
ADDSTRING(list1&,"1. Zeile")
ADDSTRING(list1&,"2. Zeile")
ADDSTRING(list1&,"3. Zeile")
ADDSTRING(list1&,"4. Zeile")
ADDSTRING(list1&,"5. Zeile")
ADDSTRING(list1&,"5. Zeile") 'die Zeile ist doppelt
ADDSTRING(list1&,"6. Zeile")
ADDSTRING(list1&,"6. Zeile") ' diese auch
ADDSTRING(list1&,"7. Zeile")
ADDSTRING(list1&,"8. Zeile")
ADDSTRING(list1&,"9. Zeile")
ADDSTRING(list1&,"0. Zeile")
ENDPROC


CLS
list1&=CREATE("LISTBOX",%HWnd,"",100,20,200,300)
DATEN01()
Print "Taste für Start"
waitinput
clearlist
movehandletolist(list1&)
clearlist list1&
whileloop 0,%getcount
AddStringListe(list1&,listboxitem$(&loop))
endwhile
WAITINPUT

**AHT** · 17.01.2010, 15:17

Ahhh - ist mir nicht aufgefallen, danke!

**Frabbing** · 17.01.2010, 15:18

Klar, meine Lösung ist ja ähnlich. Nur eben dauern diese Schleifen von der Ausführung her lange (bei vielen Einträgen), sodass eine native Lösung wünschenswert wäre. Ein DeleteDouble$(...) für Listbox/GridBox/Choicebox/Edit wäre doch klasse.

16.01.2010, 22:22	#1 (Direktlink)
Frabbing Super-Moderator Registriert seit: 05.02.2009 Ort: Westliches NRW Alter: 44 Beiträge: 5.089	Doppelte Einträge entfernen Für Listboxen, Choiceboxen & Co sollte es eine schnelle Möglichkeit geben, doppelte Einträge zu entfernen. Hierbei sollte man wählen können, ob die Klein/Großschreibung beachtet werden soll oder nicht, und ob der Suchtext einem ganzen Eintrag entsprechen soll, oder nur einem Teil davon. __________________ Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. Geändert von Frabbing (17.01.2010 um 00:15 Uhr)

17.01.2010, 11:23	#3 (Direktlink)
Jac de Lad Super-Moderator Registriert seit: 06.02.2009 Ort: Coswig Alter: 27 Beiträge: 1.159	Das klappt aber nur bei sortierten Listen! __________________ XProfan-Profi (XProfan X2+XPIA) http://jacdelad.bplaced.net http://jacdelad.square7.ch

17.01.2010, 11:24	#4 (Direktlink)
Jac de Lad Super-Moderator Registriert seit: 06.02.2009 Ort: Coswig Alter: 27 Beiträge: 1.159	Du hast den Code nicht getestet! Ich auch nicht, aber probier ihn mal aus. Er müsste einen Fehler erzeugen, weil anz% größer ist als die Anzahl der Einträge, wenn ein Eintrag gelöscht wird. :P __________________ XProfan-Profi (XProfan X2+XPIA) http://jacdelad.bplaced.net http://jacdelad.square7.ch

17.01.2010, 14:32	#9 (Direktlink)
AHT Super-Moderator Registriert seit: 15.02.2009 Beiträge: 10.776	...gemein, du hast dich nicht an die Fragestellung gehalten . __________________ ______________ Bitte Schnelltest durchführen: Neuer Virus, ahnungslose User seit Monaten infiziert! Mfg AHT

17.01.2010, 14:41	#11 (Direktlink)
AHT Super-Moderator Registriert seit: 15.02.2009 Beiträge: 10.776	Warum musst du das genauer prüfen? Ich glaube, deine erste Prozedur war schon so in Ordnung... __________________ ______________ Bitte Schnelltest durchführen: Neuer Virus, ahnungslose User seit Monaten infiziert! Mfg AHT Geändert von AHT (17.01.2010 um 14:47 Uhr)

17.01.2010, 14:50	#12 (Direktlink)
Andreas Miethe Stammuser Registriert seit: 08.02.2009 Ort: Bielefeld Alter: 53 Beiträge: 428	Nein, da wurde nicht auf Gross- Kleinschreibung geprüft. __________________ Gruss *Andreas* ______________________ http://www.ampsoft.eu Profan 3.3 - XProfanX2 Windows 95,98,ME,2000,XP Vista - Windows 7 32 / 64 Bit ASUS X93S - Intel Core I7 - NVIDIA GForce GT540M - 8GB Arbeitsspeicher

17.01.2010, 15:17	#14 (Direktlink)
AHT Super-Moderator Registriert seit: 15.02.2009 Beiträge: 10.776	Ahhh - ist mir nicht aufgefallen, danke! __________________ ______________ Bitte Schnelltest durchführen: Neuer Virus, ahnungslose User seit Monaten infiziert! Mfg AHT

17.01.2010, 15:18	#15 (Direktlink)
Frabbing Super-Moderator Registriert seit: 05.02.2009 Ort: Westliches NRW Alter: 44 Beiträge: 5.089	Klar, meine Lösung ist ja ähnlich. Nur eben dauern diese Schleifen von der Ausführung her lange (bei vielen Einträgen), sodass eine native Lösung wünschenswert wäre. Ein DeleteDouble$(...) für Listbox/GridBox/Choicebox/Edit wäre doch klasse. __________________ Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken.

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
suche programm möglichst freeware, um doppelte MP3 entfernen	DonChilla	Software - Allgemein	8	29.05.2007 21:21
Doppelte Einträge im Kontextmenü	Christian Bommers	Windows 95/98/ME/2000/NT	3	17.06.2005 22:47
doppelte Dateien entfernen	Jupp	Software - Allgemein	8	28.03.2005 01:21
Software-einträge entfernen!?	Bond	Allgemein	2	11.01.2005 13:26
Aufräumen doppelte Dateien finden und entfernen	Claudia.	Software - Allgemein	2	07.12.2004 13:40