Räkna 01,02,03 osv.

FOR I = 1 to bildantal
	radstr = radstr & "http://www.bilder.com/" & folder & "/" & right("0" & i,2) & ".jpg" & vbcrlf

Next

eller?

voigtann1´s kod borde funka så länge inte antalet kommer över 100!
finns det chans för det?

Re: Räkna 01,02,03 osv.

solbulle skrev:

Jag har en loop som listar bilder, men jag skulle vilja ha det så att dne räknar/skriver ut: 01,02,03 osv. i stället för 1,2,3.
(Alltså upp till 09)

(Alltså upp till 09)

...sen ska den väl räkna som vanligt får man väl tro, eller?
du kan ju alltid köra en if-tagg

FOR I = 1 to bildantal
	If I <10 then
	radstr = radstr & "http://www.bilder.com/" & folder & "/0" & I & ".jpg" & vbcrlf

	Else
	radstr = radstr & "http://www.bilder.com/" & folder & "/" & I & ".jpg" & vbcrlf

	End If
Next

red. fick lite annat rassel med ett tag där, vet inte varför, men nu är det nog som det borde!

det där kunde också fungera

Jag bugar o bockar, doggelitos lösning blir bäst i detta fall eftersom att antalet kan överstiga 100.

Tack o bock.

Här har du en till som räcker till 999:

For i = 1 To bildantal
	If i < 10 Then
		strI = "00" & CStr(i)
	ElseIf i > 9 And i < 100 Then
		strI = "0" & CStr(i)
	Else
		strI = CStr(i)
	End If
	
	radstr = radstr & "http://www.bilder.com/" & folder & "/" & strI & ".jpg" & vbcrlf
Next