Lire un fichier et en retirer des infos

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 628 fois - Téléchargée 29 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaire

Messages postés
81
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
7 juin 2012

Bonjour,

Ta fonction lecture() ne lit pas les caractères accentués (éùêàè)

C'est triste...

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.