التعامل مع النصوص

[cargem]

كيف اقطع هذا السطر
"htm";"http://exodus.googlecode.com/svn/trunk/docs/presence.html"
بحيث يكون هكذا

PHP كود :

1-   Str1=  /svn/trunk/docs/presence.html
2-   Str2= /svn/trunk/docs/ 


علما ان هناك اكثر من الف سطر

PHP كود :

T :=0;
    Sname := Dfile.Strings[33];
    Bname :=Sname;
    Sname := SearchAndReplace(Sname, '/', '\');
    LenFname := Length(Sname);
    for i := 1 to LenFname do
    begin
      nPos := Pos('\', Sname[i]);

      if nPos > 0 then
      begin // Length(OpenDialog1.FileName) - nPos Length(OpenDialog1.FileName)
        T := T + nPos;

        if T > 2 then

        begin
          swebF := Copy(Bname, i, LenFname - 1);
          Break;
        end ;
        Delete(Sname, i, LenFname);
        Insert('/', Sname, i);
          nPos :=0;
      end;
    end;