Bonjour,

J'ai en entrèe un fichier texte et je dois lire ligne par ligne le fichier.
Mon souci est que je ne récupére pas les espaces devant et je n'arrive pas à comprendre pourquoi.

exemple :
dans le fichier une ligne : "                               TOTO"
quand je lis la ligne dans une variable String cela me donne "TOTO"

Ca doit être un truc tt con en plus.
merci d'avance

Bonjour

utilises ltrim, rtrim ou trim pour supprimer les espaces.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

je ne veux pas les supprimer bien au contraire mais les récuperer

Salut,

Si tu recueilles ta ligne en faisant :

Line Input #1, maLigne

les espaces devraient s'y trouver.



Dim s As String
Open "C:\toto.txt" For Input As #1
    Line Input #1, s
Close #1
MsgBox "@@" & s & "@@"

Les @@ servent juste à montrer qu'il y a des espaces dans la chaine 's'.



Manu

Ah j'ai un autre souci incompréhensible
à la derniére ligne lu l'errer 62 (L'entrée dépasse la fin de fichier) survient...

Bonjour

C'est vraisemblablement que tu controle mal la boucle de lecture de ton fichier.
Normalement ça devrait être
Do Until Eof(1)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

l'erreur survient lors de la lecture de la derniére ligne donc ce n'est pas la fin

Bonjour

Clairement, le message d'erreur te dit que tu lis après la fin du fichier.
Si la solution précédente ne fonctionne pas, peux-tu poser le code de ta boucle de lecture.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Pour tout lire :


Dim s As String
Open "C:\toto.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, s
    Wend
Close #1


Manu