人气排行榜
extractfilepath (extract)
描述
extractfilepath
函数从一个字符串中提取一个文件路径。该函数接收一个字符串作为输入，并返回一个字符串作为输出。输出字符串是输入字符串中最后一个文件路径。
语法
``` extractfilepath(text)```-
text：要从中提取文件路径的字符串。
返回值
extractfilepath
函数返回一个字符串，其中包含输入字符串中最后一个文件路径。
示例
``` extractfilepath("C:\\Users\\John Doe\\Documents\\myfile.txt") // "C:\\Users\\John Doe\\Documents\\myfile.txt"extractfilepath("/home/user/Documents/myfile.txt") // "/home/user/Documents/myfile.txt"extractfilepath("http://www.example.com/myfile.txt") // "http://www.example.com/myfile.txt"extractfilepath("This is a sentence with no file path.") // ""```注意事项
- 该函数只提取最后一个文件路径。如果输入字符串中有多个文件路径，该函数将只返回最后一个。
- 该函数不验证输入字符串是否有效的文件路径。它只是提取字符串中最后一个看起来像文件路径的文本。
- 该函数不处理转义字符或其他特殊字符。它只是提取字符串中的文本并将其返回作为文件路径。
相关函数
-
extractfilename -
extractextension
delphi里调用exe文件
可以通过ShellExecute 函数进行调用。
第一个参数为父窗口句柄；第二个参数为打开方式（OPEN，PRINT两种）；第三个参数为执行文件全路径；第四个参数为执行文件参数；(没有时为nil )第五个参数为执行文件开始运行时的初始目录；第六个参数为为执行文件运行方式(SW_HIDE,SW_MAXIMIZE,SW_MINIMIZE,SW_RESTORE,SW_SHOW,SW_SHOWDEFAULT,SW_SHOWMAXIMIZED,SW_SHOWMINIMIZED,SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_SHOWNOACTIVATE,SW_SHOWNORMAL);
DELPHI基础教程：文件管理（一）[2]
文件名操作
Rename :文件更名 以文件变量为操作对象
RenameFile :文件更名 参数为文件的原名和新名
ChangeFileExt :改变文件扩展名
ExpandFileName :返回文件全路径名
ExtractFileExt :返回文件扩展名
ExtractFileName :从全路径名中返回文件名
ExtractFilePath :返回特定文件的路径
文件属性
FileGetAttr :返回文件属性
FileSetAttr :设置文件属性
文件状态
FileSize :返回文件对象大小
IOResult :返回上一次I/O操作的状态
FileExists :检测文件是否存在
文件读写
Read Readln :从文本或记录文件中读取变量
Write :将指定变量写入文本或记录文件
Writeln :将指定变量写入文本文件并写入一个行结束标志
FileRead :从一个指定文件中读取变量
FileWrite :向指定文件写入数据
FileRead和FileWrite都是以文件句柄为操作对象 主要供系统内部使用
目录操作
MkDir :创建当前目录的子目录
ChDir :改变当前目录
GetDir :返回特定磁盘的当前目录
RmDir :删除一个空子目录
磁盘操作
DiskFree :返回磁盘自由空间
DiskSize :返回特定磁盘的大小
文件查找
FileSearch :查找目录中是否存在某一特定文件
FindFirst :在目录中查找与给定文件名（可以包含匹配符）及属性集相匹配的第一个文件
FindNext :返回符合条件的下一个文件
FindClose :中止一个FindFirst / FindNext序列
有关文件管理标准过程/函数的更详细资料 请查阅Delphi相关的Help主题 以上的大部分过程在后面都有应用实例 读者可以从中体会其用法
在Delphi的联机帮助Help系统中把有关文件的过程/函数分为两个主题 I/O Routine和File_Management Routine 前者大部分以文件变量为操作对象 而后者大部分以文件名或文件句柄为操作对象 这里为了方便读者的使用 我们按功能重新进行了分类 在下一节中主要应用I/O Routine主题下的过程 而在第四节的综合举例中主要应用File_Management Routine主题下的过程
另外 Windows提供了许多有关文件管理的API函数 虽然在一般情况下 利用Delphi提供的函数已足够解决问题 但有时候仍然需要使用Windows API 在（ ）中我们就用到了Windows API函数GetDriveType 有关Windows API函数的情况 请读者参阅相关的资料 这里不再进行介绍
记录文件的应用
任务介绍
在这一节 我们开发一个系统安全性综合评估方法管理系统 系统安全性在复杂项目开发中十分重要 但由于牵涉面广因而很难获得客观 全面的评估值 鉴于此我们提出多角度 多侧面评估而后定量集成的思路 并在此基础上提出了多种安全性综合评估方法 每种方法由不同部门进行评估而后把结果汇总 综合
为此我们定义如下的记录类型
TNature = （Micro Macro）
{方法性质 分为微观和宏观两类}
Tmethod = Record
Name: string[ ]; {方法名}
Condition: string[ ]; {方法适用条件}
Nature: TNature; {方法性质}
Result: Real; {方法评估值}
用来记录不同方法的信息
由于不同方法的条件 性质不同 因而对工程开发的不同阶段适用方法集也不同 因此需要根据实际情况对方法集进行管理 我们把每一方法作为一条记录 每一方法集作为一个记录文件 下面讨论系统的实现方法
设计基本思路
本系统要实现的基本功能是文件的打开 创建 关闭 显示 记录的增加 修改 删除以及结果的综合和显示 为此我们使用了两组按钮分别用于文件和记录的操作 使用一个StringGrid控件来显示文件内容 使用一个只读编辑框显示结果的综合
其中各部件的名称 功能如下表所示
表 主窗口部件的设计
部件名称 主要属性 备注
RecFileForm BorderStyle=bsDialog 文件打开后把文件名附到窗口标题后
Position=poScreenCenter
StringGrid大小行数动态确定
HazAttr（编辑框） readonly=True 显示综合结果
OpenButton TabOrder=打开一个记录文件 若文件不存在则创建
NewButtonCaption= 打开创建一个记录文件 若文件存在则打开
CloseButton Caption= 关闭 关闭一个已打开的文件
AddButtonCaption= 增加增加一条记录
ModifyButtonCaption= 修改修改一条记录
DeleteButtonCaption= 删除删除一条记录
CalcuButton Caption= 计算计算最终结果并显示
ExitButton Caption= 退出 系统终止 若当前有打开的文件则先关闭
OpenDialog Filter= 选择或输入欲打开的文件
Record File（* Rec）| Rec
|Any File（* *）|* *
另外 StringGrid HazAttr的标题用两个标签框（Label）来显示
另外我们还需要一个编辑对话框 其中四个编辑框Name Condition Nature Result分别对应TMethod记录的四个域
为协调程序运行 我们定义了一组全局变量 各变量的类型 作用如下表
表 全局变量及其作用
变量名 类型 作用
MethodFile MethodFileType 与当前打开文件相关联的文件变量
FileName string[ ] 当前打开文件的文件名
Count Count 当前打开文件的记录总数
CurrentRec Integer 当前处理记录号
FileOpened Boolean 当前是否有文件打开
记录文件类型MethodFileType的定义为
MethodFileType = file of TMethod;
布尔变量FileOpened用于控制文件按钮的使能 变灰 记录按钮的反应以及系统结束时是否需要首先关闭文件
lishixinzhi/Article/Program/Delphi//delphi copyfile 问题
问题出在，多加了ExtractFilePath（）ExtractFilePath是取文件路径。ExtractFilePath（newpath）结果为 d:\back\，当然会返回错误了！正确写法如下：procedure 1Click(Sender: TObject);var path,newpath:string;beginpath:=d:\;newpath:=d:\back\;ifCopyFile(pChar(path),pChar(newpath),false) thenshowmessage(备份成功) else showmessage(备份失败);end;
相关标签： extract、 extractfilepath、
本文地址：https://www.badfl.com/article/0d79b8bdecbbbc45524f.html
<a href="https://www.badfl.com/" target="_blank">自动秒收录</a>
文章推荐
