RegularExpression

[Andreas21]

Code: Alles auswählen

If CreateRegularExpression(0, "/[\[*\]]/")

  Dim Result$(0)
  string.s = "713	2011-09-25 19:59:49 temp [abc] irgentwas [def]."
  a = ExtractRegularExpression(0, string, result$())
  
  MessageRequester("Info", "Nb strings found: "+Str(a))
  
  For k=0 To a-1
    Debug Result$(k)
  Next

Else
  MessageRequester("Error", RegularExpressionError())
EndIf

In PHP leuft es ohne Probleme.
In PB bekomme ich nicht den inhalt der zwichen [ und ] steht.
Den fehler find ich leider nicht.
Auch die Forum Suche hat mir nicht geholfen.

[STARGÅTE]

Die regulären Ausdrücke werden in PB etwas anders definiert.

In CreateRegularExpression() brauchst du keine Delimiter angeben.
Somit reicht: "[\[*\]]"

allerdings finde ich die Suche etwas komisch, denn du suchst hier nach Ausdrücken die eines der zeichen: [ * ] enthalten ...
und nicht nach dem Inhalt

So wäre die Suche nach dem Inhalt:

Code: Alles auswählen

If CreateRegularExpression(0, "(?<=\[)[^\]]*(?=\])")

  Dim Result$(0)
  string.s = "713   2011-09-25 19:59:49 temp [abc] irgentwas [def]."
  a = ExtractRegularExpression(0, string, result$())
  
  MessageRequester("Info", "Nb strings found: "+Str(a))
  
  For k=0 To a-1
    Debug Result$(k)
  Next

Else
  MessageRequester("Error", RegularExpressionError())
EndIf