[R] StringRegExpReplace

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Boulanza
Niveau 9
Niveau 9
Messages : 697
Enregistré le : mer. 31 juil. 2013 15:49
Status : Hors ligne

[R] StringRegExpReplace

#1

Message par Boulanza »

Bonjour,
J'ai un souci avec StringRegExpReplace pour supprimer tous les caractères qui se trouvent à gauche de la première lettre écrite en majuscule.
Exemple: <\b>MA c.à.d il faut que je supprime <\b>
Merci pour votre aide.
Cordialement.
Modifié en dernier par Boulanza le dim. 28 avr. 2019 13:01, modifié 1 fois.
Boulanza
Niveau 9
Niveau 9
Messages : 697
Enregistré le : mer. 31 juil. 2013 15:49
Status : Hors ligne

Re: [..] StringRegExpReplace

#2

Message par Boulanza »

Bonjour,
Ce code représente une solution provisoire pour mon problème, notamment lorsque
la suppuration est limitée aux caractères <b>$sCountry = StringSplit($texte, "<b>", 1). Il devient caduque
lorsque les caractères sont différents que <b> par exemple: "<\g>" ou autres. C'est pour cela j'ai sollicité votre aide pour modifier le code ci-joint afin de supprimer tous les caractères qui se trouvent à gauche de la première lettre écrite en majuscule:<b>MA, <\c>FR... (code pays 2 lettres)
Cordialement.
#include <Inet.au3>

$sSource = _INetGetSource("http://ip2country.hackers.lv")
$sCountry = StringStripWS(StringRegExpReplace($sSource, "(?i)(?s).*?country code (.*?) <img src=.*?$", "\1"), 3)
$sImage_File = StringRegExpReplace($sSource, '(?i)(?s).*?country code.*?<img src="(.*?)".*?$', '\1')
MsgBox(0,"Avant la supprétion <b>",$sCountry)

$texte = $sCountry
$sCountry = StringSplit($texte, "<b>", 1)
$sCountry = $sCountry[$sCountry[0]]
MsgBox(0,"Après la supprétion <b>",$sCountry)
;ConsoleWrite($MotDePasse1 & @CRLF)
mdanielm
Membre émérite
Membre émérite
Messages : 254
Enregistré le : mer. 11 déc. 2013 19:48
Status : Hors ligne

Re: [..] StringRegExpReplace

#3

Message par mdanielm »

; Tout supprimer avant la 1ere majuscule
$regex = "^([^A-Z]*)"
$txt = "<b>Bonjour"
$txt = StringRegExpReplace($txt, $regex, "")
msgbox(0,"",$txt)
 
Boulanza
Niveau 9
Niveau 9
Messages : 697
Enregistré le : mer. 31 juil. 2013 15:49
Status : Hors ligne

Re: [..] StringRegExpReplace

#4

Message par Boulanza »

Merci infiniment mdanielm,
ça marche parfaitement.
Cordialement.
Répondre