Suchen eines Strings in einem String
Verfasst: Do 22. Nov 2018, 14:56
Hallo,
bei strcomp(@Str1, @Str2) sind beide Strings gleichlang und haben die gleiche Zeichenfolge.
Ich suche aber so was:
pos := strcomp(@Str1, @Str2)
Der String @Str2 wurde an Position n in @Str1 gefunden.
gibt es da was? Ich denke da muss ich was machen.
Aus disen Teilen müsste sich was machen lassen
bei strcomp(@Str1, @Str2) sind beide Strings gleichlang und haben die gleiche Zeichenfolge.
Ich suche aber so was:
pos := strcomp(@Str1, @Str2)
Der String @Str2 wurde an Position n in @Str1 gefunden.
gibt es da was? Ich denke da muss ich was machen.
Aus disen Teilen müsste sich was machen lassen
Code: Alles auswählen
''PRI os_cmdinput | charc 'sys: stringeingabe eine zeile
''funktionsgruppe : sys
''funktion : stringeingabe eine zeile
''eingabe : -
''ausgabe : -
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
....
tibpos := 0 'tibposition auf anfang setzen <<== in INNI
....
repeat until (charc := com.rxcheck) == $0D 'Serielle daten einlesen bis return <<=======
if (tibpos + 1) < OS_TIBLEN 'zeile noch nicht zu lang?
tib[tibpos++] := charc 'zeichen speichern
tib[tibpos] := 0 'string abschließen
''PRI os_cmdint 'sys: kommandointerpreter
''funktionsgruppe : sys
''funktion : kommandointerpreter; zeichenkette ab tibpos wird als kommando interpretiert
'' : tibpos wird auf position hinter token gesetzt
''eingabe : -
''ausgabe : -
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
if tib[tibpos]
repeat 'kommandostring kopieren
cmdstr[tibpos] := tib[tibpos]
tibpos++
until (tib[tibpos] == ios#CHAR_SPACE) or (tib[tibpos] == 0) 'wiederholen bis leerzeichen oder stringende
cmdstr[tibpos] := 0 'kommandostring abschließen
tibpos := 0 'tastaturpuffer zurücksetzen
tib[0] := 0
''PRI os_cmdexec(stradr) 'sys: kommando ausführen
{{os_smdexec - das kommando im übergebenen string wird als kommando interpretiert
stradr: adresse einer stringvariable die ein kommando enthält}}
if strcomp(@cmdstr,@cmd14) 'mkdir - verzeichnis erstellen
....
elseif strcomp(@cmdstr,@cmd15) 'rename - datei/verzeichnis umbenennen
....
elseif strcomp(@cmdstr,@cmd16) 'format - sd-card formatieren
....
DAT ''------------------------------------------------- Kommandostrings
cmd14 byte "mkdir",0
cmd15 byte "rename",0
cmd16 byte "format",0
