Couper une phrase dans un textbox sans couper un mot...

Question

Bonjour,

Je voudrais couper une phrase dans un TextBox au caractère 60, mais si ca tombe en plein sur un mot je voudrais que sa coupe dans un espace avant. Et bien sur avoir le resultat dans 2 textbox

Comment faire.

Un code serait le bien venu

Merci a vous

Renfield · Answer

j'ai fait ca :

en considerant que Text1 est le texte non tronque, et que Text2 est le resultat : les 60 premiers caracteres


    Dim Txt As String
    Txt = Left$(Text1.Text, 60)
    
    If Len(Txt) = 60 And Right$(Txt, 1) <> " " Then
        Text2.Text = Left$(Txt, InStrRev(Txt, " "))
    Else
        Text2.Text = Txt
    End If


By Renfield

[mailto:thomas_reynald@msn.com mailto:thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_rene38 · Answer

Bonjour

Ou bien, si ta phrase est dans Text1 et que tu veux mettre la suite dans Text2 :


Dim Phrase As String, Pos As Integer
Phrase = Text1.Text
Pos = InstrRev(Phrase, " ", 60)
Text2.Text = Mid(Phrase, Pos + 1)
Text1.Text = Left(Phrase, Pos - 1)

cs_sachab · Answer

Que Dieu vous bénisse.

Merci a vous 2 tout est impec

A +

cs_rene38 · Answer

Dieu merci, je suis athée !

Couper une phrase dans un textbox sans couper un mot...

4 réponses

Discussions similaires