String

[Kappa]

Hey,

I have a problem to pick the strings in a file. I know that you have to use StringRegExp, but I can not figure out how. Here's an example: DOC;NO;BIG

As you can see, the constant is a string followed by two dots. Do you have any advice, please?

Kappa.

[Melba23]

Kappa,

Welcome to the AutoIt forum.

What exactly are you trying to extract from the "DOC;NO;BIG" strain? If it is "NO" then the _StringBetween function should be able to help you.

M23

[Kappa]

Thanks for the welcome.

I would like to extract "DOC", "NO" and "BIG". So any string before and after the colon.

[Melba23]

Kappa,

If the delimiter is always ";" then you can do that very easily with StringSplit:

#include <Array.au3>

$sString = "DOC;NO;BIG"

$aSplit = StringSplit($sString, ";")

_ArrayDisplay($aSplit)

M23

[Kappa]

Thanks, but, not knowing how many strings are there before and after the colon, I can not use that command for the way I want (or at least I think). That was an example, if you want I can find myself in this situation:

DOC;NO

or

DOC;NO;BIG;LOG

or

DOC

The most that I could do is this:

#include <Array.au3>
$String = "DOC;NO;BIG"
$Split = StringSplit($String, ";")
For $Element In $Split
   MsgBox(0, "", "Result is: " & @CRLF & $Element)
Next

But there are two problems:

1. also takes $Split[0]

2. does not include the last case (only a word without anything else)

[Jos]

Not sure what you mean with item 2 but this shows the entries:

$String = "DOC;NO;BIG"
$Split = StringSplit($String, ";")
For $x = 1 to UBound($Split)-1
   ConsoleWrite($Split[$x] & @crlf) ;### Debug Console
Next

Jos

[Kappa]

Thanks Jos. Adapting your example I solved it. Thanks also to Melba23!

[UEZ]

Try this:

#include <Array.au3>
$sText = "DOC;NO;BIG;LOG"
$aResult = StringSplitter($sText)
_ArrayDisplay($aResult)

$sText = "DOC"
$aResult = StringSplitter($sText)
_ArrayDisplay($aResult)

$sText = "DOC;NO;"
$aResult = StringSplitter($sText)
_ArrayDisplay($aResult)

Func StringSplitter($sString, $sDelimiter = ";", $bRemoveLastDelim = True)
    If $sString = "" Then Return 0
    If $bRemoveLastDelim And StringRight($sString, 1) = $sDelimiter Then $sString = StringTrimRight($sString, 1)
    Local $aTokens = StringSplit($sString, $sDelimiter, 2)
    If Not @error Then Return $aTokens
    Local $aToken[1]
    $aToken[0] = $sString
    Return $aToken
EndFunc

Br,

UEZ

[Kappa]

Thanks to you too, UEZ.

[PhoenixXL]

I know that you have to use StringRegExp,

Indeed a Simple Example

; Splits through a SEMI-COLON (;)
#include <Array.au3>
$sInput = 'DOC;NO;BIG;'
$sOutput_Array = StringRegExp($sInput, '([^;]+)', 3)
_ArrayDisplay( $sOutput_Array )

[Kappa]

Nice. Very thanks.