Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

[Sir Rufo]

Ich habe da mal einen möglichen Ablauf aufgeschrieben ...

Code:

// Beispiel-Daten
SubStr ist "test"  // Länge 4
SuchStr ist "Dieses ist nur zum testen gedacht!" // Länge 34

// Das Ergebnis ist erst mal 0
Ergebnis = 0

Durchlaufen von 1 bis {Länge SuchStr=34} - {Länge SubStr=4} + 1 // also bis 31
  TempStr = Hole {Länge SubStr} Zeichen von SuchStr ab der aktuellen Position
  Wenn TempStr = SubStr Dann
    Ergebnis = Aktuelle Position
    Durchlaufen abbrechen