Ich glaub ich bin schon ganz nahe dran. Hier scheint nur mit den Zahlen
was nicht zu stimmen. K�nnt ihr mir bitte nochmal helfen? Wo ist der
denkfehler?
Groesse = ubound(Arr,2)
Counter = -1
For i = 0 To Groesse
Counter = Counter + 1
If i > 0 Then
Wert_neu = Trim(Arr(1,i))
ID_neu = Trim(Arr(0,i))
Wert_alt = Trim(Arr(1,i-1))
ID_alt = Trim(Arr(0,i-1))
If Wert_neu = Wert_alt Then
Zahl = ID_alt & ", " & ID_neu
Else
ReturnValue = ReturnValue & "<input
type='checkbox' value='" & Zahl & "' name='Attribute'>" & Wert_alt &
"<br>" & vbcrlf
End If
End If
Next
-----Urspr�ngliche Nachricht-----
Von: Christian Freund [mailto:cf@;designteam.de]
Gesendet: Mittwoch, 30. Oktober 2002 19:52
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] AW: RE: Problem - nun mit Arrays
Danke Claudius !
Du hilfst mir doch immer wieder :-)
Das mit dem ubound versteh ich nicht so ganz, aber es funktioniert. Ich
habs vorher mit ubound(Arr) versucht, aber das ging eben nicht.
Deine "Version" geht erfreulicherweise :-)
Meine Schleife sieht momentan so aus, es tut sich aber nix
Groesse = ubound(Arr,2)
Counter = -1
For i = 0 To Groesse
Counter = Counter + 1
If i > 0 Then
Wert_neu = Trim(Arr(1,i))
ID_neu = Trim(Arr(0,i))
Wert_alt = Trim(Arr(1,i-1))
ID_alt = Trim(Arr(0,i-1))
If Wert_neu = Wert_alt Then
Zahl = ID_neu & ", " & ID_alt
Else
Arr2(0, Counter) = Zahl
Arr2(1, Counter) = Wert_alt
End If
End If
i=i+1
Next
Ich br�uchte einen Response-String, der in etwa so aussieht:
ReturnValue = ReturnValue & "<input type='checkbox' value='" & MD_ID &
"' name='Attribute'>" & MD_Value & "<br>" & vbcrlf
-------------------------------------------------------------->ein oder
mehrere Ids
------------------------------------------------------------------------
---------------------->Text nur einmal
Ich kriegs einfach nicht hin
Ein verzweifelnder Freund aus Passau
-----Urspr�ngliche Nachricht-----
Von: Claudius Ceteras [mailto:claudius@;gmx.de]
Gesendet: Mittwoch, 30. Oktober 2002 19:38
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] RE: Problem - nun mit Arrays
Iterieren kannst Du so:
For I = 0 to ubound(Arr,2)
Next
Dann kannst Du z.B. ein Dictionary verwenden mit dem Wert als Key und
die ID-Liste als Value...
Claudius
>
> Ich hab nun das Problem vereinfacht, komm aber immer noch nicht
> weiter, und hoffe immer noch auf Hilfe:
>
> Ich habe folgendes Recordset:
>
> ID Wert
> ------------------------------------
> 18 Auto
> 19 Baum
> 120 Baum
> 20 Decke
> 21 Dosen
> 121 Dosen
> 22 Gans
> 122 Gans
> 235 Gans
> 23 Hase
> 160 Hase
> 25 Igel
> 26 Kaffee
>
> Ich darf jeden Wert jedoch nur einmal auflisten. Das Recordset ist
> bereits nach Wert aufsteigend ( alphabetisch ) sortiert. Wie ihr seht,
> gibt es Werte, die einmal oder auch �fter vorkommen.
>
> Ich hab das Recordset in ein zweidimensionales Array umgewandelt:
>
> Dim Arr
> Arr = REC.Getrows
>
> Nun m�chte ich folgende manipulation durchf�hren:
>
> Wenn es einen Wert nur einmal gibt, soll dem Wert einfach die ID
> zugeordnet bleiben. Gibt es aber mehrere Werte, sollen die Ids addiert
> werrden. Das Ergebnis sollte folgende Erscheinung haben:
>
> ID Wert
> ------------------------------------
> 18 Auto
> 19, 120 Baum
> 20 Decke
> 21, 121 Dosen
> 22, 122, 235 Gans
> 23, 160 Hase
> 25 Igel
> 26 Kaffee
>
> Ich habe versucht, f�r die Schleife die Gr��e zu bestimmen, aber das
> geht schon in die Hose:
>
> Groesse = Ubound(Arr) <- da bekomm ich aber 0 als
> Antwort, obwohl es eigentlich 68 Eintr�ge gibt
>
> Der erste Eintrag Arr(0,i) hat hierbei den Inhalt der ID, der Zweite
> Arr(1,i) hat den Wert.
>
> Ich komm hier absolut nicht weiter. Last mich bitte nicht h�ngen.
>
> Ein Freund aus Passau
>
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv Sie
> | k�nnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
house.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv Sie
| k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.as
| p
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
