Traitment des fichiers et répertoires à partir de leur nom - class stringfs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 535 fois - Téléchargée 46 fois

Contenu du snippet

Cette classe permet de traiter les information d'une chaine de caractère comme s'il s'agissait de nom de fichier de chemin, de répertoire...
C'est plutot une classe simple et plutot incomlete, modifiez la à souhait.

Source / Exemple :


Public Class Stringfs

' Atrributs
    Private val As String

    Public Property Valeur() As String
        Get
            Return val
        End Get
        Set(ByVal nouvelleValue As String)
            val = nouvelleValue
        End Set
    End Property

'Changer en répertoire
    Public Function ToRepertoire(ByVal chaineAconcat As String, ByVal vide As Boolean) As String
        Valeur = Valeur + chaineAconcat
        ToRepertoire()

        If vide Then
            Nettoyage()
        End If
    End Function

    Public Function ToRepertoire(ByVal vide As Boolean) As String
        ToRepertoire()

        If vide Then
            Nettoyage()
        End If
    End Function

    Public Function ToRepertoire() As String
        If Valeur.Chars(Valeur.Length - 1) <> "\" And Valeur.Chars(Valeur.Length - 1) <> "/" Then
            Valeur = Valeur + "\"
        End If
        ToRepertoire = Valeur
    End Function

'Nettoyer l'interrieur d'un répertoire
    Public Function Nettoyage()
        If IO.Directory.Exists(Valeur) Then
            IO.Directory.Delete(Valeur, True)
        End If
        IO.Directory.CreateDirectory(Valeur)
    End Function

'Selectionner la partie Fichier
    Public Function GetFichier() As String
        Dim i As Integer = Valeur.Length()
        Do While Valeur.Chars(i - 1) <> "\" And Valeur.Chars(i - 1) <> "/" And i > 1
            i = i - 1
        Loop

        If i <> Valeur.Length Then
            GetFichier = Valeur.Substring(i)
        End If
    End Function

'Selectionner la partie répertoire
    Public Function GetRepertoire(ByVal relatif As String) As String
        Valeur = Valeur.Substring(relatif.Length - 1)
        GetRepertoire = GetRepertoire()
    End Function

    Public Function GetRepertoire() As String
        Dim i As Integer = Valeur.Length
        Dim tampon As String
        Do While (Valeur.Chars(i - 1) <> "\" And Valeur.Chars(i - 1) <> "/") And i > 1
            i = i - 1
        Loop
        tampon = Valeur.Remove(i, (Valeur.Length - i))
        GetRepertoire = tampon
    End Function
' Selectionner la la partie Lecteur
    Public Function GetLecteur() As String
        GetLecteur = Valeur.Remove(2, Valeur.Length - 2)
    End Function

' transformer les "\" en "/"
    Public Function ToSlash() As String
        ToSlash = Valeur.Replace("\", "/")
    End Function

End Class

Conclusion :


utilisation :
cheminAtraiter as stringfs
cheminAtraiter= new stringfs()
cheminAtraiter.valeur = "c:\temp\tragada\tsoin\tsoin.txt"
...

A voir également

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.