Probleme avec Afficher le contenu de fichier txt dans un boite de texte

Question

Ce que je veux faire est que lorsque je click sur le bouton Rechercher
et qu'il a rien dedans, je veux qu'il affiche le contenu du fichier
completement dans la boite de texte



Mais le probleme semble etre qu'il affiche seulement le dernier resultat

 ?????? ??????

--- AIDEZ MOI SVP ---

VOICI le code :

Private Sub cmdRechercher_Click()

    

    If txtRecherche = "" Then

        Open "poste1.txt" For Input As #1

        Do While Not EOF(1)

           
Input #1, poste, typeOrdi, sysExp, processeur, reseau, carteSon,
disqueDur, usb

           
txtResultatRecherche = poste & " " & vbCrLf & " " &
typeOrdi & " " & vbCrLf & " " & sysExp & " " &
vbCrLf & " " & processeur & " " & vbCrLf & " "
& reseau & " " & vbCrLf & " " & carteSon & " "
& vbCrLf & " " & disqueDur & " " & vbCrLf & " "
& usb

        Loop

        Close #1

     End If

End Sub

cs_ifix · Answer

salut,
Si tu as plusieurs ligne dans ton fichier il faut faire :


txtresultatrecherche = txtresultatrecherche & poste & " " & vbCrLf & " " & typeOrdi & " " & vbCrLf & " " & sysExp & " " & vbCrLf & " " & processeur & " " & vbCrLf & " " & reseau & " " & vbCrLf & " " & carteSon & " " & vbCrLf & " " & disqueDur & " " & vbCrLf & " " & usb & vbCrLf

J'espere avoir compris et r&#233;solu ton probl&#232;me
@+

cs_MasterHack · Answer

t'as utilise while alors utilise plutot line input

Life is short...Learn more Copy Rights <> Rights to Copy

beltegeuse · Answer

Bah si j'ai bien comprit tu peut essayer avec SteamReader.



Avant la class tu met :

Imports System.Text

Imports System.IO



Apres dans ta fonction rechercher :



 If File.Exists("poste1.txt") Then

             Dim sr As New StreamReader("poste1.txt")

            Do Until sr.Peek = -1

                If i = 0 Then

                    i = 1

                  
LivreString = sr.ReadLine

                Else

                End If

            Loop

            sr.Close()

        End If



Puis tu traite ta chaine

Par exemple o prealable tu as mit entre chaque sp&#233;cificit&#233; "/" alors pour une traitement d'une chaine tu as :



Dim Leng, PourcentPos, i As Integer



        If LivreString = "" Then

           
MessageBox.Show("Aucune base de donn&#233;e veuillez faire des entr&#233;es ou
import&#233; une base de donn&#233;e")

        Else



            Do

                For i = 0 To 4 'Le nombre de "/" - 1

                   
Leng = Microsoft.VisualBasic.Strings.Len(LivreString)

                   
PourcentPos = Microsoft.VisualBasic.Strings.InStr(LivreString, "/")



           
        'Le tableau que tu va utiliser
moi c'est LivreTab(1000,4)

                   
LivreTab(nbLivre, i) = Microsoft.VisualBasic.Strings.Mid(LivreString,
1, PourcentPos - 1) 

                   
LivreString = Microsoft.VisualBasic.Strings.Mid(LivreString,
PourcentPos + 1, Leng)

                Next





                'Pour Des donn&#233;e differentes

                nbLivre = nbLivre + 1



                If LivreString = "" Then

                    Exit Do

                End If

            Loop



        End If





Pour l'ecriture tu as la meme chose :



 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call reformation()

        Dim sw As New StreamWriter("Livre.ini", False)

        sw.WriteLine(LivreString)

        sw.Close()

        



        End

    End Sub



    Sub reformation()

        Dim i As Integer

        LivreString = ""

        For i = 0 To (nbLivre - 1)

           
LivreString = LivreString & LivreTab(i, 0) & "/" &
LivreTab(i, 1) & "/" & LivreTab(i, 2) & "/" &
LivreTab(i, 3) & "/" & LivreTab(i, 4) & "/"



        Next

    End Sub



Voila c un exemple!

j'espere que ca va t'aider



MSDN est ton ami!

cs_MasterHack · Answer

Life is short...Learn more Copy Rights <> Rights to Copy

cs_MasterHack · Answer

oof c du dotnet?

Life is short...Learn more Copy Rights <> Rights to Copy

beltegeuse · Answer

Bah ouaip.


Le seul probleme c'est que les gens ne disent pas si ils sont en Vb.net ou en Vb6


J'ai pas fait attention lui il est en Vb6 

d&#233;sol&#233;.........

cs_MasterHack · Answer

po grave

Life is short...Learn more Copy Rights <> Rights to Copy

cs_bigbangnet · Answer

merci Ifix de ta reponse, ca marche. Mais, par contre, je comprend pas pourquoi si j'ecris txtresultatrecherche apres mon egale, tous mes postes apparait. Peut-etre voudrais me le dire pourquoi.



Si tu te le demande, oui, je suis nouveau, et a chaque jour j'apprend un truc nouveau.

Merci encore Ifix







P.S: je fonctionne avec VB6

cs_ifix · Answer

Salut,
Dans ton code initial, tu reaffectais une nouvelle valeur a txtresultatrecherche a chaque fois que tu executes la ligne a l'interieur de ta boucle.(en fait tu "&#233;crasais" la valeur pr&#233;cedente)
Il faut donc affecter la nouvelle valeur mais en gardant ce qui est d&#233;ja ecrit.
Voila , j'espere etre clair

Probleme avec Afficher le contenu de fichier txt dans un boite de texte

9 réponses

Discussions similaires