StringRegExpReplace

[motormad]

I have to compare numbers of 2 dtabases.

The input of the numbers is not correct done.

So i have to split them before i can compare.

Ill excplain the format of the numbers.

There can be 7 to 8 digits before the '/'

After the slash there are always 4 numbers.

Now comes the trikky part.

If there are 7 numbers on the left side the person who inputs somtimes uses tha 'space bar' and sometimes the right arrow.

So the number can be

1234567/0100

or

1234567_/0100

I think i have to use 'StringRegExpReplace'

sombody cares to help me ? :-)

[Melba23]

motormad,

I would try this:

Global $aData[3] = ["1234567/0100", _
             "12345678/0100", _
             "1234567 /0100"]

For $i = 0 To 2
    ConsoleWrite(StringRegExpReplace($aData[$i], "(?U)(\d*)(?:\s?)/(\d{4})", "$1/$2") & @CRLF)
Next

Explanation:

(?U)      = not greedy
(\d*)     = a number of digits (as small as possible because of the above)
(?:\s?)   = a possible space (in a non-capturing group)
/         = literal /
(\d{4})   = 4 digits

All clear?

M23

[motormad]

Realy mate... i do not understan a thing about it.

But it almost works for me.

1234567/0010 => 1234567/0010

1234567_/0100 => 1234567_/0100

1234567 /0100 => 1234567/0100

So i only neef the 1234567_/0100 to become 1234567/0100

Ill try to get it tomorrow.

thanx for your help (so fast )

Edited February 23, 2011 by motormad

[Melba23]

motormad,

My apologies, I thought the underscore was to only there to show that there was a space. All that is needed to fix that is this slightly changed version:

ConsoleWrite(StringRegExpReplace($aData[$i], "(?U)(\d*)(?:[\s|_]?)/(\d{4})", "$1/$2") & @CRLF)

The only change is in here (?:[\s|_]?) where we look for either a space or underscore, neither of which might be present.

M23

[motormad]

Thanx Melba23 :-)

I got a new Question

I like to search in an array.

I got your code to get the correct format

I put the string in variable $a

But in the array are also wrong formats.

If there are correct formats in the array then this code would work.

func ExsIsts($WOenTAAK)
ConsoleWrite('_ArraySearch : ' & $WOenTAAK & @CRLF)
local $iIndex
local $sColumn
$sColumn = 4
$iIndex = _ArraySearch($AR_ACCES1, $a, 0, 0, 0, 1, 1, $sColumn)
return $iIndex
If @error Then Exit
    return 0

endfunc

but if

$a = 1234567/0100

and in column 4 is string 1234567_/0100

then the return would be 0 because 1234567/0100 <> 1234567_/0100

Edited February 24, 2011 by motormad

[GEOSoft]

$iVal = StringRegExpReplace($iVal, "[\h_]*", "")

@M23

When using a group "[******]" you don't need the pipe (OR). It is assumed and actually the pipe could throw it off.

Incorrect = [\d|_]*

Correct = [\d_]* ; Matches 0 or more of either \d or _

[Melba23]

George,

Thanks.

M23

[GEOSoft]

NP, I'm just glad to see you still trying.

[motormad]

Damn people your fast.

I think of going to solve my problem like this

func ExsIsts22($WOenTAAK)
local $rows
local $i
$rows = UBound($aWO_Nr)
$i = 1
Do
if  $WOenTAAK=StringRegExpReplace($aWO_Nr[$i], "(?U)(\d*)(?:[\s|_]?)/(\d{4})", "$1/$2")Then
    msgbox " its a match"
endif


    $i = $i + 1
Until $i = $rows
endfunc

[GEOSoft]

That will do it but primarily all you are going to replace is a horizontal space or an underscore with a blank string so you don't have to worry about any other characters at all. Just replace the ones you don't want (\h and _) and that's what the expression I gave you will do. Pretty simple and straight forward.

[motormad]

GEOSoft

I'm getting it but...

What if my problem is this :

10 has to be 0010

5 has to be 0001

800 => 0800

etc ...

Mabe its not the StringRegExpReplace i have to use for this problem ?

[motormad]

$i_input_len = StringLen($aArray[$A][2])

    If $i_input_len=1 Then
        $aArray[$A][2]=$aArray[$A][1] & "/000" & $aArray[$A][2]
    elseIf $i_input_len=2 Then
        $aArray[$A][2]=$aArray[$A][1] & "/00" & $aArray[$A][2]
    elseIf $i_input_len=3 Then
        $aArray[$A][2]=$aArray[$A][1] & "/0" & $aArray[$A][2]
    Else
        $aArray[$A][2] = $aArray[$A][1] & "/" & $aArray[$A][2]
    endif

        $aReturn[$A-1] = $aArray[$A][2]

I think it can be done shorter

But this works for me :-)

12345678 and 10 => 12345678/0010

but 12345678 & "/" & 10 is 12345678/10

Edited February 28, 2011 by motormad

[GEOSoft]

GEOSoft

I'm getting it but...

What if my problem is this :

10 has to be 0010

5 has to be 0001

800 => 0800

etc ...

Mabe its not the StringRegExpReplace i have to use for this problem ?

See StringFormat() in the help file. You may also want to use a RegExp before or after using the StringRegExpReplace()