Avatar billede mini-me Nybegynder
06. oktober 2005 - 12:13 Der er 4 kommentarer og
1 løsning

Hjælp til at fjerne uger i loop

Hej,

Jeg har lavet et loop som løber 52 uger igennem og skriver dem ud, jeg har så en streng som indeholder eks. Week1,Week5,Week10,Week12 når min lykke løber de 52 uger igennem skal den springe de uger som findes i mit array over.

Jeg har lavet lidt kode men kan ikke hitte ud af hvordan jeg skal få dem til at undgå de uger i min streng.:

<%   
    ' Lav exclude liste
   
    WeeksAvailable = split(rs("WeeksAvailable"),",")
       
       
    response.Write("<table>")
    maxColPrRow = 6
    colPrRow = 0

    For t = 1 to 52
       
   
       
       
        if colPrRow = 0 then Response.Write "<tr>"
        %>
        <td><input type="checkbox" name="Week<% = t %>"></td>
        <td>Uge <% = t %></td>
          <%  colPrRow = colPrRow + 1
       
          if colPrRow = maxColPrRow then
            Response.Write "</tr>"
            colPrRow = 0
          end if
       
   
    Next
   
   
    %>
      <%  if colPrRow > 0 then Response.Write "</tr>"   
          Response.Write "</table>" %>
Avatar billede nazaq Nybegynder
06. oktober 2005 - 12:38 #1
Quick and dirty

Uger="," & rs("WeeksAvailable") & ","

og så en lille omskrivning af din for løkke

For t = 1 to 52
  if inStr(Uger,",week" & t & ",")>0 then

        if colPrRow = 0 then Response.Write "<tr>"
        %>
        <td><input type="checkbox" name="Week<% = t %>"></td>
        <td>Uge <% = t %></td>
          <%  colPrRow = colPrRow + 1
       
          if colPrRow = maxColPrRow then
            Response.Write "</tr>"
            colPrRow = 0
          end if

  end if
next

mvh
Torben
Avatar billede nazaq Nybegynder
06. oktober 2005 - 12:39 #2
Forudsættet at rs("WeeksAvailable") eksempelvis ser sådan ud "week12,week23"
Avatar billede mini-me Nybegynder
06. oktober 2005 - 12:51 #3
Den genere ikke noget output nu, men weeksavl ser ud som week12,week1, osv
Avatar billede mini-me Nybegynder
06. oktober 2005 - 12:56 #4
Fandt fejlen, men den skriver alle dem som den ikke skal skrive ud, :) Det gør lige modsat af hvad den skal.
Avatar billede mini-me Nybegynder
06. oktober 2005 - 12:58 #5
Det her virkede:

<%   
    ' Lav exclude liste
   
Uger="," & rs("WeeksAvailable") & ","

 
    response.Write("<table>")
    maxColPrRow = 6
    colPrRow = 0

For t = 1 to 52
  if not inStr(Uger,",Week" & t & ",")>0 then
 
  if colPrRow = 0 then Response.Write "<tr>"
        %>
        <td><input type="checkbox" name="Week<% = t %>"></td>
        <td>Uge <% = t %></td>
          <%  colPrRow = colPrRow + 1
       
          if colPrRow = maxColPrRow then
            Response.Write "</tr>"
            colPrRow = 0
          end if
  end if
next

   
    %>
      <%  if colPrRow > 0 then Response.Write "</tr>"   
          Response.Write "</table>" %>



Smid et svar så får du point
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