Discussion :

[Xenon03]

Bonjour tout le monde,

Bon mon titre n'est pas très explicite mais mon probleme est finalement assez simple.

J'ai un certains nombre de liens vers des fichiers en BDD, et j'aimerais connaitre l'extensions de chaque fichier pour afficher un logo spécial à coté du titre.

Ex : toto.pdf => J'affiche le logo PDF
test.doc => J'affiche le logo DOC

Je n'ai que très peu de types différents : Images (jpg) , PDF ou WORD, après j'ai un logo par défaut pour les autres.

Bref, j'aimerais ecrire une fonction qui teste l'existence de la chaine ".pdf" dans ma variable et qui revoie true au false.

Le pb c'est que je suis à la rammasse question manipulation de chaine.

Quelqu'un à une idée ?

[pc75]

Bonjour,

Tu as la fonction InStr() qui fait ça.

[Poumtschak]

Et pour un exemple concret de mise en oeuvre en ASP3 :
http://www.xs4all.nl/~blokdyk/

[Xenon03]

Pour les suivants : petite fonction de test d'extension:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function typeDocument(document)
 
	Dim typeDoc
	If InStr(document,"pdf") <> 0 or InStr(document,"PDF")  Then typeDoc = "_PDF"
	If InStr(document,"doc") <> 0 or InStr(document,"DOC") <> 0  Then typeDoc = "_DOC"
 
	If InStr(document,"jpg") <> 0 or InStr(document,"JPG") <> 0  or InStr(document,"png") <> 0 or InStr(document,"PNG") <> 0 or InStr(document,"gif") <> 0 or InStr(document,"GIF") <> 0 or InStr(document,"jpeg") <> 0 or InStr(document,"JPEG") <> 0 or InStr(document,"bmp") <> 0 or InStr(document,"BMP") <> 0   Then typeDoc = "_IMG"
 
 
	typeDocument = typeDoc
 
End Function