Supprimer un retour à la ligne dans une chaîneRésolu

Question

Bonjour,

J'aimerais savoir s'il est possible de supprimer un retour à la ligne dans une chaîne de caractères.


J'ai déjà essayé de faire :



machaine = Replace(machaine, Chr(10), "")



... et aussi :





machaine = Replace(machaine, vbNewLine, "")



Mais rien à faire, ma chaîne est toujours identique

mortalino · Answer

Salut,

essai ça :

machaine = Replace(machaine, "¶", "")

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_Jack · Answer

Salut
Tu y es presque : Les retours à la ligne sont des vbCrLf
machaine = Replace(machaine, vbCrLf, "")
En fait, Cr Cariage Return Chr(13) et Lf = Line Feed = Chr(10)
Ce double format permet de rester compatible avec l'affichage des textes issus du monde MAC (il me semble) qui n'utilise que LF mais qui se fiche de voir un CR.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

mortalino · Answer

Salut Jack !

Pourquoi beaucoup de programmeurs utilise le Chr(13) & Chr(10) pour aller à la ligne ?

Perso je n'utilise que le Chr(10) et ça fonctionne très bien.

Merci. (peut-être que je fais une erreur en l'employant seul ?)

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

BenjiLeMagic · Answer

Merci mais j'avais déjà tenté avec 
vbCrLf
 et ça ne change rien.

Voici une partie de mon code :







url = "chose.net/xxx/do.php?var=val"

res = Inet1.OpenURL(url)

res = Replace(res, vbCrLf, "")








Je récupère donc la valeur d'un composant Inet, cela change quelque chose ?

cs_Jack · Answer

Re
En effet, si tu avais parlé du contexte d'application, la réponse aurait été différente.
Le HTML utilise /n pour les passages à la ligne et donc vbLineFeed = Chr(10) devrait fonctionner.
Sinon, analyse toi même la fin de la première ligne en insérant ce code juste après le OpenUrl
For r = 1 To 100
   Debug.Print Mid$(res, r, 1);"(";CStr(Asc(Mid$(res, r, 1)));")";
Next r
MsgBox "Regarder dans la fenêtre de debug quel caractère entre parenthèse apparait au début des lignes + éventuellement le dernier caractère de la ligne précendente"

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro

BenjiLeMagic · Answer

Au temps pour moi, ça fonctionne, merci pour tout !

Supprimer un retour à la ligne dans une chaîne

6 réponses

Votre réponse

Discussions similaires