stringa

[79Kuntz79]

Ciao amici ho un problema e non so come risolverlo.

Io ho questa stringa 20050627_1.jpg
mi deve diventare così: 20050627_01.jpg

Come posso fare?

Grazie mille.

[quake_84]

tagli la stringa alla posizione che desideri e aggiungi uno 0

[Baol74]

Function GetName(FileName,NCifre)
	Dim Pos,Name,Ext,Ar
	If InStr(fileName,"_")>0 then
		Pos = InStrRev(FileName,".")
		Name = Mid(FileName,1,Pos-1)
		Ext = Mid(FileName,Pos+1)
		Ar = Split(Name,"_",2)
		GetName =  Ar(0) & "_" &_
		Right(String(NCifre,"0") & Ar(1),NCifre) & "." & Ext
	Else
		GetName=FileName
	End if
End Function
Response.Write GetName("20050627_1.jpg",2) ' Ris : 20050627_01.jpg
Response.Write GetName("20050627_1.jpg",3) ' Ris:
20050627_001.jpg

Ciao