Fonction retournant le nom d'un fichier

Commenter

Contenu du snippet

Cette source sert pour connaitre le nom d'un fichier sans l'exension en minuscule

Source / Exemple : 


public function fnom_page(fichier as string)
	dim taille_tableau, spage, sval, sval2, fichier2, extension as string
	dim tabpage, val_extension as array

	tabPage = split(fichier,"/")						' on regarde dans quel page on est
	val_extension = split(fichier,".")					' on decoupe avec tous les points

	for each sval2 in val_extension						'on passe tous les membre jusqu'au dernier
		extension = sval2
	next

	for each sval in tabpage							'on remet tabpage dans un string
		fichier2 &= sval
	next
	
	if fichier2 = fichier then							'on à regardé si ca a fait qqchose avec le slash
		tabPage = split(fichier,"\")					'on refait avec l'antislash
	end if
	
	taille_tableau = Ubound(tabpage)
	spage = tabpage(taille_tableau) 
	
	spage = replace(spage, "." + extension,"")			' replace(string, valeure a remplacer, valeur de remplacement
	spage = StrConv(spage, VbStrConv.LowerCase) 		' StrConv fonction de formatage; VbStrConv.LowerCase ==> tt en minuscule
	fnom_page = spage
end function

' ensuite pour afficher la fonction on fait simplement

response.write(fnom_page(Request.Params("URL")))

Conclusion :


on peut facilement transformer la fonction pour conaitre l'extension d'un fichier etc.. si y'a des trucs qui peuvent se raccourcir faites le moin savoir.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jesusonline)