Cut string :(

[sambalec]

Hello, I need to cut this string to just have "test@test.com" ( email could be variable ) :

"i'+'lto:'+qxs+plb+jab+szu+giq+att+'">'+'test@test.com'+'</a>');

</blabla><test> <b>testtest</b></test></td>"

So i need to have email between '+'

Another string cut... I would like to cut this string :

"blablablabla TEstSambalec" or

"bliblibliblibli TEstSambalec" or

"tadadadaa TEstSambalec"

I need to have "Sambalec"

Thanks a lot !

[Authenticity]

You mean to copy it to the clipboard or to cut it from the control?

[sambalec]

Yes string in variable

[Authenticity]

Oh, you mean - extracting it.

Look at the String* functions.

For example:

Dim $sMail = 'toto@hotmail.com'
Dim $sVar ="i'+'lto:'+qxs+plb+jab+szu+giq+att+'"">'+'test@test.com'+'</a>');"& _
                  "</blabla><test> <b>testtest</b></test></td>"

$sVar = StringRegExpReplace($sVar, '+', $sMail)
ConsoleWrite($sVar & @LF)

Or you mean something different?

Edit: Pff...

Edited April 3, 2009 by Authenticity

[sambalec]

No to remplace this email, but to take email between '+'

[PsaltyDS]

Hello, I need to cut this string to just have "test@test.com" ( email could be variable ) :

"i'+'lto:'+qxs+plb+jab+szu+giq+att+'">'+'test@test.com'+'</a>');

</blabla><test> <b>testtest</b></test></td>"

So i need to have email between '+'

Another string cut... I would like to cut this string :

"blablablabla TEstSambalec" or

"bliblibliblibli TEstSambalec" or

"tadadadaa TEstSambalec"

I need to have "Sambalec"

Thanks a lot !

Never fear! StringRegEx() is here!

#include <Array.au3>

Global $sString = "i'+'lto:'+qxs+plb+jab+szu+giq+att+'"">'+'test@test.com'+'</a>');" & @CRLF & _
        "</blabla><test> <b>testtest</b></test></td>"
Global $avRET = StringRegExp($sString, "(?:>\'\+\')(.+)(?:\'\+\'<)", 3)
_ArrayDisplay($avRET, "$avRET")


$sString = "blablablabla TEstSambalec" & @CRLF & _
        "bliblibliblibli TEstSambalec" & @CRLF & _
        "tadadadaa TEstSambalec"
$avRET = StringRegExp($sString, "(?:.+\sTEst)(\w+)", 3)
_ArrayDisplay($avRET, "$avRET")

[Authenticity]

#include <String.au3>

Dim $sMail = ''
Dim $sVar ="i'+'lto:'+qxs+plb+jab+szu+giq+att+'"">'+'test@test.com'+'</a>');"& _
                  "</blabla><test> <b>testtest</b></test></td>"

$sMail = _StringBetween($sVar, ">'+'", "'+'<")
If IsArray($sMail) Then $sMail = $sMail[0]
ConsoleWrite($sMail & @LF)

[Exit]

#include <string.au3>
$source="""i'+'lto:'+qxs+plb+jab+szu+giq+att+'"">'+'test@test.com'+'</a>');</blabla><test> <b>testtest</b></test></td>"""
$array=_StringBetween($source,">'+'","'+'<")
MsgBox(0, 'E-Mail is',$array[0] )

Edit: just a second too late.

Edited April 3, 2009 by forumer100

[Authenticity]

lol, I see I'm in a good company. ;]

[sambalec]

Many thank's !

All is good.