Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Comment supprimer un saut de ligne dans une chaîne

ayi

Je veux supprimer le saut de ligne de la chaîne si ma chaîne se termine par un saut de ligne.
<pre><code class="lang-auto">Sub linebreak(myString)
If Len(myString) <> 0 Then
If Right$(myString, 1) = vbCrLf Or Right$(myString, 1) = vbNewLine Then myString = Left$(myString, Len(myString) - 1)
End If
End Sub

</code></pre>

ayi_2

<h2><a name="p-21922-rsum-1" class="anchor" href="#p-21922-rsum-1" aria-label="Heading link"></a>Résumé</h2>
<pre><code class="lang-auto">str = Replace(str, vbLf, "")

</code></pre>
Ce code supprime tous les sauts de ligne du code.
Si vous voulez juste supprimer le dernier :
<pre><code class="lang-auto">If Right(str, 1) = vbLf Then str = Left(str, Len(str) - 1)

</code></pre>
c’est la méthode que vous avez essayée, et c’est correct.
<h2><a name="p-21922-informations-de-contexte-2" class="anchor" href="#p-21922-informations-de-contexte-2" aria-label="Heading link"></a>Informations de contexte</h2>
saut de ligne = ASCII <code>10</code>, saut de page = ASCII <code>12</code> et retour chariot = ASCII <code>13</code>. Ici, nous voyons clairement ce que nous savons tous : le PC vient de la machine à écrire (électrique).
<code>vbLf</code> est <code>Chr (10)</code> et signifie que le curseur descend d’une ligne (machine à écrire : tourner le rouleau)
<code>vbCr</code> est <code>Chr (13)</code> et signifie que le curseur saute au début (machine à écrire : ramener le rouleau)
Sous DOS, un saut de ligne est toujours <code>VBCrLf</code> ou <code>Chr (13) & Chr (10)</code>, dans les fichiers en tout cas, mais par exemple aussi dans les zones de texte en VB.
Dans une cellule Excel, en revanche, un saut de ligne n’est que <code>VBLf</code>, la deuxième ligne commence alors à la première position même sans <code>vbCr</code>. Avec <code>vbCrLf</code>, on descend alors d’une cellule.
Donc cela dépend de l’endroit où vous lisez et d’où vous obtenez votre chaîne. 
Si vous voulez supprimer tous les <code>vbLf</code> (<code>Chr(10)</code>) et <code>vbCr</code> (<code>Char(13)</code>) dans votre chaîne, vous pouvez le faire comme ceci :
<pre><code class="lang-auto">strText = Replace(Replace(strText, Chr(10), ""), Chr(13), "")

</code></pre>
Si vous voulez seulement supprimer le dernier, vous pouvez tester et le faire comme ceci :
<pre><code class="lang-auto">If Right(str, 1) = vbLf or Right(str, 1) = vbCr Then str = Left(str, Len(str) - 1)

</code></pre>