Array auf doppelte inhalte durchsuchen?
Übersicht
BlitzBasic Allgemein
TOONYBetreff: Array auf doppelte inhalte durchsuchen? |
 Mi, Sep 22, 2004 10:53Antworten mit Zitat 
|
|
|---|---|---|
|
hallo,
ich habe ein Array mit mehreren hundert daten, wie kann ich nun die inhalte überprüfen und Doppelte einträge löschen? |
||
|
Merced |
Mi, Sep 22, 2004 11:00 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] for z = 0 to inhalte for z2 = z+1 to inhalte if array(z) = array(z2) array(z2) = array(inhalte) inhalte = inhalte - 1 z2 = z2 - 1 endif next next Habs jetzt nicht getestet aber müsste funktionieren. "Array" und "inhalte" musst Du natürlich anpassen. und wenn array Strings enthält empfehle ich die Verwenung von upper$ und trim$. |
||
|
http://www.starship-battles.de.vu
http://www.venture-interactive.de.vu |
||
TOONY |
Mi, Sep 22, 2004 11:38 Antworten mit Zitat
|
|
|---|---|---|
|
Danke ich habs jetzt so gelößt,
nachdem alles in eine Datei gespeiert wurde.... Code: [AUSKLAPPEN] ofile=OpenFile("Data.txt") Repeat a$=ReadLine(ofile) nfile=OpenFile("new.txt") d=0 Repeat b$=ReadLine(nfile) If a$=b$ d=1 Until Eof(nfile) If d=0 WriteLine(nfile,a$) CloseFile(nfile) Until Eof(ofile) CloseFile(ofile) |
||
|
|
Merced |
Mi, Sep 22, 2004 11:43 Antworten mit Zitat
|
|---|---|---|
Da nimmste lieber meine Methode, die kommt ohne Dateien aus. Berechnungen oder ähnliches durchführen und dabei Dateien zu benutzen (wenn man sie nicht unbedingt braucht) ist böööööööööse. 
|
||
|
http://www.starship-battles.de.vu
http://www.venture-interactive.de.vu |
||
TOONY |
Mi, Sep 22, 2004 11:56 Antworten mit Zitat
|
|
|---|---|---|
| ich will die ganzen Daten ja wieso in eine Datei schreiben | ||
|
BladeRunnerModerator |
Mi, Sep 22, 2004 11:59 Antworten mit Zitat
|
|---|---|---|
|
Dateioperationen kosten ungleich mehr Zeit (wegen der ganzen lese- und schreibvorgänge). Macht ei kleinen Files nit viel aus, aber bei Großen legst du dein System lahm.
Mach es besser erst im Speicher und dann erst schreiben... |
||
|
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92 |
||
Sebe |
Mi, Sep 22, 2004 12:08 Antworten mit Zitat
|
|
|---|---|---|
| Das ganze ließe sich wunderschön mit Types lösen... | ||
David |
Mi, Sep 22, 2004 12:47 Antworten mit Zitat
|
|
|---|---|---|
|
Hi!
Wenn du schon so glorreiche Tipps gibst, dann mach doch gleich dazu noch ein Beispiel! grüße |
||
| http://bl4ckd0g.funpic.de | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group