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