N'ouvrir que les 10 premieres lignes d'un texte.Résolu

Question

Bonjour, bonsoir
Je aimerais pouvoir ouvrir seulement les 10 premiere lignes d'un texte dans une textbox ( Bien sur, si le texte ouvert contenait moins de 10 lignes, il s'ouvrirait sans probleme ).

J'ai ca, mais cela n'ouvre que la derniere ligne du texte.
_____________________

Dim ligne As Integer
Open "Fichier_texte" For Input Lock Read As #1
While Not EOF(1)
Line Input #1, Montexte
texte = Montexte
Wend
Close
End Sub
' "texte" &#233;tant le contenu du texte export&#233; vers la textbox '
______________________

Puis-je esp&#233;rer une solution pour un novice ? Merci de m'aider.

OvO

pausezero · Accepted Answer

Mille merci et mille fois merci ! Rien a dire ici ( chez vbfrance ) on fait fonctionner la machine  !

Je mets la code pour l'ouvrir dans une textbox (pour les novices comme moi)
Le r&#233;sultat est n&#233; de la bonne volont&#233; de ceux qui m'ont aid&#233; ici.

_________________________________
Private Sub Command1_Click()
Dim numFile As Integer
Dim compteur As Long
Dim MonTexte As String
Dim TOUTMonTexte As String


compteur = 1
numFile = FreeFile
Open "c:\essai.txt" For Input Lock Read As #numFile
While Not EOF(numFile)
    If compteur < 11 Then
    Line Input #numFile, MonTexte
    TOUTMonTexte = TOUTMonTexte & MonTexte & vbCrLf
    compteur = compteur + 1
  Else
       Line Input #numFile, MonTexte
    End If
    Wend
    Close #numFile

Text1 = TOUTMonTexte
End Sub
______________________________________
OvO

econs · Answer

Salut,



Utilise donc un compteur de lignes :


Dim numFile As Integer

Dim compteur As Long

Dim MonTexte As String



compteur=1

numFile=FreeFile

Open "Fichier_texte" For Input Lock Read As #numFile

While Not EOF(numFile)

    If compteur<11 Then

        Line Input #numFile, Montexte

        MsgBox "Ligne " & compteur & " : " & Montexte

        compteur=compteur+1

    End If

Wend

Close #numFile

End Sub






Manu

pausezero · Answer

Merci pour ta r&#233;ponse. J'ai bien ajout&#233; une ligne "Text1= MonTexte" (pour ouvrir dans une textbox) mais cela ouvre les lignes une a une (apres que la pr&#233;c&#233;dente soit effac&#233;e) alors que je voudrais ouvrir une partie entiere du texte s&#233;l&#233;ctionn&#233; dans une textbox (Text1), soit les dix premieres lignes en meme temps. Ton code, apres le 10e clic sur MsgBox, fait planter mon (ptit) prog (?). J'ai bien essay&#233; de faire une sorte de boucle mais suis (encore) trop novice pour ca 


Un petit compl&#233;ment de code serait le grand bienvenu. Encore un fois merci pour ton apport a la communaut&#233;.

OvO

OneHacker · Answer

C'est quoi EOF et Input et # ??!! Je n'y comprends rien !

Redman

conseildg · Answer

il suffit d'ajouter dans le prog de Manu

Dim TOUTMonTexte As String

et dans le IF modifier ainsi :

Line Input #numFile, Montexte
TOUTMonTexte = TOUTMonTexte & Montexte
MsgBox "Ligne " & compteur & " : " & TOUTMonTexte 
compteur=compteur+1

pausezero · Answer

Merci conseildg pour ton ajout qui fonctionne. Le hic, c'est que si le texte ouvert contient plus de 10 lignes (car nous avons fix&#233; la limite a 10 lignes), eh ben, le prog plante. Une solution ?

OvO

econs · Answer

Voici le correctif &#224; apporter sur mon code pour qu'il ne tourne pas en boucle (plantage que tu as mentionn&#233;)




Dim numFile As Integer
 Dim compteur As Long
 Dim MonTexte As String
 
 compteur=1
 numFile=FreeFile
 Open "Fichier_texte" For Input Lock Read As #numFile
 While Not EOF(numFile)
     If compteur<11 Then
         Line Input #numFile, Montexte
         MsgBox "Ligne " & compteur & " : " & Montexte
         compteur=compteur+1

    Else

        Line Input #numFile, MonTexte
     End If
 Wend
 Close #numFile


Manu

N'ouvrir que les 10 premieres lignes d'un texte.

7 réponses

Discussions similaires