[VB2005] Remplacer le input #1 de vb6

Résolu
dirickles
Messages postés
72
Date d'inscription
lundi 2 février 2004
Statut
Membre
Dernière intervention
3 novembre 2006
- 11 juil. 2006 à 15:09
troxsa
Messages postés
553
Date d'inscription
jeudi 28 novembre 2002
Statut
Membre
Dernière intervention
2 octobre 2016
- 11 juil. 2006 à 18:27
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

  

3 réponses

troxsa
Messages postés
553
Date d'inscription
jeudi 28 novembre 2002
Statut
Membre
Dernière intervention
2 octobre 2016
1
11 juil. 2006 à 18:27
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
3
Utilisateur anonyme
11 juil. 2006 à 17:32
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
0
dirickles
Messages postés
72
Date d'inscription
lundi 2 février 2004
Statut
Membre
Dernière intervention
3 novembre 2006

11 juil. 2006 à 17:49
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
0