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"
...
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.