Buchstaben in Wort lokalisieren {gelöst}

[lassma-asma]

Moin Leute ...

ich brauche einen Code um die Stellen an denen ein String in einem 2. string vorkommt herauszukriegen ...
auch wenn es mehrere stellen gibt

z.B Dampfschiff
string f in string dampfschiff kommt an den stellen 5 ,10 ,11 raus

Danke schonma lassma-asma

[Bisonte]

ganz banal =

Code: Alles auswählen

Procedure LetterFinder(String.s,Suchstring.s)

For i=1 To Len(String)

If Mid(String,i,1)=Suchstring
  Debug "Position = "+Str(i)
EndIf

Next i

EndProcedure

LetterFinder("Dampfschiff","f")

Wäre natürlich ausbaufähig wegen Gross/Kleinschreibung, eine Linklist , damit das Ergebnis mehrfach sein kann ... und und und

[edel]

Da kann man auch gleich Findstring nutzen

Code: Alles auswählen

  pos = 0
  s.s = "Dampfschiff"
  n.s = "f"
  
  Repeat
    pos = FindString(s,n,pos+1)
    
    If pos
      Debug pos
    EndIf 
    
  Until pos = 0  

[Bisonte]

oder das...
Ich sah die frage und sah mich den code wie in trance tippern
Da hab ich nicht wirklich nachgedacht wie soll ich sagen ...
intuitiv gefühlt ....

[lassma-asma]

jo danke ihr beiden ...

is genial unn so ziemlich genau das was is suchte ...

Gruß lassma-asma