Ein Zeichen im String$

[Tsuki-Namida]

Hallo,
ich schon wieder -.-

und zwar habe ich in einem String$ ein bestimmtes Zeichen Mehr mals aber ich muss das vorletze finden... die anzahl ist un bestimmt wie sie in diesem String$ vorkommen können...

hier ein beispiel das was ich finden muss ist markiert...

A/B/X/OderSo/und das/unddies/

da ich den letzten teil rauslöschen muss... in dem Beispiel wäre das "unddies/"

[Andesdaf]

So kannst du das letzte Zeichen in einem String finden:

Code: Alles auswählen

Procedure.l FindLastString(String$,StringToFind$)
  
  Protected Find.l = 0
  Repeat
    Protected NeuePos.l = FindString(String$,StringToFind$,Find+1)
    If NeuePos = 0
      Break
    EndIf
    Find = NeuePos
  ForEver
  ProcedureReturn Find
EndProcedure

Einfach das gefundene bis zum Ende weglöschen und die Prozedur noch einmal ausführen.

[STARGÅTE]

du könnten mit Tricks arbeiten:

Erst alle / zu \ machen und dann mit GetPathPart(DateiPfad$) vor-Verzeichnis ermitteln und dann wieder zurück schreiben:

A/B/X/OderSo/und das/unddies/
A\B\X\OderSo\und das\
A/B/X/OderSo/und das/

[Tsuki-Namida]

suuuper das geht ja mal perfeckt xD

ich habe mehr arbeit erwartet
vielen, vielen dank euch allen

ich habe das jetzt so geregelt:

Code: Alles auswählen

    String$ = "A/B/C/D/E/F/und/so/weiter/" ;String füllen
    String$ = ReplaceString(String$, "/" ,"\") ;Alle "/" und "\" ändern
    String$ = Mid(String$, 1, Len(String$) - 1) ;Das letzte "\" entvernen
    String$ = GetPathPart(String$) ;Das letzte Verzechnis entvernen
    String$ = ReplaceString(String$, "\" ,"/"); Alle "\" zurück in "/" ändern
    Debug String$ ;Debug Ausgabe zur überprüfung