lecture d'une chaine de caractère dans un fichier texte

Question

Je cherche à lire une partie d'un fichier texte jusqu'à un point d'arret identifié par le caractère "#".
Le problème c'est que mon texte comprend des virgules, donc je ne peux pas utiliser la fonction Input et que la partie à enregistrer comprend des retours à la ligne qu'il faut également identifier...

Le but étant au final de partir d'une extraction de base de données (au format txt) et de lire ce fichier pour rajouter des balises html afin de créer une page html qui présente les données...

Merci de votre aide,

David

sylric · Answer

Cet algo devrait te permetre de faire ce que tu veux.
Il utilise la commande Line Input, et on remet à chaque ligne, le retour chariot qu'il faut identifier.
Quand le # est trouver on arrête
La partie récupérée est mise dans la variable "tmp"

Open "c:\Document Texte.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, a
        For i = 1 To Len(a)
            If Mid(a, i, 1) = "#" Then
                tmp = tmp & Chr(13) & Chr(10) & Left(a, (i - 1))
                Exit Do
            End If
        Next i
        tmp = tmp & Chr(13) & Chr(10) & a
    Loop
Close #1
tmp = Mid(tmp, 3)
MsgBox tmp

A+
Sylric

Lecture d'une chaine de caractère dans un fichier texte

1 réponse

Discussions similaires