StringRegExp General Help

[guinness]

Here is an error I found in your workaround

That's correct, I don't want any reference of $j in the nested loops as I want to create a list of variables in the function, plus that's bad coding practice using $j in that way.

I will have a look at your implementation. Thanks.

[czardas]

Do you wish to remove variables used as the iteration count in a For Loop, but also appearing outside the loop? If so, do you intend to ignore variables explicitly declared outside the For loop? What do you intend to do if a global is used as the loop iteration count variable - assuming people will do stuff like this?

Edited March 16, 2013 by czardas

[guinness]

Do you wish to remove variables initiated in a For Loop, but also appearing outside the loop?

No, if people use them outside the For loop then that's their issue. I'm trying to improve the exporting feature of SciTE Jump. Same goes for those who declare Global variables in a function.

[czardas]

My point is how do you intend to differentiate between Local $i and Global $i when faced with just the function? I don't mean to be picky, I'm just trying to understand exactly what you want to do.

Edited March 16, 2013 by czardas

[guinness]

Ah, I strip all functions first and then capture '$vVar =' instances to an array.

[czardas]

Ah, I strip all functions first and then capture '$vVar =' instances to an array.

Hmm ok. What about something like this? - strange as it is!

Global $i

ModifyGlobal()

Func ModifyGlobal()
    Local $iStop = 10
    For $i = $i To $iStop Step 2
        ConsoleWrite($i & @LF)
    Next
    ;$i = ""
EndFunc

Another more likely scenario to consider (if you haven't done so already) is variables assigned ByRef. You don't find the string '$gvNotAssigned =' in the following example:

Global $gvNotAssigned

_Assign($gvNotAssigned)

Func _Assign(ByRef $var)
    $var = 1
EndFunc

I'm just offering some thoughts on the subject. I imagine you will have considered this.

Edited March 16, 2013 by czardas

[FireFox]

I'm trying to make a regexp to only match valid numbers.

;pattern:
;-?(\d?[.,])?\d+

;my explanation:
;-?                 ;match a hypen (may not may not appear)
;(\d?[.,])        ;match any digit (may not may not appear) plus dot or comma.
;\d+               ;match any digit plus any length

The problem is that it matches when I set more than one hypen, dot or comma; I have tried this pattern: "-?{1}" without any success.

;e.g :
;--0.5 ;not good
;-0..5 ;not good
;-0.5 ;ok
;0.5 ;ok
;.5   ;ok
;,555 ;ok

Thanks for anyhelp.

Br, FireFox.

Edited March 19, 2013 by FireFox

[Melba23]

FireFox,

This script limiting an input to valid numbers should help:

#include <WindowsConstants.au3>
#include <EditConstants.au3>

Global $iDecimal = 2

GUICreate("Input Filter", 300, 30, -1, -1)
Global $inTest = GUICtrlCreateInput("", 5, 5, 290)
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
GUISetState(@SW_SHOW)

While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd

Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)

    Local $iIDFrom = BitAND($wParam, 0xFFFF);LoWord
    Local $iCode = BitShift($wParam, 16) ;HiWord

    If $iIDFrom = $inTest And $iCode = $EN_CHANGE Then

        $Read_Input = GUICtrlRead($inTest)
        If StringRegExp($Read_Input, '[^\d.-]|([{0-9,1}^\A-])[^\d.]') Then $Read_Input = StringRegExpReplace($Read_Input, '[^\d.-]|([{0-9,1}^\A-])[^\d.]', '\1')
        $Point1 = StringInStr($Read_Input, ".", 0)
        $Point2 = StringInStr($Read_Input, ".", 0, 2)
        If $Point2 <> 0 Then $Read_Input = StringLeft($Read_Input, $Point2 - 1)
        If $Point1 <> 0 Then $Read_Input = StringLeft($Read_Input, $Point1 + $iDecimal)
        GUICtrlSetData($inTest, $Read_Input)

    EndIf

EndFunc   ;==>_WM_COMMAND

M23

[FireFox]

@Melba23

Ouch. This one is very tricky, I was expecting a regexp test.

Thank you anyway I will use that except if someone offers better.

Br, FireFox.

[iamtheky]

if those are the only potential pitfalls in your usage can you just check for those and then proceed if unmatched?

If stringregexp($num , "(--|\.\.|,,)") Then
msgbox (0, '' , "invalid number")
else

Edited March 19, 2013 by boththose

[FireFox]

@boththose

Yep why not. I will take a look at this. thanks.

Br, FireFox.

[AZJIO]

FireFox

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

$hGui = GUICreate('Только число', 220, 180)
$iInput = GUICtrlCreateInput('', 10, 10, 200, 20, -1, $WS_EX_STATICEDGE)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
    Local $nNotifyCode, $nID, $sText, $iInput0
    $nNotifyCode = BitShift($iwParam, 16)
    $nID = BitAND($iwParam, 0xFFFF)
    Switch $hWnd
        Case $hGui
            Switch $nID
                Case $iInput
                    Switch $nNotifyCode
                        Case $EN_CHANGE
                            $iInput0 = GUICtrlRead($iInput)
                            ; $sText = StringRegExp($iInput0, '(\d+(\.(\d+)?)?)', 2)
                            ; $sText = StringRegExp($iInput0, '(-?(\d+([.,](\d+)?)?)?)', 2)
                            $sText = StringRegExp($iInput0, '([.,](\d+)?)|(-?(\d+([.,](\d+)?)?)?)', 2)
                            If @error Then
                                GUICtrlSetData($iInput, '')
                            Else
                                If $iInput0 <> $sText[0] Then GUICtrlSetData($iInput, $sText[0])
                            EndIf
                    EndSwitch
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Edited March 19, 2013 by AZJIO

[FireFox]

@AZJIO

Great ! I wasn't so far Thanks

Br, FireFox.

Edited March 19, 2013 by FireFox

[PhoenixXL]

The WM_COMMAND code is borrowed from that of AZJIO

The regex code is easy. You can easily decode it. If you are not aware then look for LookBehind here

Supports

• International number system that is three numbers after which there should be a comma.
• The number cannot have comma succeeding a decimal
• There should be three numbers before the decimal, with the exception if the number has no comma or is starting with a decimal.
• The start could either be by a "-" or "digit" or "." or ","

I was just wondering if you needed a delemiter support[like SPACE] so that it could support multiple numbers ?

Hope it fits your requirement. Please mention if something has to be modified

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

$hGui = GUICreate('?????? ?????', 220, 180)
$iInput = GUICtrlCreateInput('', 10, 10, 200, 20, -1, $WS_EX_STATICEDGE)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
If $ilParam <> GUICtrlGetHandle($iInput) Then Return $GUI_RUNDEFMSG
Local $nNotifyCode, $nID, $sText
$nNotifyCode = BitShift($iwParam, 16)
Static $spText = ''

Switch $nNotifyCode
Case $EN_CHANGE
$sText = GUICtrlRead($iInput)
If Not StringRegExp($sText, '^(-)?(\d*\.\d*|(\d{1,3}|^)(?:,\d{0,3})+(?:(?<=\d{3})\.\d*)?|\d*)$') Then
GUICtrlSetData($iInput, $spText)
Else
$spText = $sText
EndIf
EndSwitch

Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND

Regards Edited March 20, 2013 by PhoenixXL

[Melba23]

PhoenixXL,

Very nice.

I have been trying (and failing ) to incorporate a limit to the digits permitted after the decimal point. I am thinking of currency values where there can be only 2 or 3 "pence/cents" digits. Any chance you can put me out of my misery?

M23

[PhoenixXL]

@M23

Here we go

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

$iMaxDecimalCount = 2;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Here it is

$hGui = GUICreate('?????? ?????', 220, 180)
$iInput = GUICtrlCreateInput('', 10, 10, 200, 20, -1, $WS_EX_STATICEDGE)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
If $ilParam <> GUICtrlGetHandle($iInput) Then Return $GUI_RUNDEFMSG
Local $nNotifyCode, $nID, $sText
$nNotifyCode = BitShift($iwParam, 16)
Static $spText = ''

Switch $nNotifyCode
Case $EN_CHANGE
$sText = GUICtrlRead($iInput)
If Not StringRegExp($sText, '^(-)?(\d*\.\d{0,' & $iMaxDecimalCount & '}|(\d{1,3}|^)(?:,\d{0,3})+(?:(?<=\d{3})\.\d{0,' & $iMaxDecimalCount & '})?|\d*)$') Then
GUICtrlSetData($iInput, $spText)
Else
$spText = $sText
EndIf
EndSwitch

Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Regards

[Melba23]

PhoenixXL,

Thanks. I can see where I was going wrong now - close but no cigar.

M23

[FireFox]

@PhoenixXL

Thank you for your example, however this is a special input that does not match international number system.

I'm back for another regexp :

I would like to match any variable name declared in a script, this is what I've tried so far :

#include <Array.au3>

$s = "Local $toto = 'toto', $tata = 'tata' _" & @CrLf & @TAB & @TAB & "$titi = 'titi', $tutu = 'tutu'"

$a = StringRegExp($s, "(?s)(?:Local|Global)(\s?\$\w+)(,\s?\$\w+)", 3)

_ArrayDisplay($a)

;success output :
;[0] = $toto
;[1] = $tata
;[2] = $titi
;[3] = $tutu

As PhoenixXL said to me, it's not possible to match two things and I don't know if it's the case here to match a variable name after the declaration scope and the variables after each comma.

This pattern is not complete as it should match splitted lines, the tab characters may not appear depending on the tidy.

I promise, when I will have some time to spare I will learn the regexp thanks to your links

Edited March 20, 2013 by FireFox

[AZJIO]

FireFox,

Yesterday I tried to solve a similar problem

The number of variables is unknown. If you make a loop in the SRE, then it returns the last group. You need two SRE. The first cuts the content area with variables. The second looks for variables in a specified area

[FireFox]

@AZJIO

I have tried the patterns from your link but they are not working for my test var. To be honest I'm lost with what you said.