StringSplit Anything except one thing ?

[Guest]

$test = StringSplit($text, "?")

in the "?" (delimiters - One or more characters to use as delimiters (case sensitive).) i want to Write something that is every thing except one thing i do not want to remove in the split.

How to do it?

[Melba23]

gil900,

Sounds like a RegEx might do the trick. Can you give us an example of the string you want to split and what character you do not want to act as a delimiter?

M23

[Guest]

I have a beautiful example for line:

af_+s  jsd ad   test1 cax >> { [ =0 test1 cxxw test2 &60 8{] ~@3 43( - test2

I want to delete everything except from test1 or something else that i will add..

in the loop, It will return $Value[$i].

Each $Value[$i] are the same thing. But for example, if in the line there is three times of "test1" Then in the final phase, $i will return 3.

[Melba23]

gil900,

This does it for me:

#include <Array.au3>

$sString = "af_+s  jsd ad   test1 cax >> { [ =0 test1 cxxw test2 &60 8{] ~@3 43( - test2"

$aRet = StringRegExp($sString, "test1", 3)

_ArrayDisplay($aRet, "Total = " & UBound($aRet))

or something else that i will add

And what might that be? It should be easy enough to add to the SRE pattern.

M23

[Guest]

thanks i will chack your code.

I just want to fix a few things I've said.

I do not want to delete anything in this line. I just need basic code that will return me the number of the "test1" (how many times it is in the line.)

For example, if I have in the line example 10 times of test1, then the code will return me the number 10.

The example I gave is not correct enough.

This is the new example:

nacergeadtest1cueafetest1kfaaxcutest1vjjaegoogle.comavnd

the code Should return 3

[BrewManNH]

You could do something simple like $array = StringSplit(<your string>, "test1") and then $array[0] would tell you how many times it found "test1".

[Guest]

What you gave me is great.

I am a little change the code to use only what it returns.

Thank you!

[Bowmore]

The code Melba23 gave you basically gave you what you were looking for. I've rearranged that into a little generic function for you.

_StringCountInString(ByRef $sData, $sFind)

Func _StringCountInString(ByRef $sData, $sFind)
Local $aRet = StringRegExp($sData, $sFind, 3)
Return UBound($aRet)
EndFunc

Example of how to use it

$sString = "af_+s jsd ad test1 cax >> { [ =0 test1 cxxw test2 &60 8{] ~@3 43( - test2"

$iCount = _StringCountInString($sString, "test1")
MsgBox(0,"Count",$iCount)

$iCount = _StringCountInString($sString, "test2")
MsgBox(0,"Count",$iCount)

$iCount = _StringCountInString($sString, "test")
MsgBox(0,"Count",$iCount)

Func _StringCountInString(ByRef $sData, $sFind)
Local $aRet = StringRegExp($sData, $sFind, 3)
Return UBound($aRet)
EndFunc

Edited August 19, 2012 by Bowmore

[Melba23]

BrewManNH,

Sorry to point it out, but your StringSplit code gives the number of instances plus 1.

M23

[BrewManNH]

Good point...didn't think it through all the way.

[Guest]

Thanks but I prefer what BrewManNH gave me.

I'm not the kind of person who likes to use codes are completely ready.

Because for me, it will take more time to adjust them to my code.

And I hate doing things without understanding them. I'm afraid to depend too much on the forum.

Edited August 19, 2012 by Guest

[Guest]

gil900,

This does it for me:

#include <Array.au3>

$sString = "af_+s jsd ad test1 cax >> { [ =0 test1 cxxw test2 &60 8{] ~@3 43( - test2"

$aRet = StringRegExp($sString, "test1", 3)

_ArrayDisplay($aRet, "Total = " & UBound($aRet))

And what might that be? It should be easy enough to add to the SRE pattern.

M23

OK

Now I did another test.

It turns out that it can not find a few cases.

for example,

if my line Contains - "test"

and i Looking for "Test"

so it didnt found Because the letter - T

I looked in the Help file. I saw something with [:class:]

but I could not understand how to use it.

What to do?

Edited August 21, 2012 by Guest

[Melba23]

gil900,

If you look closer at the Help file you will see this:

(?i) Case-insensitivity flag

Then you can do this:

#include <Array.au3>

$sString = "af_+s jsd ad test1 cax >> { [ =0 Test1 cxxw test2 &60 8{] ~@3 43( - test2"

$aRet = StringRegExp($sString, "(?i)test1", 3)

_ArrayDisplay($aRet, "Total = " & UBound($aRet))

M23

[Guest]

Thank you!

I missed it because my English

[Spiff59]

This yields the same result but appears to be a lot faster:

#include <Array.au3>
$sString = "af_+s jsd ad test1 cax >> { [ =0 Test1 cxxw test2 &60 8{] ~@3 43( - test1"

;--------------------------------------------------
$timer = TimerInit()
For $x = 1 to 100000
    $cnt = Count1()
Next
$timer = TimerDiff($timer) / 1000
MsgBox(0, Round($timer, 2), $cnt)

;--------------------------------------------------
$timer = TimerInit()
For $x = 1 to 100000
    $cnt = Count2()
Next
$timer = TimerDiff($timer) / 1000
MsgBox(0, Round($timer, 2), $cnt)

;--------------------------------------------------
Func Count1()
    $aRet = StringRegExp($sString, "(?i)test1", 3)
    Return UBound($aRet)
EndFunc

;--------------------------------------------------
Func Count2()
    StringReplace($sString, "test1", "")
    Return @extended
EndFunc