Another RegExp-Problem mit der Chords-UDF

L3viathan

Also, nun geht es darum, Akkorde im Text zu finden. Heißt:
Text:

Code

Es war Bb7 , sollte aber C sein. Ohne zweifel G#m und Fm .

Ich will jetzt im Array haben: Bb7, C, G#m, Fm.
Ich finde aber bei meinem momentanen Pattern

Code

([A-G](#|b){0,1}m{0,1}\d*(/[A-G]){0,1})

auch noch E (wegen Es war...), und seltsamerweise auch b und #.
Das erste Problem (mit dem E) liegt daran, dass er E als Akkord erkennt und ignoriert, dass danach noch ein Buchstabe kommt... Müsste man dann vielleicht ans Pattern anhängen: "[\A-Za-z]" ? Bei mir klappt das jedenfalls nicht. Weshalb er die anderen beiden Zeichen erkennt, leuchtet mir nicht ein.

Könnt ihr mir helfen?

SEuBo

[autoit]

#include <Array.au3>
$string = "Es war Bb7 , sollte aber C sein. Ohne zweifel G#m und Fm ."
$aTmp = StringRegExp($string,"\b(?:[A-G](?:#|b)?m?\d*[^\w ]?\b)",3)
_ArrayDisplay($aTmp)

[/autoit]

L3viathan

WOW, danke

L3viathan

Jetzt nur noch: Wie mache ich da ein Replace? Ich kenne StringRegExpReplace, aber ich möchte die Akkorde transponieren. Dazu habe ich eine funktionierende Funktion namens _ChordTranspose($sChord,$iHalfTones)
Nur wie binde ich das jetzt ein? (Ich kann nicht einfach StringReplace nutzen, da dann ja Akkorde doppelt transponiert werden könnten...)

SEuBo

Okey; Verständnissfrage:
"Es war Bb7 , sollte aber C sein. Ohne zweifel G#m und Fm ."
Bb7, C, G#m, Fm sollen gefunden werden.
Wodurch soll ersetzt werden, bzw wie muss die Funktion _ChordTranspose aufgerufen werden?
Bb7 -> _ChordTranspose("B",7) ?
aber wie dann bei G#m oder Fm?

L3viathan

Zitat

Bb7 -> _ChordTranspose("B",7) ?

Nein.
Bb7 -> _ChordTranspose("A7",1).
Aber dieses Problem hier ist einigermaßen gelöst, ich komme nur hier absolut nicht weiter:
https://autoit.de/index.php?page=Thread&threadID=17085