långa tal som börjar med 0

5 svar · 254 visningar · startad av peppar 15 okt. 2003

pepparMedlem sedan dec. 2001873 inlägg

Frågan15 okt. 2003 20:26#1

Jag har ett script som skall byta namn på filer från en digitalkamera. filerna heter t.ex pic0001.jpg men eftersom varje gång kameran är tömd börjar den döpa bildfilerna från pic0001.jpg. Jag vill nu bara kunna öka på ett värde i mitt script kalla startNumb men iställer för att det ökar från 00001 till 00002 så tar en bort decimalen[?] och värdet blir 1 och 2 och 3 osv. Hur avhjälper jag det?

 startNumb		= 00001
For Each File In Mapp.Files 
	
		Set fso1 = CreateObject("Scripting.FileSystemObject") 
  		fso1.MoveFile "D:\"&File.name&" ", "D:\filnamn"&startNumb&".jpg"  
		response.write startNumb &"<br>"		
		startNumb=startNumb+1		

Next

Jesper TMedlem sedan nov. 20017 144 inlägg

15 okt. 2003 20:30#2

Vad händer om du lägger till "formatNumber()"?

pepparMedlem sedan dec. 2001873 inlägg

15 okt. 2003 20:31#3

Då blir resultatet

1,00
2
3
4 osv.

PoffeMedlem sedan apr. 20022 743 inlägg

15 okt. 2003 20:40#4

startNumb = 1
For Each File In Mapp.Files 
	
		Set fso1 = CreateObject("Scripting.FileSystemObject") 
  		fso1.MoveFile "D:\"&File.name&" ", "D:\filnamn" & [B]Right("0000"[/B] & startNumb[B], 4)[/B] & ".jpg"  
		response.write [B]Right("0000"[/B] & startNumb[B], 4)[/B] & "<br>"		
		startNumb=startNumb+1		

Next

pepparMedlem sedan dec. 2001873 inlägg

15 okt. 2003 20:42#5

Javisst! Tack! :)

LarsGMedlem sedan dec. 200012 464 inlägg

15 okt. 2003 20:44#6

startNumb = 1
For Each File In Mapp.Files 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
fso1.MoveFile "D:\"&File.name&" ", "D:\filnamn"& _
right("0000" & cstr(startNumb) , 5) & ".jpg"  
response.write startNumb &"<br>"		
startNumb=startNumb+1		
Next

Hmm F5