loop fra 01

Brug int funktionen omkring, den fjerner "0"'erne foran og lavet typen om til et tal:

For i = int(SCount) TO int(ECount)

problemet var at der i loopet skal stå
01
02
03
eller
001
002
003
eller
1
2
3

jeg har prøvet med

if ( len(right("0" & i)) > 2) then Response.Write i & "<br>" else Response.Write "0" & i & "<br>"

men det spiller ikke:
Wrong number of arguments or invalid property assignment: 'right'

Er SCount altid "1" når man fjerne alle 0'erne?

For så prøv sådan her:

antalKarakter = len(SCount)
nuler = String("0", antalKarakter)
For i = int(SCount) TO int(ECount)
  Response.Write right(nuler & i, antalKarakter) & "<br>"
next

if len(right("0",i)) > 2 then Response.Write i & "<br>" else Response.Write len(right("0",i)) & "--0" & i & "<br>"

Det laver ikke fejl men går i else hele tiden da len altid er 1 ??

i mit sidst forslag skal denne linie:
nuler = String("0", antalKarakter)

rettes til:

nuler = String(antalKarakter, "0")

lenNum = len(i)
For i = int(SCount) TO int(ECount)
  Response.Write right(string("0",lennum) & i,lenNum) & "<br>"
Next

SCount kan være alle tal fra 1 til 9

Nå, her skal man da være hurtigt :D

Ok, men det betyder ikke noget afligevel den må gerne være 1 eller 9 :)

jeg prøvede

det virker perfekt

hvis der står 3 i SCount og 31 i ECount så tæller den
3,4,5,6,7,8,9,0 og starter så igen med 1,2,3,4,5,6,7,8,9,0 ......

den kan åbenbart kun tælle til 9

ok hvis man skriver 03 til 31 så virker det men ikke hvis der står 3 til 31

arh det er fordi der kun er et tal i Scount: "3"  og i Ecount er der to tal.

Så den skal laves lidt om prøv sådan her:

antalKarakter = len(SCount)
nuler = String("0", antalKarakter)
if antalKarakter < len(ECount) then antalKarakter = len(ECount)
For i = int(SCount) TO int(ECount)
  Response.Write right(nuler & i, antalKarakter) & "<br>"
next

doh copy paste fejl prøv:


antalKarakter = len(SCount)
nuler = String(antalKarakter, "0")
if antalKarakter < len(ECount) then antalKarakter = len(ECount)
For i = int(SCount) TO int(ECount)
  Response.Write right(nuler & i, antalKarakter) & "<br>"
next

gør jeg det kommer der altid et 0 foran

skriver jeg 3 bliver det til 03

ja det rigtigt så skal det rettes lidt mere for at tjekke at der er et 0 først i Scount og kun indsætter 0 hvis der er.


bNuler = false
if left(1,SCount) = "0" then bNuler = true
antalKarakter = len(SCount)
nuler = ""
if bNuler = true then nuler = String(antalKarakter, "0")
if antalKarakter < len(ECount) then antalKarakter = len(ECount)
For i = int(SCount) TO int(ECount)
  Response.Write right(nuler & i, antalKarakter) & "<br>"
next

der må være et eller andet der vender forket da der nu ikke kommer 0 med foran hvis jeg skriver 01 :)

hmm  så prøv lige:

bNuler = false
if Cstr((left(1,SCount)) = "0" then bNuler = true
antalKarakter = len(SCount)
nuler = ""
if bNuler = true then nuler = String(antalKarakter, "0")
if antalKarakter < len(ECount) then antalKarakter = len(ECount)
For i = int(SCount) TO int(ECount)
  Response.Write right(nuler & i, antalKarakter) & "<br>"
next

doh jeg har byttet rundt på noget prøv sådan hr:

bNuler = false
if Cstr((left(SCount,1)) = "0" then bNuler = true
antalKarakter = len(SCount)
nuler = ""
if bNuler = true then nuler = String(antalKarakter, "0")
if antalKarakter < len(ECount) then antalKarakter = len(ECount)
For i = int(SCount) TO int(ECount)
  Response.Write right(nuler & i, antalKarakter) & "<br>"
next

if Cstr((left(SCount,1)) = "0" then bNuler = true

Den laver fejl ved = "0"

hmm jeg har fået indsat to (( prøv:

if Cstr(left(SCount,1)) = "0" then bNuler = true

hvordan skal den virke hvis Scount=03 og Ecount = 233 skal det give:
03
04
..
223

eller

003
004
..
223

lol nu ser det ud til det spiller.
Simpelhen fantastisk eagleeye