[VB2005] Remplacer le input #1 de vb6Résolu

Question

slt a ts,

je suis entrain de basculer mon appli de vb6 a vb2005, le probleme c'est que je dois lire un fichier texte en utilisant la fonction input de vb6 et je ne la retrouve pas sous vb2005

voici le fichier texte a lire
"texte0"
0.25114
2.1542
"
Pierre
Maxime
"
avec vb6 :

    en utilisant, la méthode INPUT :

    Open nomfich For Input As #1 
    Do While Not EOF(1)    
        Input #1, chaine            
    Loop
    Close #1    ' Ferme le fichier.    
    msgbox chaine
 
J obtients le résultat : " 
                                PIERRE 
                                MAXIME 
                                "

sous vb 2005 :

    ??????
        j ai essayé avec readline() mais le résultat n'est pas bon.

en gros, j aimerai avoir une fonction identique a celle de INPUT de vb6 mais sous vb2005

voilà merki

troxsa · Accepted Answer

Salut !

C'est quoi ton code là :) c'est pour lire un fichier ligne par ligne ...
Voila comment je fait

Dim FileReader As New StreamReader("c:\Monfichier.txt")
Do Until FileReader.Peek = -1
Console.WriteLine(FileReader.ReadLine)
LoopPas besoin de le close il le ferme tout seul a la fin
Sinon il existe un autre moyen pour lire ton fichier en un seul bloque avec ReadToEnd ou ToAll tout depend de la class utiliser :)

Cordialement

http://www.troxsa.info/
Le site qui ne parle qu'un seul langage, visual basic 2005

Utilisateur anonyme · Answer

Salut,



Il est conseiller d'utiliser les classes du Framework.
Va voir sur le site de LDF :

http://plasserre.developpez.com/v4-6.htm




Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a nous. Merci

dirickles · Answer

ok c bon j ai trouvé,

j ai fait un algo qui est l equivalent de input.
    
        If stringReader.StartsWith(Chr(34)) = True Then
                If stringReader.EndsWith(Chr(34)) = False Then
                    While stringReader.EndsWith(Chr(34)) = False
                        'lecture de la ligne suivante
                        stringReader = stringReader + vbNewLine + fileReader.ReadLine
                    End While
                End If
            End If

voilà

youp le ouf

[VB2005] Remplacer le input #1 de vb6

3 réponses

Votre réponse

Discussions similaires