如何从右边截取某段字符

Question

比如:
我有一个路径C:\Documents and Settings\Administrator\My Documents\a.txt
我要得取a.txt的文件名,请问如何取得我试过用rightstr(str,place)取得,但出现错误

Answer 1

Copy(SourceString, 1, Length(SourceString) - 4));
或
LeftStr(SourceString, Length(SourceString) - 4));

Answer 2

昏，不用这样啊，你用ExtractFileName函数就行了。

Answer 3

[Error] NoteBook.pas(138): Undeclared identifier: 'rightstr'

Answer 4

回二楼
a.txt这个文件名的长度是不确定的
可能是abc.txt

Answer 5

ExtractFileName('C:\Documents and Settings\Administrator\My Documents\a.txt')返回：a.txt

Answer 6

你是要去那个路径的文件名还是取A.txt里面的A？

Answer 7

回二楼
a.txt这个文件名的长度是不确定的
可能是abc.txt
----------------------
上面还没解决？你的具体意思是？

Answer 8

通过下面的函数，可以方便地对文件名进行操作：
1. ExpandFileName
将当前驱动器名(盘符)、路径名和指定的文件名合成一个绝对文件名。
函数原型如下：
function ExpandFileName(const FileName: string): string;
返回值为合成的绝对文件名。
2. ExpandUNCFileName
获取一个以U N C格式的包括网络驱动器名的绝对文件名。
函数原型如下：
function ExpandUNCFileName(const FileName: string): string;
3. ExtractFileDir
从绝对文件名中获取目录名。
函数原型如下：
function ExtractFileDir(const FileName: string): string;
4. ExtractFileDrive
从绝对文件名中获取驱动器号(盘号)。
函数原型如下：
function ExtractFileDrive(const FileName: string): string;
5. ExtractFileExt
从绝对文件名中获取文件名的扩展名。
函数原型如下：
function ExtractFileExt(const FileName: string): string;
6. ExtractFileName
从绝对文件名中获取文件名。
函数原型如下：
function ExtractFileName(const FileName: string): string;
7. ExtractFilePath
从绝对文件名中获取路径名。
函数原型如下：
function ExtractFilePath(const FileName: string): string;
8. ExtractRelativePath
从绝对文件名中获取相对于某一个路径的相对路径名。
函数原型如下：
function ExtractRelativePath(const BaseName, DestName: string): string;
9. ExtractShortPathName
将长文件名转化成短文件名。
函数原型如下：
function ExtractShortPathName(const FileName: string): string;

Answer 9

晕了我还以为楼主只想得到文件名，而不显示扩展名呢！
就像：
a.txt得到a
hell.exe等到hello

Answer 10

[Error] NoteBook.pas(138): Undeclared identifier: 'rightstr'
rightstr(str,place)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
要使用上面函数，需要uses StrUtils单元

Answer 11

ksaiy(阳光总在风雨后) :
请问ExtractFileName如何使用?

Answer 12

gxgyj(杰克.逊):
[Error] NoteBook.pas(138): Undeclared identifier: 'rightstr'
rightstr(str,place)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
要使用上面函数，需要uses StrUtils单元如何解决?

Answer 13

DELPHI中有个很好的老师---帮助文件，多看看帮助，也不用问这么多了......