Delphi中截取文件名不含后缀部分

最新推荐文章于 2023-12-17 21:25:17 发布
原创 最新推荐文章于 2023-12-17 21:25:17 发布 · 2.3k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #path

本文介绍了当文件名包含中文时如何正确截取文件名而不包括扩展名的方法。由于中文字符占两个英文字符的位置，直接使用传统方法如LeftStr或Pos会失败。文章提供了一种使用Copy函数的有效解决方案。

当文件名含有中文时，不能直接用LeftStr(FileName, Length(FileName - 4))或者用Pos来定位"."的位置来获取。因为中文一个字符相当与两个英文字符。这样截取往往还是把整个FileName都截下来了。

应当使用Copy函数，如下：

TmpFileLength := Pos(extFile, FileName); TmpFileName := Copy(FileName, 1, TmpFileLength-1);

FileName为AA.txt之类，如果是包含path，可以先用ExtractFileName截取包含后缀的文件名。

Delphi实现哈夫曼编码压缩
钟采奕(游戏开发)
01-03 1147
 【实习题目】     文本文件的哈夫曼编码压缩实现 【问题描述】哈夫曼编码是一种有效且可逆的编码方式。要求用哈夫曼编码方式实现对一个文本文件的压缩操作。 【基本要求】1)      要求程序同时具有哈夫曼编码压缩和解压的功能模块。2)      压缩模块：统计源文件中各字符出现频率，建立哈夫曼树，通过哈夫曼树求得各字符的哈夫曼编码，最后将哈夫曼树的数据和编码数
Pascal 函数集——Delphi 控件属性集
03-29
通过以上详尽的介绍，我们不仅理解了Pascal语言中一系列重要函数的用途和Delphi控件的关键属性，还领略了它们如何协同工作，构建复杂而高效的软件应用程序。无论是基础的数学运算、文件操作，还是高级的界面设计和...
Delphi中截取文件名
inforum的专栏
12-29 1612
Delphi中截取文件名不含后缀部分 收藏 当文件名含有中文时，不能直接用LeftStr(FileName, Length(FileName - 4))或者用Pos来定位"."的位置来获取。因为中文一个字符相当与两个英文字符。这样截取往往还是把整个FileName都截下来了。应当使用Copy函数，如下：TmpFileLength := Pos(extFile, FileName); Tmp
delphi 获取文件所在路径
lizhongren的专栏
02-17 1140
//delphi 获取文件所在路径 ExtractFileDrive ：返回完整文件名中的驱动器，如"C:" ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/" ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test" ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.d
获取文件路径里的文件名（不包含扩展名）
llf000000的博客
12-17 655
方法将文件名和扩展名分开，只保留文件名部分。最后，我们将提取到的文件名打印出来。运行这段代码，你将得到输出结果为 "llf" 的字符串。将提取列表中的第一个元素，即文件名，并将其赋值给变量。方法返回路径中的文件名（包括扩展名），然后我们使用。用于获取列表中的第一个元素，即文件名部分。返回一个包含两个元素的列表。在这个代码中，我们使用了。模块来处理文件路径。
delphi下如何获得不带扩展名的文件名？
01-06 319
delphi下如何获得不带扩展名的文件名？ Edit1.Text:=ChangeFileExt(ExtractFileName(Application.ExeName),'') ; //获取到应用程序名后，将后缀名清空就可以啦。 ...
Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名-南山古桃-关键词：Delphi，文件函数，Extract...
acridin的专栏
12-18 1436
1、文件名函数 　　文件名函数可以对文件的名称、所在子目录、驱动器和扩展名等进行操作。下表列出这些函数及其功能。 函数 说明 ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名
Delphi实现逐层去括号法的表达式求值函数
计算出的数值需转换为字符串，替换原始表达式中对应的括号部分，形成新的简化表达式，然后重复上述过程，直到整个表达式被完全化简为单一数值。 值得注意的是，作者提到存在“0.999999999……未自动消除为1”的BUG...
Delphi函数大全
12-08
**用途**：用于从一个字符串中提取子字符串，方便进行字符串截取操作。 #### 42. Cos函数 **功能**：计算余弦值。 **用途**：在三角学计算中非常常见，用于解决涉及角度和边长的问题。 #### 43. Ctl3D属性 **功能*...
delphi 更改文件扩展名
01-02
delphi 更改文件扩展名，更改文件名后文件更改回来又可以正常使用，可以运用在程序对生成的文件通过更改文件名，让其它人无法使用(当你不想让人知道你生成的什么文件时)
delphi删除创建文件
10-16
delphi删除创建文件
批量重命名及照片命名的小程序
1. 文件名模式识别：程序需要能够识别和分析文件名中所遵循的规律，例如前缀、后缀、数字序列、日期时间格式等。 2. 正则表达式：在处理有规律的文件名时，正则表达式是非常有用的工具，因为它允许程序员定义复杂的...
delphi 获取 文件名不含扩展名
最新发布
04-23
<think>好的，用户的问题是关于在Delphi中获取文件名但不包含扩展名的方法。我需要先回顾一下相关的Delphi函数，确保自己记得正确的函数和用法。 首先，我记得Delphi有几个处理文件路径的函数，比如ExtractFileName、ExtractFileExt等。用户想要的是去掉扩展名的文件名，所以可能需要组合使用这些函数。比如，先获取完整的文件名（包含扩展名），然后再去掉扩展名部分。 根据引用[3]提到的内容，ExtractFileName可以从路径中获取不含路径的文件名，ExtractFileExt可以获取扩展名。所以，用户需要的是从文件名中去掉扩展名。这时候可以考虑将ExtractFileName的结果字符串处理，去掉最后的扩展名部分。 例如，假设文件名为“example.txt”，ExtractFileName得到的就是“example.txt”，然后用ExtractFileExt得到“.txt”。这时候需要将“example.txt”中的“.txt”去掉，得到“example”。可以通过查找扩展名的位置，然后截取前面的部分。 在引用[1]中的示例代码里，用户提供了一个函数，使用ExtractFileName获取带扩展名的文件名，然后用ExtractFileExt得到扩展名，再计算长度，最后用Copy函数截取前面的部分。这个方法应该是可行的。 另外，需要确认是否扩展名可能存在多个点的情况，比如“file.tar.gz”，这时候ExtractFileExt可能只返回最后一个扩展名“.gz”，所以处理时需要注意。不过一般情况下，Delphi的ExtractFileExt函数确实只处理最后一个点后的部分，所以上述方法在大多数情况下有效。 总结步骤应该是： 1. 使用ExtractFileName获取带扩展名的文件名。 2. 使用ExtractFileExt获取扩展名（包括点）。 3. 计算扩展名的长度。 4. 使用Copy函数截取文件名中除去扩展名的部分。 此外，引用[3]中的函数可能需要处理没有扩展名的情况，即当ExtractFileExt返回空字符串时，直接返回原文件名。这也是示例代码中处理的情况。 用户可能需要一个直接的函数，所以提供一个像示例中的ExtractFileNameNoExt函数会比较实用。同时，建议用户处理可能存在的边缘情况，比如没有扩展名，或者文件名以点开头（比如“.bash_profile”），这时候需要进一步测试。 最后，确保代码示例正确无误，并且符合Delphi的语法。比如使用String类型，函数声明正确，Begin和End配对等。同时，提醒用户注意路径中可能包含的点，比如目录名中的点不会影响，只有文件名中的最后一个点后的部分被视为扩展名。</think>在Delphi中获取不包含扩展名的文件名，可以通过组合使用$ExtractFileName()$和$ExtractFileExt()$函数实现。以下是具体实现方法： ### 实现步骤 1. **提取完整文件名**：使用$ExtractFileName()$从完整路径中获取带扩展名的文件名[^3] 2. **分离扩展名**：通过$ExtractFileExt()$获取文件的扩展名（包含`.`符号）[^3] 3. **计算截取长度**：文件名总长度减去扩展名长度得到有效截取长度 4. **截取主体部分**：使用$Copy()$函数去除扩展名 ### 完整函数代码 ```delphi function ExtractFileNameNoExt(FileString: String): String; var FileWithExt: String; ExtLength: Integer; begin FileWithExt := ExtractFileName(FileString); // 获取带扩展名的文件名 ExtLength := Length(ExtractFileExt(FileWithExt)); // 计算扩展名长度[^3] if ExtLength = 0 then Result := FileWithExt // 无扩展名直接返回 else Result := Copy(FileWithExt, 1, Length(FileWithExt) - ExtLength); // 截取主体部分[^1] end; ``` ### 使用示例 ```delphi // 输入路径：C:\Documents\report.pdf // 返回结果：report ShowMessage(ExtractFileNameNoExt('C:\Documents\report.pdf')); ``` ### 注意事项 1. 适用于标准文件命名规范，最后一个`.`后的内容视为扩展名 2. 路径中的`.`不会影响结果（如`C:\Data.old\file`仍返回`file`） 3. 对无扩展名文件会返回完整文件名
评论 2
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值