[R]Presse-Papier: impossible d'effacer certains caractères

[martinbrait]

Bonsoir,
J'ai stocké le contenu texte du presse-papier dans une variable, et j'essaie d'en nettoyer le contenu. J'ai beau m'escrimer à tenter d'effacer certains caractères "vides" stockés dans ma variable de presse-papier, je ne parviens absolument pas à les détruire.


Ce que je mets dans le presse-papier est le contenu d'un mail, sous thunderbird.

Je précise que dans ma situation, lorsque je parcours caractère par caractère mon mail,
je me rends compte d'anomalies lorsque j'ai en retour un code compris entre Chr(48) et Chr(57),
et que je vois dans mon presse papier l'affichage de carrés vides.
J'imagine que c'est parce que le contenu d'un presse-papier est toujours au format string(?)
Il s'agit des caractères Chr(49) à Chr(57).
Or, en temps normal:
$chr(48) va retourner : 0
$chr(49) va retourner : 1
$chr(50) va retourner : 2
$chr(51) va retourner : 3
$chr(52) va retourner : 4
$chr(53) va retourner : 5
$chr(54) va retourner : 6
$chr(55) va retourner : 7
$chr(56) va retourner : 8
$chr(57) va retourner : 9
Dans ma situation, ils sont en fait transcrits dans ma variable,
comme des caractères non reconnus (carrés vides)

► Afficher le texte

J'utilise la méthode:

Code : Tout sélectionner

For $i = 49 to 57
For $j = LongueurMaxduPressePapier to 1 step -1

        StringReplace($ContenuDuPressePapier,Asc($i),"")
        StringReplace($ContenuDuPressePapier,Chr($i),"")

Next
Next

Est-ce normal? Merci, et à bientôt j'espère!

[Iste]

Sans avoir fait de test, votre boucle For $j = LongueurMaxduPressePapier to 1 step -1 est inutile, StringReplace() parcourt déja toute la chaine. Il nous reste donc

Code : Tout sélectionner

For $i = 49 to 57
    StringReplace($ContenuDuPressePapier,Asc($i),"")
    StringReplace($ContenuDuPressePapier,Chr($i),"")
Next

PS : j'ai ajouté la balise de code a votre message, merci d'y penser a l'avenir

[martinbrait]

Merci! Je réessaie tout de suite d'effacer mes "chiffres" carrés vides, récalcitrants!
Je n'ai pourtant que du texte ordinaire dans mon message, et par conséquent, la même chose dans le presse-papier(?)

Rien n'a changé. Je présume que mon message thunderbird est écrit dans un encodage spécia(?)

J'utilise cette instruction, pour stocker l'information dans le presse-papier:

Code : Tout sélectionner

$bak = ClipGet()
MsgBox(0, "Clipboard contains:", $bak)

[Tlem]

Vous n'expliquez pas comment vous faites pour récupérer la chaine à traiter.

Juste au cas ou, est-ce que ceci ne vous conviendrait pas ?

Code : Tout sélectionner

#Include <Clipboard.au3>

$ClipText = _ClipBoard_GetData($CF_TEXT)
MsgBox(0, '', $ClipText)

[martinbrait]

Bonsoir!
Je viens d'utiliser l'instruction que vous préconisez, mais je suis toujours en échec pour effacer mes fameux caractères mal codés, directement copiés depuis un message du navigateur MozillaThunderbird.

J'ai également changé les options d'encodage des caractères sous thunderbird, mais il n'y a eu aucun changement.

[Tlem]

Peut-on voir une bride de cette fameuse chaine avec ces caractères récalcitrants ?

[martinbrait]

LE TEXTE ORIGINAL EST JUSTE AU DESSOUS, AVEC LES ESPACES A ELIMINER!
Il suffit de copier la séquence ci-dessous directement dans le presse papier, pour se trouver dans la même situation, avec les espaces impossibles à éliminer! Je voudrais que toutes les phrases se suivent avec un espace d'intervalle uniquement, entre chaque phrases!

► Afficher le texte

AIR FRANCE - AF 2488
VEN 13AUG PARIS FR BUCHAREST RO 1525 1915
CHARLES DE GAULLE HENRI COANDA
SANS ESCALE TERMINAL 2F DUREE 2:50
H.L.E 1455
RESERVATION CONFIRMEE - W ECONOMIE - PREM
A BORD : REPAS

PROPRIETAIRE DE L'APPARE:AF AIR FRANCE
EQUIPAGE DU COCKPIT :AF AIR FRANCE
EQUIPAGE DE LA CABINE :AF AIR FRANCE
EQUIPEMENT:AIRBUS INDUSTRIE A318


DIVERS 01DEC FICTITIOUS POINT
WED DEADLINE

NUMERO DE RESERVATION AF/5WCK94


LAW TO PASS INFORMATION CONTAINED IN THIS
RESERVATION TO CUSTOMS AND IMMIGRATION
AUTHORITIES WHEN REQUESTED
VEUILLEZ NOTER QUE LES AUTORITES DE DOUANES
ET D IMMIGRATION PEUVENT DEMANDER
OFFICIELLEMENT AUX COMPAGNIES AERIENNES
L ACCES AUX INFORMATIONS CONTENUES
DANS VOTRE DOSSIER DE RESERVATION

Je croyais qu'il fallait effacer les caractères de tabulation Chr(10), Chr(13), bien sûr.
Les instructions préconisées StringReplace($ClipText,@CR,""), StringReplace($ClipText,@LF,"")
ne produisent aucun effet dans mon cas.
StringReplace($ClipText,@TAB,"")
StringReplace($ClipText,@CRLF,"")
sont également sans effet!

► Afficher le texte

J'ai passé, ce bout de code sans succès!

Code : Tout sélectionner

    For $i = 0 to 44    
    StringReplace($ClipText,Chr($i),"") 
    Next    

    For $i = 123 to 255 
    StringReplace($ClipText,Chr($i),"") 
    Next   

Un forum excel me fait tout à fait penser à mon problème actuel sous autoit!

► Afficher le texte

... remplacer les caracteres speciaux par espace

quand j m 'importe de excel parfois ya des ptit carrés dans la cellules ( normalement c un retour a la ligne) et c la kil blok mais pour les autres caractères ca y est c traité
voila

vendredi 12 mai 2006 à 12:12:15 | Re : remplacer les caracteres sepciaux par espace

C'est pour ça qu'il faut coupler replace et CHR dans ton code : (instr, c'est autre chose.. enfin moi je parle en vb.net.. toujours)

dim str_excel as string = "ce que tu recupere de
Excel"
je connais pas leurs valeurs exactes, mais si tu trouves la coordonnée du retour chariot (mettons 49..) en ascII et celui de l'espace (45, allez) et tu pourras faire :

str_excel = str_excel.replace(chr(49), chr(45)) ou quelque chose qui s'en approchera...

mardi 9 juin 2009 à 16:50:39 | Re : remplacer les caracteres sepciaux par espace

Je viens de lire les messages et je reste bloqué avec le petit carré aussi

J'écris via une combobox en mode multi line et lorsque je l'applique dans un cellule d'excel, il génére un petit carré pour le retour line.

Puis le fichier, je l'exporte pour une requête. Et là impossible car le petit carré et considéré comme une rupture de colonne, donc je souhaite viré le petit carré.

Merci à tous pour votre aide.......


vendredi 12 juin 2009 à 15:02:15 | Re : remplacer les caracteres sepciaux par espace

le problème c'est que dans VBA Excel une Textbox en mode Multiline permet d'écrire plusieurs ligne dans la Textbox (évidemment)

mais lorsque la valeur Textbox.text est exporté vers une cellule excel. il affiche un petit carré à la fin de chaque ligne.

Donc la question peut on virer ces petit carré soit dans les options des textbox ou avec une macro ???........ Là je reste bloqué depuis longtemps... bon d'accord je suis débutant, mais je trouve aucune réponse à ce problème même pas sur les forums étrangers....

d'avance merci, si quelqu'un trouve.....

vendredi 13 novembre 2009 à 19:50:46 | Re : remplacer les caracteres sepciaux par espace

Désolé, je n'ai pas la force de tout lire, je réponds juste à ta dernière remarque.

Chaque retour à la ligne d'une textbox (ou autre objet de ce type) est codé par deux caractères spéciaux : chr$(10) & chr$(13)

Chr$(10) affiche le petit carré qui te tracasses... mais il y a aussi chr$(13) (retour à la ligne qui est transparent)

donc, pour s'en sortir, il suffit de remplacer (Remplace) tous ces caractères pour chr$(10) par espace, et chr(13) par une chaine nulle (vbnullstring)...

Bon à savoir, si vous utiliser ALT+Retour, alors, il me semble, que seul chr(13) est présent... Bref, à étudier...

Merci!

[Tlem]

Difficile de dire, puisque nous n'avons pas le texte original avec les caractères à éliminer.

Éventuellement, essayez ceci :

Code : Tout sélectionner

StringReplace($ClipText,@CR,"")
ou
StringReplace($ClipText,@LF,"")

[Iste]

J'ai comme un doute, pouvez vous nous donner un exemple de code qui opère ces changements svp ?

[sylvanie]

Bonjour,
je proposerai un triple balayage e regexp :
un sur \x0a pour remplacer les retours chariot par " "
un sur toutes les valeurs de 0x00 à 0x1F pour les éliminer
un dernier sur les autres de 0x7f à FF

► Afficher le texte

Code : Tout sélectionner

#Include <Clipboard.au3>

$ClipText = _ClipBoard_GetData($CF_TEXT)
$ClipText=StringRegExpReplace($ClipText,"[\x0A]"," ")
$ClipText=StringRegExpReplace($ClipText,"[\x00-\x1F]","")
$ClipText=StringRegExpReplace($ClipText,"[\x7F-\xFF]","")
MsgBox(0, '', $ClipText) ;<--- Attention le msgbox reformat le message chez moi et met des retours chariot
ConsoleWrite($ClipText);<-- là j'ai un text sans retours de ligne


 

[martinbrait]

Merci beaucoup Sylvanie , c'était effectivement par là qu'il fallait creuser.

Pour ma part , j'ai adapté avec les 4 lignes suivantes:

Code : Tout sélectionner

$ClipText=StringRegExpReplace($ClipText,"[\x0A]",";")
$ClipText=StringRegExpReplace($ClipText,"[\x00-\x1F]","")
$ClipText=StringRegExpReplace($ClipText,"[\x7F-\xFF]","")
$ClipText=StringRegExpReplace($ClipText,"[\x00-\x20]",";")

Désormais, le presse papier se charge parfaitement, sans espaces ou autres non attendus!