StringRegExp Check

[YunoSubs]

Hallo com,

da StringexBuddy leider etwas kostet und meine Testversion abgelaufen ist habe ich mir nun selbst so eine Art Programm mittels AutoIt geschrieben. Nun wollte ich es hier mit euch teilen:
Datei im Anhang
Der Download beinhaltet das Programm.

Sourcecode:

 Spoiler

#include <GuiConstants.au3>
#include <EditConstants.au3>
GUICreate("StringRegExp",500,400,-1,-1)
$String = GUICtrlCreateEdit("Your String",0,100,500,100)
$Pattern = GUICtrlCreateEdit("Your Pattern",0,0,500,100)
$Found = GUICtrlCreateEdit("",0,200,500,100)
$hGenerate = GUICtrlCreateButton("Generate AutoIT Code",0,300,200,20)
$hCode = GUICtrlCreateEdit("",0,320,300,80)
$hFlag = GUICtrlCreateInput("Flag",210,300,100,20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1,4,0)
GUISetState()

$sString = GUICtrlRead($String)
$sPattern = GUICtrlRead($Pattern)
$sFlag = GUICtrlRead($hFlag)
$sFound = GUICtrlRead($Found)

While 1
	If $sString <> GUICtrlRead($String) Then
		_StringRegExp(GUICtrlRead($String),GUICtrlRead($Pattern),GUICtrlRead($hFlag))
		$sString = GUICtrlRead($String)
	EndIf
	
	If $sPattern <> GUICtrlRead($Pattern) Then
		_StringRegExp(GUICtrlRead($String),GUICtrlRead($Pattern),GUICtrlRead($hFlag))
		$sPattern = GUICtrlRead($Pattern)
	EndIf
	
	If $sFlag <> GUICtrlRead($hFlag) Then
		_StringRegExp(GUICtrlRead($String),GUICtrlRead($Pattern),GUICtrlRead($hFlag))
		$sFlag = GUICtrlRead($hFlag)
	EndIf
	
	$msg = GUIGetMsg()
	Select
	Case $msg = $hGenerate
		$gString = StringReplace(GuiCtrlRead($String),@CRLF,'" & @CRLF _' & @CRLF & @TAB & @TAB & '& "')
		$gPattern = StringReplace(GuiCtrlRead($Pattern),@CRLF,'')
		GUICtrlSetData($hCode,'#include <Array.au3>' & @CRLF & '$sString = "' & $gString & '"' & @CRLF _
							& '$aArray = StringRegExp($sString,"' & $gPattern & _
							'",' & GUICtrlRead($hFlag) & ')' & @CRLF & '_ArrayDisplay($aArray)')
	Case $msg = $GUI_EVENT_CLOSE
		Exit
	EndSelect
WEnd

Func _StringRegExp($String,$Pattern,$Flag)
	$sFounded = "Result:" & @CRLF
	GUICtrlSetData($Found,"")
	$aRegExp = StringRegExp($String,$Pattern,$Flag)
	If StringInStr($Pattern,@CRLF) = 0 Then
	If IsArray($aRegExp) Then
		For $i = 0 To UBound($aRegExp)-1
			If $Flag = 4 Then
				$aRegExp[$i] = $i & ". FULL_ARRAY"
				$sFounded = $sFounded & $aRegExp[$i] & @CRLF
			Else
				$sFounded = $sFounded & $aRegExp[$i] & @CRLF
			EndIf
			GUICtrlSetData($Found,$sFounded)
		Next
	EndIf
	EndIf
EndFunc

Mfg
Shawn Spencer

[lolkop]

wie wärs wenn du einfach den code postest?

willst du das nicht, das hänge die compilierte exe an dein script an und verlinke das ganze nicht extern

[YunoSubs]

Originally Posted by lolkop

wie wärs wenn du einfach den code postest?

willst du das nicht, das hänge die compilierte exe an dein script an und verlinke das ganze nicht extern

Tut mir leid aber ich verstehe den 2ten Satz nicht ganz ich werde den Code reinedititeren ;o

[lolkop]

sry ich meinte du solltest dein compiliertes script lieber an den post anhängen als ihn extern zu verlinken =)

[YunoSubs]

Originally Posted by lolkop

sry ich meinte du solltest dein compiliertes script lieber an den post anhängen als ihn extern zu verlinken =)

Okay, habe ich nun im Anhang hinzugefügt ;O

[lolkop]

würde als verbesserung noch vorschlagen, das du beim flag 4 das ergebnis-array mit unterarrays ausgibst =)

[YunoSubs]

Originally Posted by lolkop

würde als verbesserung noch vorschlagen, das du beim flag 4 das ergebnis-array mit unterarrays ausgibst =)

Habs geändert, fals er ein Ergebnis findet gibt er den Wert FULL_ARRAY aus