Microsoft 365 Nettoyer text ("ma pomme " deviens "ma_pomme")

[merinos]

Bonjour,

Je vais devoir importer des noms de device dans un systeme... mais il existe une serie de regles d'import... donc pas de blanc...

donc "ma pomme " ne passe pas car il y a 2 espaces....

Existe-t'il une FONCTION qui nettoie du texte? Le but est de pouvoir le mettre entre 2 colonnes dans un tableau...
ou alors je vais employer des solution en PowerQuery...

Text.Trim("   ma Pomme#§   est  belle ") => "ma Pomme#§ est belle"

Text.Remove(Text.Trim("   ma Pomme#§   est  belle "), {"@","#","§"}) => "ma Pomme est belle"

text.Replace(Text.Remove(Text.Trim("   ma Pomme#§   est  belle "), {"@","#","§"})," ","_") => "ma_Pomme_est_belle"

J'y suis...

Merci

Merinos

 

[Bernard_XLD]

Bonjour merinos, le forum

Pas trop compris la question mais peut être

MsgBox Replace(Replace(Replace(Replace(Application.Trim("   ma Pomme#§   est  belle "), "@", ""), "#", ""), "§", ""), " ", "_")

ps : et, en parlant Xld correctement, on dit mapomme est beau !

Bien cordialement, @+

 

[Etoto]

Bonjour merinos, le forum

Pas trop compris la question mais peut être

MsgBox Replace(Replace(Replace(Replace(Application.Trim("   ma Pomme#§   est  belle "), "@", ""), "#", ""), "§", ""), " ", "_")

ps : et, en parlant Xld correctement, on dit mapomme est beau !

Bien cordialement, @+

Bonjour,

On savait tous que tu voulais envoyer un message subliminal à @mapomme dans ce poste tu veux mettre un espace dans son pseudo.

 

[Bernard_XLD]

Re,

un essai en expression régulière, c'est sympa aussi et ça traite tous les caractères qu'il ne faut pas simplement en ne gardant que ceux qu'il faut.

Sub Essai_Regex()
Dim Chn_Txt$
Chn_Txt = "   ma Pomme#§   est  beau "
With CreateObject("VBScript.RegExp")
    .Pattern = "[^A-zÀ-ÿ0-9 ]" 'caractères à garder
    .Global = True
    Chn_Txt = Application.Trim(.Replace(Chn_Txt, " ")) 'tous les caractères hors pattern sont modifiés _
        en espaces pour traiter tous les séparateurs possibles, le trim réduit ensuite les répétitions d'espace
End With
Chn_Txt = Replace(Chn_Txt, " ", "_") 'remplaces les espaces par le caractère de séparation voulu
MsgBox Chn_Txt, vbOKOnly + vbInformation
End Sub

Bien cordialement, @+

 

[mapoire]

Bonjour à tous ,

Je me suis réuni avec mapomme pour lui signifier ma jalousie et frustation. Il est cité régulièrement dans ce forum et mapoire jamais!
S'il vous plait, ne jouez pas avec ma susceptibilité, je suis fragile

 

[Etoto]

Bonjour à tous ,

Je me suis réuni avec mapoire. Il est très jaloux de mapomme.
S'il vous plait, ne jouez pas les susceptibilité de ces deux individus fragiles

Tu veux dire que nous avons une poire et une pomme, si quelqu'un s'appelle @mabanane, je vais pas trouver cela très top .

 

[Bernard_XLD]

re,

@mapoire , ça fonctionne aussi comme ça !

Sub Essai_Regex()
Dim Chn_Txt$
Chn_Txt = "   ma Pomme#§ et ma Poire#§   sont  beaux "
With CreateObject("VBScript.RegExp")
    .Pattern = "[^A-zÀ-ÿ0-9 ]" 'caractères à garder
    .Global = True
    Chn_Txt = Application.Trim(.Replace(Chn_Txt, " ")) 'tous les caractères hors pattern sont modifiés _
        en espaces pour traiter tous les séparateurs possibles, le trim réduit ensuite les répétitions d'espaces
End With
Chn_Txt = Replace(Chn_Txt, " ", "_") 'remplaces les espaces par le caractère de séparation voulu
MsgBox Chn_Txt, vbOKOnly + vbInformation
End Sub

 

[Etoto]

Bonjour à tous ,

Je me suis réuni avec mapoire. Il est très jaloux de mapomme.
S'il vous plait, ne jouez pas les susceptibilité de ces deux individus fragiles

Si tu veux je remmene me deux comptes secondaires, le trio d'Etoto (@Etoto0026 et @Et0t0) contre le duo des fruits

 

[Bernard_XLD]

re,

Je me suis réuni avec mapomme pour lui signifier ma jalousie et frustation. Il est cité régulièrement dans ce forum et mapoire jamais!

d'un autre coté ! @mapomme vainqueur par Ko technique.

 

[soan]

Bonjour Yeahou, le fil,

le pauvre mapoire ! c'est pas gentil d'ajouter à sa frustration, avec ton KO technique ! ​

cela dit, attention : KO = Knock Out ; Ko = Kilo octet !

soan

 

[Bernard_XLD]

Re,

@Etoto , tu devrais essayer de soigner un peu ton orthographe, tu ne fais pas une phrase sans une faute de français.

Bien cordialement, @+

 

[soan]

@Yeahou

c'est normal qu'Etoto fasse plein d'fautes de français :
il est pas Français mais Suisse !

soan

 

[Bernard_XLD]

re,

il n'est pas Français mais Suisse

Tu es suisse aussi ?

 

[soan]

ah oui, mais là, c'est différent : c'est une faute par rapport à la langue française écrite comme d'habitude, mais j'ai fait exprès de ne pas mettre n' car j'ai voulu écrire de la façon qu'on parle "en abrégé" ; c'est comme quand j'écris par exemple « maint'nant » au lieu de « maintenant », et aussi « p't'être » au lieu de « peut-être ».​

 

[Bernard_XLD]

j'ai voulu écrire de la façon qu'on parle