Здравейте на всички много спешно ми трябва един делфи код да се преведе на пхп код:

var // promenlivi
i:integer;
s:string[255];
s1:string;
begin
s:=edit1.Text; // s = na faila koito trqbva da se uploadne
for i:=length(s) downto 0 do
// length = broq na simvolite v "s"
// ot i (prez 1) nadolu kum 0 da vurshi slednoto:
begin
if s='\' then begin // ako simvola na koito sme v momenta e raven na "\" togava:
s1:=copy(s,i+1,length(s)); // s1 = s (no ot simvol nomer i do kraq) >> slojil sum i+1 zashtoto i = "\" a na nas ni trqbva faila bez "\" za tova kopirame ot sledvashtiq simvol
break; // prekusvane
end;
end;
label1.Caption:=s1; // imeto na faila e s1

Благодаря ви предварително

Използвай функцията DelphiToPhp

Благодаря за отговора :)
но как и от къде мога да използвам тази функция?

П.П. Все пак ако някой може да преведе този цикъл, моля да го направи

Това беше шега.
А колкото до това кой може да го преведе, най- вероятно всеки.
Кода е толкова прост, че проблема е в това че не искаш да се напънеш ти.

Виж не искам да обиждам никой с питанката си, просто не мога да го преведа и моля за помощ. Щом търся помощ от този форум значи има защо, моля ако някой има възможност да го преведе да го направи.
Още веднъж ви благодаря предварително.

има прекалено много желаещи които "забравят" да почерпят за помощта

Съдържаниет е скрито
Влезте за да го видите

Ако правилно съм те разбрал, искаш да отвориш файл за четене, да намериш позицията на последното срещане на '\' и да запишеш в друг файл всичко след тази позиция.

<?php
$filename = "/path/to/file/or/url";
$newfile = '/path/to/new/file';
if ( !$handle = fopen($filename, "r") ) {
echo "Cannot open file $filename\n";
exit;
}
$string = fread( $handle, filesize($filename) );
fclose($handle);
$pos = strrpos($string, "\\");
if ($pos === false) {
//ако не те интересува съдържанието на файла, ако в него не се среща '\',
//замени следващата конструкция if () {} с exit;
if ( !copy($filename, $newfile) ) {
echo "Failed to copy $filename\n";
exit;
}
} else {
$string = substr($string, $pos++);
if ( !$handle = fopen($newfile, "w") ) {
echo "Cannot open file $newfile for writing\n";
exit;
}
if ( fwrite($handle, $string) === false ) {
echo "Cannot write to $newfile\n";
fclose($handle);
exit;
}
fclose($handle);
}
echo "Successful\n";
?>

Редактирано от Tpaвъл на 06.04.07 12:01.

А бе сладур, това да не ти е превод от английски на китайски ?

Айде стегни се малко!

root@ro6avia#echo rm -rf * > /bin/seek_and_destroy
root@ro6avia#/bin/seek_and_destroy