StringRegExp General Help

[GMK]

$s = "?t1=toto&t2=titi&t3=tyty&t4=tutu"
ConsoleWrite($s & " --> ")
;if I want to remove t1, t3 & t4 the result will be :
;?t2=titi
;note that the "?" need to stay, whereas the "&" needs to be removed.
$s = StringRegExpReplace($s, "(&?t[^2]=w*&?)", "")
ConsoleWrite($s & @CRLF)

Edited December 20, 2012 by GMK

[FireFox]

@GMK

Thanks, the tnumber= was just an example. But I will be able to edit the pattern to do what I want.

Br, FireFox.

[FireFox]

One last thing, the ampersand of the param is deleted including the next one.

e.g :

$s = "?t1=toto&t2=titi&t3=tyty&t4=tutu"

$s = StringRegExpReplace($s, "(&?t[2|3]=w*&?)", "")
;will output "?t1=totot4=tutu" instead of "?t1=totot&t4=tutu"

Thanks for anyhelp.

Edited December 21, 2012 by FireFox

[PhoenixXL]

Please mention the keypoints very clearly

$s = "?t1=toto&t2=titi&t3=tyty&t4=tutu"

$s = StringRegExpReplace($s, "(t[13]=\w*&?)", "")
;"?t1=totot&t4=tutu"
;will output "?t1=totot4=tutu" instead of "?t1=totot&t4=tutu"

;Strip Ending ampersand [comes across when for example 2 and 4 is deleted]
$s = StringRegExpReplace ( $s, '(?m)&(r|n|$)' , '' )

ConsoleWrite($s & @CR)

Edited December 21, 2012 by PhoenixXL

[FireFox]

Please mention the keypoints very clearly

Sorry, but actually it's what I wanted. Thanks!

I'm now trying to match the value of a parameter, but it can end by a new line (so I won't use the _StringBetween func)

I have tried many things without success, here what I have for the moment :

$s = "?t1=toto&t2=titi&t3=tyty&t4=tutu"

$s = StringRegExp($s, "(&?(t2)=w*&??)", 1)

ConsoleWrite($s[0] & @CR)
;output: &t2=titi

As you can see the parameter &t2 is still there and I would like to remove it.

Thanks for anyhelp.

Br, FireFox.

Edited December 21, 2012 by FireFox

[jdelaney]

If you already split the params, why not logically concatenate them back together?

Edited December 21, 2012 by jdelaney

[FireFox]

If you already split the params, why not logically concatenate them back together?

Of course I would be able to do it with String* functions, but I will take more lines.

[PhoenixXL]

Example

#include <Array.au3>
$s = "?t1=toto&t2=titi&t3=tyty&t4=tutu"

$s = StringRegExp($s, "(?:t[13]=)(\w*&?)", 3)
If Not IsArray($s) Then Exit -1
;The value of the first and third is displayed in this example

;Strip Ending ampersand [comes across when for example 2 and 4 is deleted]
For $i = 0 To UBound($s) - 1
$s[$i] = StringRegExpReplace($s[$i], '(?m)(&)(r|n|$)', '\2')
Next

_ArrayDisplay( $s )

Thumbs up if it helps

Edited December 21, 2012 by PhoenixXL

[FireFox]

Thumbs up if it helps

Yes thanks! I really want to understand regexp but there is plenty of possibilities that I fail everytime

[PhoenixXL]

This one is Pure RegEx without Replacements

#include <Array.au3>
$s = "?t1=toto&t2=titi&t3=tyty&t4=tutu"

$s = StringRegExp($s, "(?:t[13]=)(\w*)(?:&|)", 3)
If Not IsArray($s) Then Exit -1
;The value of the first and third is displayed in this example

_ArrayDisplay( $s )

Edited December 21, 2012 by PhoenixXL

[PhoenixXL]

Help

;Note that special characters do not retain their special meanings inside a set,
;with the exception of \\, \^, \-,\[ and \] match the escaped character inside a set.
MsgBox ( 0 , 0 , Test ( 'a' & @CRLF & 'b' ) )
Func Test($sString )
;How come CRLF are replaced ???
Return StringRegExpReplace( $sString, '[\r\n]', '')
EndFunc

[Melba23]

PhoenixXL,

Why do you expect @CRLF not to be replaced? You are asking for any @CR or @LF to be removed - @CRLF is just the 2 one ofter the other.

Or is it the that is confusing you? As "r" and "n" are not "special characters" the "#" retains its meaning within the set.

Does that help?

M23

[PhoenixXL]

Note that special characters do not retain their special meanings inside a set

This statement confused me

thanks got it clear now

Edited December 22, 2012 by PhoenixXL

[PhoenixXL]

Simple But yet Confusing Need Help[solved]

; Aim....: To delete every single vowel in a word
; - Exception : if the first and last alphabets are vowel ignore them


Local $sString = 'rejuvenation'

Local $sPattern = '(?i)([^aeiou])' & _ ; (First Group) Match the starting of the Word with a Non-Vowel.
'([aeiou])([^aeiou])' ; (Second group) Matching the Vowel and the following single Non-Vowel.

Local $aRegEx = ''

;Set Extended for the Initiation
SetExtended(1)
While @extended
$aRegEx = StringRegExpReplace($sString, $sPattern, '\1\3', 1)
;Assign the New String
$sString = $aRegEx
WEnd

MsgBox ( 64, 'Return', $aRegEx )

Edited December 23, 2012 by PhoenixXL

[jchd]

Regarding the post about rn inside character class, you might have confused with R which, as the doc says, does not retain its special meaning.

[PhoenixXL]

R which, as the doc says, does not retain its special meaning.

Which doc are you referring to ?

[guinness]

Well the help file doesn't mention this.

[jchd]

I always mean the official documentation found on the PCRE site.

[guinness]

I should really compare the two and see what is missing.

[FireFox]

Hi,

I'm stuck with a simple regexp, however it does not work.

I have an url, and I want to extract the file name from it, so it will strip the caracters until the last slash and will stop from that until a query "?" or a fragment "#"

This is what I've done so far :

Local $s = "", $a = 0

$s = "http://www.example.com/path/?toto#fragment"

;~ $a = StringRegExp($s, "/([^/]*$)", 1) ;1st part, works
;~ $a = StringRegExp($s, "(.*?)[#|\?]", 1) ;2nd part, works

$a = StringRegExp($s, "/([^/]*$)[#|\?]", 1) ;both: does not work.

ConsoleWrite($a[0] & @crlf)

Thanks for anyhelp.

Br, FireFox.

Edited March 14, 2013 by FireFox