[dagon81]

Приветствую.
помогите решить вопрос, бьюсь 3 день.
Есть путь к примеру C\:папка1\папка2\файл.txt
Мне нужно вывести только папка2\файл.txt
Подскажите как это правильно сделать.

[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 s: string;
 flg: boolean;
begin
 s:= 'C\:папка1\папка2\файл.txt';
 flg:= false;
 for i := Length(s) downto 1  do
  begin
   if (flg) and (s[i] = '\') then
    begin
     Edit1.Text:= Copy(s,i+1, Length(s));
     Exit;
    end;
   if s[i] = '\' then flg:= true;
  end;
end;

[NumLock]

Вырвать из строки кусок, начиная со второго обратного слеша справа.

[M.A.D.M.A.N.]

Сообщение от Alegun

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 s: string;
 flg: boolean;
begin
 s:= 'C\:папка1\папка2\файл.txt';
 flg:= false;
 for i := Length(s) downto 1  do
  begin
   if (flg) and (s[i] = '\') then
    begin
     Edit1.Text:= Copy(s,i+1, Length(s));
     Exit;
    end;
   if s[i] = '\' then flg:= true;
  end;
end;

Код:

s := "c:\folder1\folder2\file"
a := s.split(['\']);
print a[-1]
print a[-2]

-1, -2 — первый и второй элемент с конца массива.

[dagon81]

Спасибо, но не много не то, мне надо из пути к файлу убрать путь к исполняемой программе.
например
путь к исполняемой программе I:\code\project\
путь к файлу I:\code\project\Icon\1.ico и из этого пути убрать путь программы.
Надеюсь объяснил.

[Alegun]

...Надеюсь объяснил.

Стало только хуже:-)

Код:

...
s:= StringReplace(s,extractfiledir(paramstr(0)),'',[]);
...

З.Ы. Оффтоп:

Сообщение от M.A.D.M.A.N.

Код:

s := "c:\folder1\folder2\file"
a := s.split(['\']);
print a[-1]
print a[-2]

-1, -2 — первый и второй элемент с конца массива.

Mad, а поподробнее про s.split не подскажешь, мож чё не знаю, но в D7 такого у стринги нет

[NumLock]

Похоже ТС сам запутался) Тогда Copy начиная с Length строки пути к исп. файлу. 1 строчка кода будет.

[dagon81]

спасибо все попробую

[M.A.D.M.A.N.]

Сообщение от Alegun

Стало только хуже:-)

Код:

...
s:= StringReplace(s,extractfiledir(paramstr(0)),'',[]);
...

З.Ы. Оффтоп:

Mad, а поподробнее про s.split не подскажешь, мож чё не знаю, но в D7 такого у стринги нет

На входе строка, на выходе список (массив) подстрок.
"hello/world/!!!" -> ["hello", "world", "!!!"]
http://docwiki.embarcadero.com/Libra...ls.SplitString
В ХЕ* версиях встроенная ф-я в виде хелперов (расширения базовых типов).

[lmikle]

Сообщение от dagon81

Спасибо, но не много не то, мне надо из пути к файлу убрать путь к исполняемой программе.
например
путь к исполняемой программе I:\code\project\
путь к файлу I:\code\project\Icon\1.ico и из этого пути убрать путь программы.
Надеюсь объяснил.

FYI:

Код:

var
  FileName : Stirng;
  RelFileName : String;
  Idx : Integer;
begin
  FileName := 'I:\code\project\Icon\1.ico';
  Idx := Length(ExtractFilePath(ParamStr(0)));
  RelFileName := Copy(FileName,Idx+1,Length(FileName)-Idx);
end;

Вроде так.

[Alegun]

Сообщение от M.A.D.M.A.N.

На входе строка, на выходе список (массив) подстрок.
"hello/world/!!!" -> ["hello", "world", "!!!"]
http://docwiki.embarcadero.com/Libra...ls.SplitString
В ХЕ* версиях встроенная ф-я в виде хелперов (расширения базовых типов).

Спасибо за пояснение, это значит что-то типа DelimitedText в TStringList, но к сожалению, у бабульки семёрки такое отсутствует (

[NumLock]

Код:

var
  s: String;
begin
  (* s:=ExtractFilePath(Application.ExeName)+'icons\icon.txt'; *)
  s:=Copy(s, Length(ExtractFilePath(Application.ExeName))+1, MaxInt-1);

[M.A.D.M.A.N.]

Сообщение от NumLock

Код:

var
  s: String;
begin
  (* s:=ExtractFilePath(Application.ExeName)+'icons\icon.txt'; *)
  s:=Copy(s, Length(ExtractFilePath(Application.ExeName))+1, MaxInt-1);

StringReplace еще присобачить можно.
А вообще, какой-то флейм начался. Если так будет продолжаться, придётся тему закрывать.

[lmikle]

Сообщение от M.A.D.M.A.N.

StringReplace еще присобачить можно.
А вообще, какой-то флейм начался. Если так будет продолжаться, придётся тему закрывать.

Кстати, да. Причем 'да' на оба утверждения.

[Kailon]

Совсем забыли про регулярки...

Код:

uses
  RegularExpressions;
...  
function GetPartPathOfFile(PathFile: String; Psn: Byte): String;
var
  Match: TMatchCollection;
  Reg: TRegEx;
  I: Byte;
  Res: String;
begin
  Reg := TRegEx.Create('[^\\]+');
  if Reg.IsMatch(PathFile) then
    begin
      Match := Reg.Matches(PathFile, '[^\\]+', [roIgnoreCase]);
      I := Psn;
      while I <> Match.Count do
        begin
          Res := Res + Match.Item[i].Value + '\';
          Inc(I);
        end;
      Delete(Res, Length(Res), 1);
    end;
  Result := Res;
end;

Пример вызова (2-ой параметр означает с какого обратного слеша вернуть строку)

Код:

Edit1.Text := GetPartPathOfFile('C\:папка1\папка2\файл.txt', 2);