Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 24 17:07:22

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Trucs & Astuces

> SAVOIR SI LE NOM D'UN FICHIER EST VALIDE (NOM WINDOWS)

SAVOIR SI LE NOM D'UN FICHIER EST VALIDE (NOM WINDOWS)

Information sur la source

Note :

8,67 / 10

Catégorie :Trucs & Astuces Classé sous :nom, window, verification Niveau :Débutant Date de création :14/02/2006 Date de mise à jour :14/02/2006 20:21:29 Vu :6 754

Auteur : Gally

Ecrire un message privé

Site perso

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Bonjour,

Ce n’est pas vraiment un codes-source, mais surtout une astuce ! Si vous demander le nom du fichier a sauvegardé à l’utilisateur de votre programme celui-ci peut ne pas être correcte. C'est-à-dire qu’il peut contenir un code non valide pour les noms windows.

En fait cette astuce est simple et test simplement si un caractère non valide est dans la chaine.

Source

' ****************************************************************************
' ****************************************************************************
' ****************************************************************************
' ****************************************************************************
' +--------------------------------------------------------------------------+
' | DONNE LA VALIDITE DU NOM POUR LA SAUVEGARDE D'UN FICHIER METHODE N°1 |
' +--------------------------------------------------------------------------+
Private Function GetIsValidName(ByVal strFileName As String) As Boolean
' DECLARATION DES VARIABLES.
Dim lngI As Long
' DONNE LA VALIDITE DU NOM.
lngI = lngI + InStr(&H1, strFileName, "\") ' CARACTERE '\'.
lngI = lngI + InStr(&H1, strFileName, "/") ' CARACTERE '/'.
lngI = lngI + InStr(&H1, strFileName, ":") ' CARACTERE ':'.
lngI = lngI + InStr(&H1, strFileName, "*") ' CARACTERE '*'.
lngI = lngI + InStr(&H1, strFileName, "?") ' CARACTERE '?'.
lngI = lngI + InStr(&H1, strFileName, "<") ' CARACTERE '<'.
lngI = lngI + InStr(&H1, strFileName, ">") ' CARACTERE '>'.
lngI = lngI + InStr(&H1, strFileName, "|") ' CARACTERE '|'.
lngI = lngI + InStr(&H1, strFileName, Chr$(&H22)) ' CARACTERE '"'.
If lngI = &H0 Then
GetIsValidName = True
Else
GetIsValidName = False
End If
End Function
' +--------------------------------------------------------------------------+
' | DONNE LA VALIDITE DU NOM POUR LA SAUVEGARDE D'UN FICHIER METHODE N°2 |
' +--------------------------------------------------------------------------+
Private Function GetIsValidName(ByVal strFileName As String) As Boolean
' DECLARATION DES VARIABLES.
Dim lngI As Long
Const strInterdit As String = "\/:*?""<>|"
' RECHERCHE DES CARACTERES INTERDIT.
For lngI = 1 To Len(strInterdit)
If InStr(strFileName, Mid$(strInterdit, lngI, &H1)) Then
GetIsValidName = True
Exit For
End If
Next lngI
GetIsValidName = Not GetIsValidName
End Function
' ****************************************************************************
' ****************************************************************************
' ****************************************************************************
' ****************************************************************************
' +--------------------------------------------------------------------------+
' | EXEMPLE D'UTILISATION DE LA FONCTION "setIsValidName". |
' +--------------------------------------------------------------------------+
If Not GetIsValidName("TestFile*.exe") Then
MsgBox ("NOM DU FICHIER INVALIDE")
End If

' ****************************************************************************
' ****************************************************************************
' ****************************************************************************
' ****************************************************************************

' +--------------------------------------------------------------------------+
' |   DONNE LA VALIDITE DU NOM POUR LA SAUVEGARDE D'UN FICHIER METHODE N°1   |
' +--------------------------------------------------------------------------+

Private Function GetIsValidName(ByVal strFileName As String) As Boolean
' DECLARATION DES VARIABLES.
    Dim lngI        As Long

' DONNE LA VALIDITE DU NOM.
    lngI = lngI + InStr(&H1, strFileName, "\")              ' CARACTERE '\'.
    lngI = lngI + InStr(&H1, strFileName, "/")              ' CARACTERE '/'.
    lngI = lngI + InStr(&H1, strFileName, ":")              ' CARACTERE ':'.
    lngI = lngI + InStr(&H1, strFileName, "*")              ' CARACTERE '*'.
    lngI = lngI + InStr(&H1, strFileName, "?")              ' CARACTERE '?'.
    lngI = lngI + InStr(&H1, strFileName, "<")              ' CARACTERE '<'.
    lngI = lngI + InStr(&H1, strFileName, ">")              ' CARACTERE '>'.
    lngI = lngI + InStr(&H1, strFileName, "|")              ' CARACTERE '|'.
    lngI = lngI + InStr(&H1, strFileName, Chr$(&H22))       ' CARACTERE '"'.
    If lngI = &H0 Then
        GetIsValidName = True
        Else
            GetIsValidName = False
    End If

End Function

' +--------------------------------------------------------------------------+
' |   DONNE LA VALIDITE DU NOM POUR LA SAUVEGARDE D'UN FICHIER METHODE N°2   |
' +--------------------------------------------------------------------------+

Private Function GetIsValidName(ByVal strFileName As String) As Boolean
' DECLARATION DES VARIABLES.
    Dim lngI            As Long
    Const strInterdit   As String = "\/:*?""<>|"

' RECHERCHE DES CARACTERES INTERDIT.
    For lngI = 1 To Len(strInterdit)
        If InStr(strFileName, Mid$(strInterdit, lngI, &H1)) Then
            GetIsValidName = True
            Exit For
        End If
    Next lngI
    GetIsValidName = Not GetIsValidName

End Function


' ****************************************************************************
' ****************************************************************************
' ****************************************************************************
' ****************************************************************************

' +--------------------------------------------------------------------------+
' |          EXEMPLE D'UTILISATION DE LA FONCTION "setIsValidName".          |
' +--------------------------------------------------------------------------+

If Not GetIsValidName("TestFile*.exe") Then
    MsgBox ("NOM DU FICHIER INVALIDE")
End If

Conclusion

Ceci n’est juste qu’une petite astuce, qui peut avoir son utilité en fonction de ce que vous faites.

Bonne programmation a tous,
[Gally Home Corp]

Historique

14 février 2006 19:49:38 :: Ajout d'une nouvelle méthode
14 février 2006 20:21:29 :: Correction d'erreur dans la mise a jour... Merci à PCPT d'avoir vu les erreurs...

Sources du même auteur

INFO-TOASTS (LA FENÊTRE DANS LE STYLE D'MSN MESSAGER)

ZPL2 VIEWER (IMPRIMANTE ZEBRA)

CRÉATION DE PLUGINS AVEC INTERACTION...

VBSPOOLER VER: 01.B (IMPRIMANTE)

INSTALLATION D’UNE IMPRIMANTE RÉSEAU

Toutes les sources de Gally

Sources de la même categorie

TROUVER UN CONTROLE "ACTIF" DANS UN FORM par didierdeco91

RESISTANCES ÉQUIVALENTES par besqueut

JACALENDAR par raffika

EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert

JEUX DE VERITÉ ET DE FIDELITÉ par billatosco

Toutes les sources de la catégorie Trucs & Astuces

Sources en rapport avec celle ci

ANIMATION DE FORM par djebbipgm

FAIRE LA DIFFÉRENCE ENTRE UNE ADRESSE EMAIL QUI EXISTE D'UNE... par lesinfosdugeek

VÉRIFIER L'EXISTANCE D'UNE ADRESSE MAIL par dsigmoun

JEU DU DÉMINEUR par mig211

INFORMATION IP ET LISTE DES PC DU RÉSEAU par higgins91

Commentaires et avis

Commentaire de PCPT le 14/02/2006 15:54:14 administrateur CS

salut,
ouai çà peut être pratique, sachant aussi que çà se simplifie pas mal. et pour le nom, peut-être plus GET que SET, non?

Private Function GetIsValidName(ByVal strFileName As String) As Boolean
    Const sInterdit As String = "\/:*?""<>|"
    Dim lngI As Long, i As Integer: lngI = 0
    '
    For i = 1 To Len(i)
        lngI = lngI + InStr(1, strFileName, Mid$(sInterdit, i, 1))
    Next i
    '
    GetIsValidName = IIf(lngI = &H0, True, False)
End Function

tu peux ensuite également ajouter la vérif d'une extension, etc... ;)

++
PCPT   [AFCK]

Commentaire de PCPT le 14/02/2006 15:57:45 administrateur CS

si t'aimes pas les "IIf", tu peux remplacer par
GetIsValidName = (lngI = &H0)
(j'aime moins... question de goût ^^)

Commentaire de bouv le 14/02/2006 17:42:57

Salut, petite erreur dans le code de PCPT
Remplacer For i = 1 To Len(i)
par For i = 1 To Len(sInterdit)

Cela dit je prefere :

Private Function GetIsValidName(ByVal strFileName As String) As Boolean
    Const sInterdit As String = "\/:*?""<>|"
    Dim i As Integer
    For i = 1 To Len(sInterdit)
        If InStr(strFileName, Mid$(sInterdit, i, 1)) Then GetIsValidName = True: Exit For
    Next i
    GetIsValidName = Not GetIsValidName
End Function

Commentaire de PCPT le 14/02/2006 18:06:35 administrateur CS

salut Bouv,
exact est d'accord avec toi. j'ai voulu aller trop vite ^^
(faut vraiment que j'apprenne à me relire.....)

pour le retour néanmoins, mais plus par habitude d'initialiser, pas tout à fait ok. donc une ligne de plus en entête avec GetIsValidName=False.
on peut aussi terminer juste avec GetIsValidName=True, en remplaçant Exit For par Exit Function.

des manières, il y en a souvent plusieurs, faut tout de même soutenir Gally ;)
++

Commentaire de muad-dib le 14/02/2006 19:40:12

et pourquoi pas tout simplement IsValidName comme nom de fonction?......

Commentaire de Gally le 14/02/2006 19:47:13

Bonjour,

Pas de problème pour vos méthodes, l'avantage c'est qu'avec ce ke j'ai posté il y a maintenant plusieurs méthode.

Cela dit, il n'est pas obligatoire de me soutenir "PCPT". Je ne fait cela que pour donné un petit coup de main au personne de ce site. Mais merci quand même ;-)

Et comme veux que ce soit le mieu possible je vais ajouté la 2eme méthode.

Bonnne programmation
[Gally Home Corp]

Commentaire de Gally le 14/02/2006 23:49:12

Bonjour,

Merci au divers personne qui ont rebondit a cette petite astuce, car maintenant je penses qu'elle est vraiment pas trop mal.

Bonnne programmation a tous,
[Gally Home Corp]

Commentaire de vbPink le 09/08/2006 21:38:33

Je suis d'accord pour la diversité des astuces, mais pourquoi faire compliqué quand on peut faire simple ?
Ta fonction est très longue, on peut résumer en beaucoup moins de lignes pour une efficaté accrue.

Exemple :

Public Function IsValidName(ByVal sFile As String) As Boolean
    Dim i       As Byte
    Dim sChar   As String
    sChar = "\/*?:<>|" & Chr(34)

    For i = 1 To Len(sFile)
        If InStr(1, sChar, Mid$(sFile, i, 1)) > 0 Then
            IsValidName = False
            Exit Function
        End If
    Next i

    IsValidName = True
End Function

Commentaire de threadom le 16/10/2006 00:10:32

Petit Mix final, j'ai repris PCPT, BOUV, et MUAD-DIB, vbPink pour obtenir :

Ca répond a peu près a tout les critères de tout le monde je crois et c'est a mon avis le plus rapide tout en respectant les valeurs et tailles de VB6.

Public Function IsValidName(ByVal strFileName As String) As Boolean
Const sInterdit As String = "\/:*?""<>|"
Dim i As Integer

    IsValidName = True
    For i = 1 To Len(sInterdit)
        If (InStr(strFileName, Mid$(sInterdit, i, 1)) <> 0) Then IsValidName = False: Exit Function
    Next i
End Function

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

verification de controle [ par eddy ] mon projet de compose d'1 textbox et d'1 bouton valider.Je n'ai qu'une seule fonction: Valider_click().Lorsque l'utilisateur clique sur valider je lui Verification fichier excel [ par Fredmane ] SLT,Existe t'il un moyen de verifier la compatibilité d'un fichier excel, pour savoir avec quelle version d'excel (95,97,2000,XP,autres; MAC ou PC) il Creation de cades comme ds explorateur window [ par webboy ] Bonjour,Avec kel composant peut on creer des cadres comme explorateur window :A gauche il ya le treeview des dossiers & a droite la liste des fichiers Infos apparence Window XP [ par Capo ] Y' a t'il un moyen de récupérer dans un programme VB l'information sur le style des fenêtres utilisées sur window XP, en mode classique ou en mode XP. Utilisation des icones sytemes de Windows [ par FaciCAD ] Commen je peut faire pour utiliser les icones sytemes de Windows XP (ex.: Les icones dans l'explorateur de window, les icones des fichiers reconnu par Verification de nom [ par Tayelik ] BonjourJe voudrais savoir s'il était possible d'utiliser la fonction de vérification de nom d'Outlook dans un programme en VB et si oui quelle serait Qu'est ce qu'une class Window??? [ par emouchet ] J'ai pour instruction : "In the Class window, typeImplements, and then press the space bar."Mais je sais pas ce qu'ils entendent par Class Window.Merc Commande MS-Dos ?????? [ par pierre63 ] Bonjour,Voila je voudrais créer une applic qui s'éxécute sous window avec un bouton qui me permettrais de redemarrer en mode MS-dos et d'executer une maximise external window [ par babouche ] bonjour, jaimerais svoir coment faire pour maximiser la fenetre dune application deja lancée (par la fonctin shell toute betement)... car je voudrais verification base de registre lors du deploiement d'une appli [ par dardarmotus ] dardarmotus Je suis confronté encore une fois à un problème et je demande l'aide des pros de VB.Je veux verifier par un petit code VB :

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : PROBLèME D'EXéCUTION D'UNE APPLICATION par cmarcotte

MASQUER ET DEMASQUER FEUIL par patgravure35

RE : COMMENT METTRE UNE VARIABLE DANS UNE FONCTION "ACTIVEWORKBOOK.SAVECOPYAS" par ucfoutu

PROBLèME D'EXéCUTION D'UNE APPLICATION par medas918

RE : BOUCLE DANS BOUCLE ? par acive

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Creation d-un site vitrine avec MagentO
Budget : 2 000€
Application iphone et android - gestion contenu et version derivees-URGENT
Budget : 5 000€
Creation d-un site ecommerce de vente en ligne de chaussures femmes
Budget : 5 000€

Logiciels

974 Application Server (12.2.4.0)
974 APPLICATION SERVER (12.2.4.0)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP
mySongBook Player (1.0.0)
MYSONGBOOK PLAYER (1.0.0)

mySongBook Player est un logiciel gratuit permettant l'accès à une archive de tablatures/partitio...

Cliquez pour télécharger mySongBook Player