Anomalia con Input #1, myLine

di il
1 risposte

Anomalia con Input #1, myLine

Devo elaborare un file di testo riga per riga
utilizzo quindi il codice:
If Len(Dir(FilePath)) > 0 Then
    Open FilePath For Input As #1
    Do While Not EOF(1)
    Input #1, myLine
ma non ottengo i risultati corretti
quando la riga del txt inizia con 0 la riga importata inizia dal secondo carattere omettendo lo zero
quando la riga del txt finisce con ) la riga importata omette l'ultimo carattere (la parentesi)
quando la riga del txt contiene virgole vengono importate piu' righe quante sono le virgole, omettendo le virgole stesse
ad esempio leggendo questo testo da file .txt:

01001)
01001
01000
10001)
F11) [it_IT_07001_70011.ogg] In un motore endotermico, l'andamento della curva di coppia all'aumentare del numero di giri, è dapprima decrescente, raggiunge un valore minimo e poi cresce


ottengo le seguenti linee:

1001
1001
1000
10001
F11) [it_IT_07001_70011.ogg] In un motore endotermico
l'andamento della curva di coppia all'aumentare del numero di giri
è dapprima decrescente
raggiunge un valore minimo e poi cresce


sbaglio qualcosa io oppure e' una cosa normale?

1 Risposte

  • Re: Anomalia con Input #1, myLine

    Appena scritto sul forum ho risolto
    quindi scusate...
    Line Input #1, myLine
    cosi' legge tutto correttamente
Devi accedere o registrarti per scrivere nel forum
1 risposte