Delphi截取不确定长度的字符串

[juno_393]

 if dlgOpenPath.Execute then
  begin
    edtFilePath.Text:=Copy(ExtractFileDir(dlgOpenPath.FileName),0,Pos('课件文件',ExtractFileDir(dlgOpenPath.FileName))+7);
  end;

上面代码是获取文件所处文件夹的根目录的路径；
如一、E://课件文件/XX/XXX.mp4要获取的为E://课件文件；
二、E://课件文件(初中)/XX/XXX.mp4要获取的为E://课件文件(初中)；
之前想通过截取字符串来获取，但发现无法获取字符串长度请问要怎么获取。

[santiaodahan]

先确认一个矛盾的地方，这影响代码。你用打开文件对话框得到的是正斜杠（//）的路径吗？盘符后面是两个正斜杠吗？

[日立奔腾浪潮微软松下联想]

function GetRootPath(const Path: string): string; var Len: integer; begin Len := Pos('/', Path); if Len = 0 then Len := Length(Path) + 1; Result := Copy(Path, 1 Len - 1); end;

[juno_393]

引用 1 楼 santiaodahan 的回复:

先确认一个矛盾的地方，这影响代码。你用打开文件对话框得到的是正斜杠（//）的路径吗？盘符后面是两个正斜杠吗？

不好意思，写错了。应该是E:\

[santiaodahan]

引用 3 楼 juno_393 的回复:

[quote=引用 1 楼 santiaodahan 的回复:] 先确认一个矛盾的地方，这影响代码。你用打开文件对话框得到的是正斜杠（//）的路径吗？盘符后面是两个正斜杠吗？

不好意思，写错了。应该是E:\[/quote]

uses StrUtils;
Copy(strPath,0, PosEx('\', strPath, 4)-1);

这应该是最简洁的写法。复杂文本截取可以用正则表达式。

[santiaodahan]

引用 2 楼 DelphiGuy 的回复:

function GetRootPath(const Path: string): string; var Len: integer; begin Len := Pos('/', Path); if Len = 0 then Len := Length(Path) + 1; Result := Copy(Path, 1 Len - 1); end;

这样只会得到盘符，而不是第一层目录。

[juno_393]

引用 2 楼 DelphiGuy 的回复:

function GetRootPath(const Path: string): string; var Len: integer; begin Len := Pos('/', Path); if Len = 0 then Len := Length(Path) + 1; Result := Copy(Path, 1 Len - 1); end;

这个是获取的文件的完整路径啊。我要获取的是盘符+根目录

[日立奔腾浪潮微软松下联想]

引用 6 楼 juno_393 的回复:

[quote=引用 2 楼 DelphiGuy 的回复:] function GetRootPath(const Path: string): string; var Len: integer; begin Len := Pos('/', Path); if Len = 0 then Len := Length(Path) + 1; Result := Copy(Path, 1 Len - 1); end;

这个是获取的文件的完整路径啊。我要获取的是盘符+根目录[/quote] 呃，确实有问题，这样就好了： function GetRootPath(const Path: string): string; var Len: integer; begin Len := PosEx('\', Path, Pos(':\', Path) + 2); if Len = 0 then Len := Length(path) + 1; Result := Copy(Path, 1, Len - 1); end; 注意文件全路径是E:\课件文件(初中)\XX\XXX.mp4这种形式，没有两个\。否则用Pos(':\\', Path)

[juno_393]

谢谢两位大神了。

[santiaodahan]

Copy(strPath, 1, 3)+Copy(strPath,4, Pos('\', Copy(strPath, 4, Length(strPath)-3))-1); 也可以这样，它的优势是少引用一个单元。