Fonction ki remplace .title de vb 6

Commenter

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

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.