Das deutsche QBasic- und FreeBASIC-Forum

[Eternal_pain]

Hi,

gibt es eine moeglich keit mit INSTR den letzten Teil eines Strings zu finden?

Also als Beispiel:

[dreael]

In VBScript gäbe es dafür extra InStrRev(), in FreeBasic scheint es dies gemäss

http://www.freebasic.de/Referenz.php?zeig=tuts&col1=a0d5d0&ref=yes&index=I

nicht zu geben. => Am besten halt selber eine Ersatz-FUNCTION für InStrRev() schreiben.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[Eternal_pain]

habe das Problem mit einer Do/Loop schleife loesen koennen,
die solange von der zuletzt gespeicherte Position abfragt ob der String noch einmal vorhanden ist und dann die letzte gespeicherte zurueck liefert...
_________________

[Mao]

Sonst auch der Code auf FreeBasic-Portal von Jojo.
_________________
Eine handvoll Glück reicht nie für zwei.
--

[Jojo]

Genau, da hättest du doch als erstes suchen müssen
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[Eternal_pain]

Hatte ich wirklich uebersehen
Waere genau das richtige gewesen...
_________________

[Eternal_pain]

um das hier mal als geloest festzuhalten

InStrRev (verbessert)
und
InstrRev - Umgedrehtes Instr
_________________

[Jojo]

Hm, in VB ist StartPos per definitionem -1, wenn 's nicht angegeben ist und nicht 0, aber ich zwinge dich nicht, das zu ändern
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[Eternal_pain]

Ich habe es vom prinzip wie das original "Instr" gemacht, wenn eine 0 position gibt es nicht und 0 ist wiederum gleichbedeutend mit nichts gefunden, was auch eine If/Then frage vereinfacht....
denn waere das ergebnis -1 waere es True bei null ist es False
somit kann ich eine einfache If InStrRev .... Then ohne besondere Abfrage machen
_________________

[ytwinky]

Wenn die Länge vom Ersatz-String größer als die Länge vom Such-String ist, liefert Instr(SuchString, ErsatzString) sowieso 0, also brauchst du das in der Function nicht zu prüfen, spart ein wenig Zeit..
Gruß
ytwinky
_________________