Mal wieder Delphi nach PHP Probleme

[timog]

Code:

<?php

  $alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
  $ss = "DFECDFR12345";

  $s1 = $alphabet;
  
  echo $ss."<br>\n";
  echo $s1."<br>\n";

  for ($i = 0; $i < strlen($ss); $i++) {
    $x = strpos($s1, $ss[$i]);
    echo $ss[$i] . " an " . $x . ". Stelle <br>\n";
    if ($x > -1) {                                 
      // s1 = Copy(s1, 1, x - 1) + Copy(s1, x + 1, Length(s1));
      $s1 = substr($s1, 0, ($x)) . substr($s1, ($x + 1), strlen($s1)); // Bedeutung von start und length bei null indizierten Strings bedenken; negativer start parameter nimmt string von rechts 
    }
    echo "$i) ". $s1 . "<br>\n";
  }
  
  echo $s1." (PHP)<br>ABGHIJKLMNOPQSTUVWXYZ06789 (Pascal)\n";
  
?>

[DieDolly]

Das Ergebnis ist leider nicht das, was mir Delphi ausgibt.
Ignorier das. Copy und Paste Fehler meinerseits. Irgendwas hatte die Zwischenablage zerhauen.

[Redeemer]

Zitat von timog:

Code:

<?php

  $alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
  $ss = "DFECDFR12345";

  $s1 = $alphabet;
  
  echo $ss."<br>\n";
  echo $s1."<br>\n";

  for ($i = 0; $i < strlen($ss); $i++) {
    $x = strpos($s1, $ss[$i]);
    echo $ss[$i] . " an " . $x . ". Stelle <br>\n";
    if ($x > -1) {                                 
      // s1 = Copy(s1, 1, x - 1) + Copy(s1, x + 1, Length(s1));
      $s1 = substr($s1, 0, ($x)) . substr($s1, ($x + 1), strlen($s1)); // Bedeutung von start und length bei null indizierten Strings bedenken; negativer start parameter nimmt string von rechts 
    }
    echo "$i) ". $s1 . "<br>\n";
  }
  
  echo $s1." (PHP)<br>ABGHIJKLMNOPQSTUVWXYZ06789 (Pascal)\n";
  
?>

Der gesamte obige Beitrag in einer Zeile:

Code:

$s1 = preg_replace('/[DFECDFR12345]/', '', $ss);