Tronquer un fichier texteRésolu

Question

VB6 
Excusez. Il semblerait que je n'avais pas post&#233; mon texte au bon endroit ou que je n'avis pas &#233;t&#233; assez explicite. Je reformule ma question ici dans l'espoir de trouver r&#233;ponse a mon prob : 

Soit un textbox multilignes (Text1) dans lequel on peut r&#233;diger ou modifier un texte. Je voudrais transf&#233;rer uniquement les 5 premi&#232;res lignes de ce texte dans un autre textbox (Text2) se trouvant dans la m&#234;me form. Trop compliqu&#233; pour moi&#133;  

En fait, je voudrais faire un gende de bloc-note qui soit capable de tranf&#233;rer (apres un clic sur un bouton)les 5 premieres lignes du texte dans un autre textbox se trouvant dans le meme form. Il efface la 6e ligne et suivantes avant de transf&#233;rer dans text2.

Je pense a un bout de code bas&#233; sur l'analyse du nombre de lignes et non pas de la longueur des lignes puisque celles-ci peuvent etre modifi&#233;es dans Text1 avant d'etre tranf&#233;r&#233;es dans Text2.

Observation : J'ai d'abord cherch&#233; avant de poser mon probl&#232;me.

Merci de me fournir un bout de code.

OvO

Schlangan · Accepted Answer

Dans ce cas, c'est assez simple. Le caract&#232;re de retour &#224; la ligne est (je crois) le caract&#232;re 13.
On va incr&#233;menter le nombre de lignes parcourues &#224; chaque fois que l'on trouve ce caract&#232;re. Ensuite, une fois qu'on arrive &#224; 6, il suffit de sortir de la boucle pour effacer les caract&#232;res avant.

Voici un morceau de code :

Dim act_line As Byte 'Le num&#233;ro de la ligne en cours.
Dim i as Byte 'variable compteur pour la boucle
act_line = 1
For i=1 To Len(Text1.Text)
   If Mid(Text1.Text, i, 1) = Chr(13) Then
      act_line = act_line + 1
      If act_line = 6 Then Exit For 'On vient d'atteindre la 6&#232;me ligne, donc on quitte la boucle
   End If
Next i
Text2.Text = Left(Text1.Text, i)
'Ensuite pour effacer les autres lignes :
Text1.Text = Text2.Text

Mais si tu parles de tranferts, n'est-ce pas plut&#244;t supprimer les 5 lignes du Text1 qui sont transf&#233;r&#233;es dans le Text2 ?
Dans ce cas, remplaces la ligne en gras par : Text1.Text = Right(Text1.Text, Len(Text1.Text)-(i-1))

Attention : Comme je n'ai pas Internet chez moi, je travaille dans un cyberlocal, et je n'ai pas VB. Je ne peux donc pas v&#233;rifier si le code fourni est exact. Il peu y avoir des impr&#233;cisions telles que le 'Len(Text1.Text)-(i-1)) ; Ce n'est peut &#234;tre pas i-1.
De m&#234;me, le saut de ligne &#233;tant vbCrLf, il est compos&#233; aussi du caract&#232;re 10. Si cela ne marche pas, essaie de remplacer le 13 par 10.

Enfin : Ce code est fait pour Visual Basic 6.0.

Schlangan · Answer

Salut, pausezero.

Simple question : Qu'est-ce que tu entends par 'ligne' ? Une ligne s'arr&#234;tre apr&#232;s un point, ou elle s'arr&#234;te une fois qu'elle a atteint le bord droit du TextBox ? Dans ce dernier cas, est-ce que tes mots sont tronqu&#233;s ?

pausezero · Answer

Salut Schlangan. Une ligne de texte se terminant par un retour a la ligne. Elle peut comporter une lettre, une chaine de caracteres ou etre vide. 

OvO

crenaud76 · Answer

Autre option avec un split()

Dim L() as string
Dim i as long

L = Split(textbox1.text,vbcrlf,6)
If ubound(l)<5 then         ' Moins de 6 lignes, on copie brutalement
  textbox2.text = textbox1.text
else                        ' Plus de 5 lignes, on bascule les 5 premières
  Textbox2.text = ""

  For i = 0 to 4
    TextBox2.text = Textbox2.Text & l(i) & vbcrlf
  Next
end if

Pas testé mais cela devrait être OK

CR

pausezero · Answer

Oh! Merciiiiiiii ! En plus, presque instantan&#233;ment :)
J'ai une erreur lors d'emploi de fichiers constitu&#233;s d'un grand nombre de lignes mais de tr&#232;s petit poids (max 5 KB). Je ne sais si c'est d&#251; &#224; ton code ou si c'est la constitution de l'ensemble qui en est la cause. Mais il me convient tel quel puisque les fichiers textes que j'emploie ne sont pas longs. J'ai plac&#233; un msgbox d'erreur pour le cas on oublierais cette contrainte..Encore une fois : Merci.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />



OvO

pausezero · Answer

Crenaud76, je n'ai pas essay&#233; ton code mais il est int&#233;ressant lui aussi. Vais l'essayer demain ou apr&#232;s-demain (manque de temps). Merci &#224; toi aussi.

OvO

pausezero · Answer

Crenaud76, je viens d'essayer ton code. Eh ben, faut dire qu'il est super. Plus stable et radical comme je le voulais. Merci.

OvO

Tronquer un fichier texte

7 réponses

Discussions similaires