Fichier texte

Question

Bonjour,

Je cherche à mettre les lignes d'un fichier texte dans un textbox mais avec saut à la ligne. En effet chaque ligne de mon fichier texte fait 2000 caractères. Or quand je les insère dans un textbox , au bout d'un nombre donné de caractères, il me met la suite sur la ligne d'en dessous.
J'ai également essayé avec un richtextbox sans plus de résultat.

Voici mon code :

    Dim i As Integer
    Dim Ligne As String
    Open App.Path & "\Ce_edi_2510.txt" For Input As #1
    For i = 1 To 10
        Line Input #1, Ligne
        Me.RichTextBox1 = Ligne
    Next i
    Close #1

Que puis-je faire ?

Merci

Nicolas

tresorsdevie · Answer

bon , tout d'abord  rectifie comme cela

Dim i As Integer
Dim Ligne As String
Open App.Path & "\Ce_edi_2510.txt" For Input As #1
For i = 1 To 10
Line Input #1, Ligne
Me.RichTextBox1 = Ligne & vbcrlf
Next i
Close #1

ensuite, a toi a la conception de faire un richtextbox assez grand pour contenir 2000 char par ligne.

a+, chris

Programmation VB.NET
http://membres.lycos.fr/betatestvb

cs_nicolasheurtevin · Answer

Non justement, je ne veux pas avoir à dimensionner mon richtextbox, je veux pouvoir me déplacer dedans à l'aide des scrollbars, là est tout le problème.

Et puis entre nous, un richtextbox de 2000 caractères de large, c'est pas un peu immense ???

Sinon, merci pour la rectification.

Nicolas

cs_fuck · Answer

Bon alors voila deja pour ouvrir proprement en metrtant a la ligne automatiquement tu fais :


Dim F
F = FreeFile
Open App.Path & "\Ce_edi_2510.txt" For Input As F
richtextbox1.Text = Input(LOF(F), F)
Close F


Et ensuite dans la proprieter du richtextbox tu met RightMargin = 999999
Et la sa n'ira plus a la ligne.
Voila ;)

Renfield · Answer

Toc toc toc

Salut Fuck, c'est encore moi !!!


   RichTextBox1.LoadFile App.Path & "\Ce_edi_2510.txt"
   RichTextBox1.RigtMargin = 999999


c'est quand même plus simple de charger des fichiers comme ca...

bonne continuation

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_fuck · Answer

Ouais mais comme ca il a la demarche pour un TExtBox aussi.
Voila ;)

cs_fuck · Answer

Enfin bon c'est vraix que pour un richtextbox la fonction LoadFile est plus optimiser car si il a un fichiers "*.rtf" il pourra le charger comme dans word.Tandis qu'avec input ca ne mettrer que le code rtf et donc pas d'images et autres.
Voila ;)

Fichier texte

6 réponses

Discussions similaires