Page 1 sur 1

[R] StringRegExpReplace

Posté : dim. 28 avr. 2019 00:12
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.

Re: [..] StringRegExpReplace

Posté : dim. 28 avr. 2019 10:51
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)

Re: [..] StringRegExpReplace

Posté : dim. 28 avr. 2019 11:26
par mdanielm
; Tout supprimer avant la 1ere majuscule
$regex = "^([^A-Z]*)"
$txt = "<b>Bonjour"
$txt = StringRegExpReplace($txt, $regex, "")
msgbox(0,"",$txt)
 

Re: [..] StringRegExpReplace

Posté : dim. 28 avr. 2019 13:00
par Boulanza
Merci infiniment mdanielm,
ça marche parfaitement.
Cordialement.