voila une fontion qui vous permet de lire un fichier en retournant un string contenant la totalité du ficher.
et voila ses deux petites soeurs qui vous aident à en retirer les infos
attention ces fonctions sont parametrées celon mais besoins à vous de les modifiés celon vos besoins
Source / Exemple :
Function lecture(ByVal path As String) As String
Dim file As New StreamReader(path) 'Ouvre le fichier
Dim test As String = "0"
While Not test = "" 'La boucle s'arrête dès qu'il y a une ligne vide
test = file.ReadLine()
lecture += test
End While
file.Close()
End Function
Function decoupage(ByVal texte As String, ByVal cle As String) As String
Dim i As Integer
Dim section() As String
Dim subsection As String
decoupage = ""
section = texte.Split(";")
For i = 0 To section.Length() - 1
If Not section(i) = section(i).Replace(cle, "") Then
subsection = section(i).Replace(cle, "")
decoupage = subsection.Substring(2)
End If
Next
End Function
Function getValeur(ByVal Texte As String, ByVal cle As String) As String
Dim tab() As String
Dim cleValeur() As String
Dim i As Integer
getValeur = ""
tab = Texte.Split(",")
For i = 0 To tab.Length() - 1
cleValeur = tab(i).Split("=")
If Not cleValeur(0) = cleValeur(0).Replace(cle, "") Then
getValeur = cleValeur(1)
End If
Next
End Function
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.