Speichern von Variablen in ein Array

[tiger]

Hallo,
ich habe da ein Problem:
Ich habe 2 Zahlen Variablen myidnr1 und myidnr2 mit den Werten (z.B. 60 und 63). Nun möchte ich gern 61, 62, 63 in ein Array/Variable speichern.
Ausgeben kann ich sie ja mit:
for x = myidnr1 to myidnr2
  liste = x & " "
  %>
                <%=liste%>
                <%
  next

Wenn ich aber nach der Schleife "liste" nochmal ausgebe, dann wird mir immer nur der letzte Wert geliefert, ist ja auch logisch.
Hat jemand eine Idee, wie ich die Werte als String in ein Array oder Variable bekomme? Dieses Array oder diese Variable soll dann letztendlich in ein DB-Feld gespeichert werden.
Ich wäre für Vorschläge sehr dankbar!

Gruß Tiger

[Frank aus Ulm]

Hi, hallo

wenn du deinen Algorithmus nochmal genauer betrachtest, siehst du auch wieso!

for x = myidnr1 to myidnr2
  liste = x & " "

-> du weißt für jedes x der variable liste den wert x & " " zu

-> du willst aber an die Variable liste den Wert x & " " anhängen, also was fehlt??

liste ist außerdem kein Array sondern ein STRING!

Tschau, tschüß,
Frank

[Tom2]

Hi Tiger

Zuerst zu deinem Code:

for x = myidnr1 to myidnr2
  liste = x & " "

'Hier würde ich ein Response.Write verwenden[1]
       Response.Write(liste)

next

Hat jemand eine Idee, wie ich die Werte als String in ein Array oder Variable bekomme?

Wenn du alle Werte in einem String haben willst, dann kannst du das folgendermassen machen:

Dim strListe
...
For x = myidnr1 To myidnr2
  strListe = strListe & x & " "
Next
Response.Write(strListe)

Wenn du die Werte in ein Array packen willst, dann ist das auch nicht viel schwerer:

Dim i
Dim arrListe(10) 'Wert anpassen! Ev. dynamische Arrays verwenden

i = 0
For x = myidnr1 To myidnr2
  arrListe(i) = x
  i = i + 1
Next

Das sollte so eigentlich funktionieren.

MfG

Tom2

[1] Der häufige Wechsel zwischen ASP-Code (zwischen '<%' und '%>') und dem nicht-interprätierten Code (alles andere) bremst dein Skript aus, besonders in Schleifen.

[Frank aus Ulm]

Hi, hallo Tom2

Dim strListe
...
For x = myidnr1 To myidnr2
  strListe = strListe & x & " "
Next
Response.Write(strListe)

wozu erst noch eine Variable strListe erfinden ... war "liste" selbst nicht gut genug ??? ;-)

Dim i
Dim arrListe(10) 'Wert anpassen! Ev. dynamische Arrays verwenden

i = 0
For x = myidnr1 To myidnr2
  arrListe(i) = x
  i = i + 1
Next
Das sollte so eigentlich funktionieren.

oder kürzer:

for x = myidnr1 to myidnr2
  arrListe((x-myidnr1)) = x
next

'funzt bei mir problemlos

TEE OFF!

Tschau, tschüß,
Frank

[Frank aus Ulm]

zu schnell copy & paste ..

for die Schleife noch:

redim preserve arrlist(myIDnr2 - myIDnr1)