StringRegExp

Nachid

Guten Tag,

ich hab ein kleines Problem mit der Funktion. Hab sie noch nie verwendet und mir jetzt schon diverse Tutorials dazu angeschaut. Ich werd daraus aber nicht schlau

[autoit]

#include "array.au3"
$test = " <NO NAME> REG_SZ C:\Programme\Adobe\Reader 8.0\Reader"
;$test = " EULA REG_DWORD 0x1"
$ex = StringRegExp($test,"[A-Za-z0-9_\ \\\<\>\:]+",3)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ex = ' & $ex & @crlf & '>Error code: ' & @extended & @crlf) ;### Debug Console
_ArrayDisplay($ex)[0]

[/autoit]

das ist mein AutoIt Code. Natürlich nur als "test.au3" - auszug aus einem größeren Programm.

Hintergrund :

Ich erwarte verschiedene REG Werte. Z.B.

ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
ServiceControl REG_SZ 501
DEU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
<NO NAME> REG_SZ
ReinstallMode REG_SZ omus
Path REG_SZ C:\Programme\Adobe\Reader 8.0\
InstallTime REG_SZ 08:11:37
InstallDate REG_SZ 22.11.2011

es giebt aber auch "fehlerhafte" einträge ohnewert :

<NO NAME> REG_SZ

meine frage nun : Wie verwende ich diesen Befehl richtig ? Ich dreh durch .....

Mfg

Nachid

name22

Jetzt fehlt aber noch etas.. Was willst du eigentlich machen? Du hast nur geschrieben welche Daten vorliegen und dass du den Befehl nicht verstehst.

Nachid

Das ding in nen array packen. Also auftrennen.

Name
REGBLABLA
Wert

so dachte ich das.

name22

Und der vorliegende String sieht wie aus? Sind die einzelnen Einträge durch Zeilenumbrüche getrennt, oder einfach aneinander gereiht? Welche Einträge willst du auslesen, welche nicht?

Nachid

Ja ich will den RegEx einfach wie im beispiel mit einer Zeile füttern. Was für Zeilen er bekommt steht in den Beispielen drunter. Tut mir leid wen das nicht sofort ersichtlich ist.

name22

Also so?

[autoit]

#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

$sReg = "ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}"
$aSplit = StringRegExp($sReg, "([^ ]+) ([^ ]+) (.+)", 3)
_ArrayDisplay($aSplit)

[/autoit]

black_skorpi

name22: Wie im Beispiel kann als erster Wert ja noch "<NO NAME>" kommen, aber dafür sollte eine simple Abfrage über StringInStr() reichen, um das zu ermitteln.
Sonst wirds ja recht kompliziert, das alles in einen "Filter" zu stecken.

MfG black_skorpi

Nachid

1. Problem - Die Sind mit TAB getrennt.
2. Problem es geht nicht mit den <>
(sonderzeichen sind zu erwarten, alle)

und ich versteh den befehl immernoch nicht xD naja aber das is 2. rangig.
Wenns niemand hinbekommt muss ich mich wohl oder übel selbst drum kümmern.
Ich werde dann meine lösung hier posten.

black_skorpi

Das mit den TAB's ist ganz einfach.
Einfach die Leerzeichen durch

Code

\s

ersetzen, die am besten durch die sogenanntern "Wiederholungszeichen" (Quantifizer) absichern.
Das sähe dann so aus:

[autoit]

#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

$sReg = "ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}"
If StringInStr($sReg, "<NO NAME>") Then ; Ausnahmefall für NO NAME
$aSplit = StringRegExp($sReg, "([^ ]+)\s+([^ ]+)\s+(.+)", 3)
_ArrayDisplay($aSplit)

[/autoit]

Wenn das wirklich in einem Durchgang passieren soll, muss man schon tief in die Trickkiste greifen, um das zu schaffen.
Edit: Damit meinte ich den Ausnahmefall "<NO NAME>".

BinDannMalWeg

Hmm?

[autoit]

#cs
ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
ServiceControl REG_SZ 501
DEU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
<NO NAME> REG_SZ
ReinstallMode REG_SZ omus
Path REG_SZ C:\Programme\Adobe\Reader 8.0\
InstallTime REG_SZ 08:11:37
InstallDate REG_SZ 22.11.2011
#ce
#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

$sRegRead = "ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}"

[/autoit][autoit][/autoit][autoit]

$aResult = StringRegExp($sRegRead, "(<NO NAME>|.+)\s(REG_\w+)\s(.*)", 3)
_ArrayDisplay($aResult)

[/autoit]

name22

Zitat

1. Problem - Die Sind mit TAB getrennt.

Das erzählst du jetzt? Deswegen habe ich doch vorhin extra gefragt wie die getrennt sind :pinch: .

Zitat

2. Problem es geht nicht mit den <>
(sonderzeichen sind zu erwarten, alle)

Sonderzeichen werden erwartet, alle. Ein RegExp "." unterscheidet nicht zwischen "normalen" und "Sonderzeichen", du musst also etwas genauer werden wenn etwas nicht so läuft wie du es dir vorstellst.

black_skorpi

@Crhistopf
Klar, und ich will es mit konditionalen Pattern machen. Fail.
Aber um das Beispiel aus dem ersten Post noch einzuschließen:

[autoit]

#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

$sRegRead = " <NO NAME> REG_SZ C:\Programme\Adobe\Reader 8.0\Reader"

[/autoit][autoit][/autoit][autoit]

$aResult = StringRegExp(StringRegExpReplace($sRegRead, "\s+(.*)", "$1"), "(<NO NAME>|.+)\s(REG_\w+)\s(.*)", 3)
_ArrayDisplay($aResult)

[/autoit]

Als Pattern an sich will es bei mir einfach nicht funktionieren, ich gebs auf. Alles trollt :pinch:

Nachid

Ihr habt euch ja mächtig angestrengt :DD
Danke dafür
Ich denke ich kann ein paar eurer beispiele gut verwerten

Danke euch vielmals

so nach ein bisschen try & error kam das raus :

[autoit]

f StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)\t(.+)",3)<>1 Or StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)",3)<>1 Then
$ex = StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)\t(.+)",3)
If $ex=1 Then $ex = StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)",3)
For $i=0 To UBound($ex,1)-1
$ex[$i] = StringStripCR(StringStripWS($ex[$i],3))
Next
_ArrayDisplay($ex)

[/autoit]