InStr -Suche mit mehreren Kriterien

[Meister Lampe]

Hallo zusammen!

Zuerst wünsche ich allen in der Community nochmal ein Gutes Neues Jahr!

Dann zu meinem Anliegen:
Ich hadere gerade mit der If InStr-Funktion. Es geht darum, eine Zeichenfolge zu trennen, falls darin spezifische Trennzeichen enthalten sind.
Beispiel:

Code: Select all

If InStr(Zeichenkette, "_")
      {Split ...
}
else
...

Das trennt die Zeichenkette beim Unterstrich, falls einer existiert. Analog funktioniert das mit dem Bindestrich. Ich möchte jetzt aber trennen, falls ein Unterstrich oder ein Bindestrich vorhanden ist. Ich denke, ich muß dazu keine weitere If-Anweisung einbauen und kann das bei dem InStr() in die Klammer setzen. Ich habe das mal ohne Erfolg versucht, aber die beiden Zeichen als Trennkriterien vermutlich dort falsch verknüpft.
Wie also mache ich das korrekt?

Viele Grüße von Meister Lampe

[KruschenZ]

Frohes Neues Jahr

Ich würde es nun spontan mit

Code: Select all

StrSplit()

machen.

Schau mal hier:
https://ahkde.github.io/docs/v1/lib/StrSplit.htm

Viele Grüße

[just me]

Moin und auch für Dich ein gutes neues Jahr!

Ich denke, ich muß dazu keine weitere If-Anweisung einbauen und kann das bei dem InStr() in die Klammer setzen. Ich habe das mal ohne Erfolg versucht, aber die beiden Zeichen als Trennkriterien vermutlich dort falsch verknüpft.

Was in der Doku zu InStr() hat Dich auf diese Idee gebracht?

Wenn Du die Zeichenfolge beim Vorkommen bestimmter Zeichen auftrennen willst, könnte @KruschenZs Vorschlag tun, was Du willst.

[garry]

evtl so

Code: Select all

xx :="This-is- a_test-with_followed - many words"
arr:=strsplit(xx,["-","_"])
tot:=arr.maxindex()
loop,%tot%
  {
  xx:=Arr[a_index]
  if (xx="")
    continue
  xx=%xx%
  e .= xx . "`r`n"
  }
msgbox,%e%
ExitApp

[Meister Lampe]

Hallo!

Vielen Dank für Eure Empfehlungen. Allerdings ist das noch nicht das, was ich mir eigentlich vorgestellt hatte. Mir geht es je darum, erstmal zu wissen, ob die Trennzeichen - oder _ überhaupt in der Zeichenkette enthalten sind, denn mit Zeichenketten, wo diese sich nicht darin befinden, wird anders verfahren. Deshalb das If InStr() noch vor dem StrSplit(). Eigentlich handelt es sich um eine Negation, also If !InStr() , aber ich wollte erstmal grundsätzlich wissen, ob das überhaupt geht. Es werden also die Strings, die weder das eine, noch das andere Trennzeichen enthalten, zuerst abgearbeitet.

@ justme:
Inspirieren lassen habe ich mich insbesondere an den vielen Optionen, bei den RegEx-Funktionen unterschiedliche und eben auch mehrere zu suchende Zeichen einzugeben. Allerdings steht dort zwar, wie man einzelne alphanumerische Zeichen und auch den Unterstrich angeben kann, nicht aber den Bindestrich als Zeichen, weil der selber dort eine eigene Funktion für die Aufzählung hat.
Und dann hatte ich eben herumexperimentiert und analog wie garry es gepostet hat versucht:

Code: Select all

If !InStr(Zeichenkette, ["-","_"])

Das hat aber auch nichts gebracht.

Viele Grüße von Meister Lampe

[flyingDman]

Code: Select all

var := "Zuerst-wünsche ich allen_in der Community-nochmal ein_Gutes Neues Jahr!"
if instr(var,"-") or instr(var,"_")
	{
	for x,y in strsplit(var,["_","-"])
		lst .= y "`n"
	msgbox lst
	}
else
	msgbox "nein - oder _"

oder

Code: Select all

if (z := strsplit(var,["_","-"])).length > 1
	{
	for x,y in z
		lst .= y "`n"
	msgbox lst
	}
else
	msgbox "nein - oder _"

[just me]

@flyingDman, I'm pretty sure he's still using v1 / Ich bin ziemlich sicher, dass er noch v1 nutz!

@Meister Lampe,
Du kannst nicht einfach die Syntax einer anderen Funktion auf InStr() anwenden. Der 2. Parameter von InStr() ist laut Doku "Die Zeichenkette, nach der gesucht werden soll.", d.h. eine Zeichenkette und kein Array.

Wie flyingDman zeigt, kannst Du Dein Problem durch zwei oder mehr InStr() Aufrufe lösen.
Alternativ kannst Du unbedingt splitten (SplitArray := StrSplit(var, ["_","-"])) und danach prüfen, ob die Anzahl der Elemente in SplitArray > 1 ist: SplitArray.Length() > 1 (wenn nicht, wurden die Zeichen nicht gefunden).
Wenn Du die mehrfachen InStr() Aufrufe nicht willst, bleibt noch RegExMatch() oder dessen Kurzform:

Code: Select all

If (DeineVariable ~= "-|_") {
	(Split)

[Meister Lampe]

Hallo zusammen!

Ich habe das Problem jetzt - zumindest vorläufig - ganz anders gelöst, indem ich die Bindestriche erstmal durch Unterstriche ersetzen lasse.

Code: Select all

 Zeichenkette := StrReplace(Zeichenkette, "-", "_")
        If !InStr(Zeichenkette, "_")

Das beinhaltet zwar noch nicht die Option, die Namen dann auch unterschiedlich wiederherzustellen, indem zwischen den Trennzeichen unterschieden wird, aber in den meisten Fällen ist das wohl nicht nötig.
Aber irgendwann bekomme ich das auch noch hin.

Vielen Dank und viele Grüße von Meister Lampe

[Meister Lampe]

Hallo!

Ich habe noch eine ähnliche Frage zum selben Script, die sich ebenfalls mit der If InSrt() -Funktion beschäftigt. Im Tutorial sind alle möglichen optionalen Werte aufgeführt, die man einfügen kann, um die Such- oder die Ausgabekriterien fetzulegen. Ich habe allerdings noch nicht herausbekommen, wie ich ganz konkret ein Zeichen an einem bestimmen Platz in der Zeichenkette (für den konkreten Fall wäre beträfe es das erste Zeichen) überprüfen kann. Ich möchte herausbekommen, ob das erste Zeiche einer beliebig langen Zeichenkette ein Buchstabe ist und dort eine Entscheidung einbauen.
Kann ich das mit If InStr() oder muß ich dafür wieder auf RedEx zurückgreifen? Welche Optionen müßte ich dann dort eintargen?

Viele Grüße von Meister Lampe

[flyingDman]

Code: Select all

str := "a111111"
var := substr(str,1,1)
if var is alpha
	msgbox % var " ist ein Buchstabe"
else
	msgbox % var " ist kein Buchstabe"

oder

Code: Select all

str := "a111111"
msgbox % str ~= "[a-zA-Z]" = 1 ? "Buchstabe" : "kein Buchstabe"

[Rohwedder]

Hallo,
auch für äÄüÜöÖßẞ geeignet:

Code: Select all

str := "ẞ111111"
msgbox % str ~= "(*UCP)^[[:alpha:]]" ? "Buchstabe" : "kein Buchstabe"

[just me]

Moin @Rohwedder,

auch für äÄüÜöÖßẞ geeignet

Ist mir entgangen, dass mit irgendeiner Rechtschreibreform ein Großbuchstabe ẞ eingeführt wurde?

[gregster]

Ja, den gibt's inzwischen offiziell - seit 2017. Zum Beispiel für Majuskelschrift oder Kapitälchen nützlich.

[just me]

@gregster, danke. Dass ich das noch erleben durfte ...