Avatar billede weiland Nybegynder
23. maj 2003 - 09:05 Der er 2 kommentarer og
1 løsning

fletning af arrays

I følgende formular findes to typer checkbokse: "ID" og "Aendret"

<form action=tabeller_sorteres.asp?Action=skriv method=post>
<input type=checkbox name=ID value=1>1<br>
<input type=checkbox name=Aendret value=2>2<br>
<input type=checkbox name=ID value=3>3<br>
<input type=checkbox name=Aendret value=4>4<br>
<input type=checkbox name=ID value=5>5<br>
<input type=submit value=send>
</form>

Ved hjælp af
   
    IDArray = split(ID, ",")
    AendretArray = split(Aendret, ",")

kan jeg response.write dem ud hver for sig, så at sige:
ID = 1
ID = 3
ID = 5
Aendret = 2
Aendret = 4

Men hvordan kan jeg flette dem, så jeg response.writer:
ID = 1
Aendret = 2
ID = 3
Aendret = 4
ID = 5

????????????????????????????
Avatar billede erikjacobsen Ekspert
23. maj 2003 - 09:22 #1
i=0
j=0
while i<=ubound(IDArray) and j<=ubound(aendretarray)
  if idarray[i]<aendretarray[j] then
    response.write "ID " & idarray[i]
    i=i+1
  else
    response.write "ID " & aendretarray[j]
    j=j+1
  end if
endw
for k=i to ubound(idarray)
  response.write "ID " & idarray[i]
next
for k=j to ubound(aendretarray)
  response.write "Aendret " & aendretarray[j]
next

'''det er bare en skitse
Avatar billede weiland Nybegynder
23. maj 2003 - 09:34 #2
Jeg har erstattet de hårde paranteser med bløde (ellers protesterede siden), og erstattet endw med wend, så det nu ser sådan ud:

    i=0
    j=0
    while i<=ubound(IDArray) and j<=ubound(aendretarray)
      if idarray(i)<aendretarray(j) then
        response.write "ID " & idarray(i)
        i=i+1
      else
        response.write "ID " & aendretarray(j)
        j=j+1
      end if
    wend
    for k=i to ubound(idarray)
      response.write "ID " & idarray(i)
    next
    for k=j to ubound(aendretarray)
      response.write "Aendret " & aendretarray(j)
    next

Det virker desværre ikke umiddelbart: Resultatet er:

ID 1ID 3ID 5Aendret 2Aendret 2
Avatar billede jhauge Nybegynder
23. maj 2003 - 15:18 #3
Dim arrID, arrAendret, intMax, i
   
    arrID = Split(Request("ID"), ",")
    arrAendret = Split(Request("Aendret"), ",")
   
    intMax = UBound(arrID)
    If UBound(arrAendret) > intMax Then
        intMax = UBound(arrAendret)
    End If
   
    For i = 0 To intMax
        If i <= UBound(arrID) Then
            Response.Write "ID = " & arrID(i) & "<br>"
        End If
        If i <= UBound(arrAendret) Then
            Response.Write "Aendret = " & arrAendret(i) & "<br>"
        End If
    Next
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester