[VB6] Estrarre informazioni da file di testo che usa markup

[Gumble]

ciao,

ho un file cosi:

' <DESC>sono una descrizione</DESC>

testo testo testo
altro testo
altro testo

' <SUB_DESC>
' io sono una sub descrizione
' e mi piace andare a capo
' </SUB_DESC>

io voglio leggere il file e estrapolare le informazioni contenute tra i tag <DESC></DESC> e <SUB_DESC></SUB_DESC> tralasciando evantuali ' (apostrofo spazio) presenti a inizio riga.

idee?

[MdE2005]

Vi sono vari modi..ma i <DESC></DESC> sono sempre sulla stessa linea? Perchè in tal caso, visto che devi ignorare le righe che iniziano con l'apostrofo, potresti usare la funzione LineInput, (che estrapola le vare righe del file) e, se non iniziano con l'apostrofo, inserirle in ciò che vuoi (es. textbox):

Metti una textbox (Text1) e prova questo codice:

Open nomefile For Input As #1
    Do While EOF(1) = False
        Line Input #1, linea
        linea = Trim(linea)
        'verifico se c'è l'apostrofo; se non c'è carico il contenuto in una textbox
        If Left(linea, 1) <> "'" Then
            text1.Text = text1.Text & linea & Chr(13)
        End If
    Loop
Close #1

Fammi sapere..

ciao