Discussion :

[sebbb02]

Bonjour à tous,

J'ai un petit souci tout bête mais qui commence à me prendre pas mal de temps, j'aimerais connaître la condition qui faut entrer dans un Split avec comme délimiteur un retour à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Str = Split(Str, "???", -1)

La chaine que je rentre :

"Bonjour bla bla bla
XXX
dzdzdzz
ddz"

----

Ce que je veux obtenir :

"Bonjour bla bla bla"

----


Voilà j'espère que j'ai été claire

Merci d'avance.

[cerede2000]

Bonjour à toi,

Est ce que tu veux spliter ou plutôt virer les retours à la ligne pour tout avoir sur une seule ligne ?

Pour splitter sur un vrai retour à la ligne CR+LF => Split(variable, vbCrLf)Pour replacer seulement pour avoir sur une seule ligne direct => Replace(variable, vbCrLf, " ")

[sebbb02]

Bonjour à toi,

Est ce que tu veux spliter ou plutôt virer les retours à la ligne pour tout avoir sur une seule ligne ?

Pour splitter sur un vrai retour à la ligne CR+LF => Split(variable, vbCrLf)
Pour replacer seulement pour avoir sur une seule ligne direct => Replace(variable, vbCrLf, " ")

Je souhaite spliter sur un retour à ligne, j'ai testé la solution avec vbCrLf mais j'ai obtenu une "incompatibilité du type" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
mavariable = Split(mavariable, vbCrLf)

vbCrLf est un mot clé du langage ou j'ai mal compris ta réponse ?

:/

[cerede2000]

En effet vbCrLf est une constante
Elle correspond au groupement dex des caractères qui compose un retour à la ligne à savoir Chr(13) & Chr(10)

[sebbb02]

Sinon, au lieu de Spliter il n'y aurait pas une autre moyen de juste récupéré la première ligne ?

[cerede2000]

Pour faire ça le split est ce qu'il y a de plus rapide !
Pour la première ligne => Split(mavariable, vbCrLf)(0)Alors que sinon tu va devoir faire une recherche du premier vbCrLf, puis extraire cette partie.... Bref plus long.
Split fait parti des traitement de chaîne rapide et simple

Qu'est ce qui te pose soucis avec Split ?

[sebbb02]

Je ne récupère pas la première ligne lorsque je split ma String avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Variable1 = ActiveDocument.Shapes(1).TextFrame.TextRange.Text
 Variable1 = Split(Variable1, vbNewLine)(0)

Je me demande si c'est bien un retour à la ligne la condition ? Le signe n'est pas ne montre pas un retour à la ligne dans la photo que j'ai jointe.

[cerede2000]

Bon la on va arrêter les devinettes !

Tu demande comment on split sur un retour à la ligne, je te réponds.
Maintenant tu part sur autre chose....

Explique clairement et précisément ce que tu cherche à faire, on va tous les deux gagner du temps !

[sebbb02]

Ok désolé de ne pas avoir été clair,

je vais aller directement au but, j'ai ce type de document Word et je veux récupérer dans une variable String le "Bonjour BLA BLA BLA".

J'arrive à récupérer tout le texte mais pas à le spliter pour ne garder que le "Bonjour BLA BLA BLA".

D'où l'ouverture de cette question au forum...

exemple.docx

[cerede2000]

Ok donc vu que c'est une fin de paragraphe il faut juste splitter sur un vbCr => Split(Variable1, vbCr)(0)vbCr constante qui correspond à Chr(13)

[sebbb02]

Ok donc vu que c'est une fin de paragraphe il faut juste splitter sur un vbCr => Split(Variable1, vbCr)(0)
vbCr constante qui correspond à Chr(13)

MERCIIIIIIII !!!!!!!!

C'est exactement ça qui me faillait.

Et merci pour ta patience

[cerede2000]

Pas de souci
Pense à quand les réponses te satisfont