Fonction ki remplace .title de vb 6

0/5 (3 avis)

Snippet vu 5 842 fois - Téléchargée 41 fois

Contenu du snippet

ce code permet d'avoir le nom du fichier

Source / Exemple :


Module Files
    Dim stStorChaine(1000) As String
    Dim Principal, Secondaire As Long
    Dim Counter, Counter2 As Long

    Public Function FindTitle(ByRef strFileName)

        For Principal = 1 To Len(strFileName)
            stStorChaine(Principal) = Mid(strFileName, Principal, 1)

            If stStorChaine(Principal) = "\" Then
                Counter += 1
            End If
        Next

        For Secondaire = 1 To Len(strFileName)

            If stStorChaine(Secondaire) = "\" Then Counter2 += 1

            If Not stStorChaine(Secondaire + 1) = "\" And Counter2 = Counter Then
                Return Mid(strFileName, Secondaire + 1, Len(strFileName) - Secondaire)
                Exit For
            End If
        Next
    End Function

    Public Function FindExtension(ByVal strFileName)

        For Principal = 1 To Len(strFileName)
            stStorChaine(Principal) = Mid(strFileName, Principal, 1)

            If stStorChaine(Principal) = "." Then
                Counter += 1
            End If
        Next

        For Secondaire = 1 To Len(strFileName)

            If stStorChaine(Secondaire) = "." Then Counter2 += 1

            If Not stStorChaine(Secondaire + 1) = "." And Counter2 = Counter Then
                Return Mid(strFileName, Secondaire, (Len(strFileName) - Secondaire) + 1)
                Exit For
            End If
        Next

    End Function
End Module

Conclusion :


c'est ma premiere sources sur vbfrance alors siyer indulgent

A voir également

Ajouter un commentaire

Commentaires

cs_cosmic
Messages postés
61
Date d'inscription
mercredi 30 octobre 2002
Statut
Membre
Dernière intervention
16 mai 2005
-
Et ouais le .NET commence a faire tromper les visiteurs du site... NOX fais parti des premiers a qui ça arrive.
A quand le prochain....

Je suppose que le code est bon.
Au passage J'ai un livre Visual Basic .NET , si quelqu'un le veux...
Me contacter dans la rubrique QUI EST PASSE AUJOURD'HUI dans la rubrique qui est connecté...
Vous pouvez laissez un message...
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
oh désoLé!

javais pas vu le .NET :p
dans ce cas je suppose que c bien comme code ;)
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
c plein de bug!!
et c moins long écrire "app.title"

Les bugs:
"Return Mid (...)"
"Counter2 +=1"
...

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.