易语言取文件名和文件扩展名

取文件扩展名，返回一个文件的扩展名称，如.txt,如果没有后缀，返回空，文件_取文件名，比如：F:\123.txt,成功返回123,失败返回空，这个命令的第二个参数可以控制是否返回扩展名称。用到的api有：PathFindExtensionA，PathFindFileNameA。

511遇见易语言模块API教程

 

PathFindExtensionA

.版本 2

.DLL命令 PathFindExtensionA, 文本型, "shlwapi.dll", "PathFindExtensionA", , 文件_取扩展名
    .参数 pszPath, 文本型, , 文件的路径和名称

 PathFindFileNameA

.版本 2

.DLL命令 PathFindFileNameA, 文本型, "shlwapi.dll", "PathFindFileNameA", , 文件_取文件名
    .参数 pszPath, 文本型, , 文件完整路径

 文件_取扩展名

.版本 2

.子程序 文件_取扩展名, 文本型, 公开, 返回一个文件的扩展名称，如.txt,如果没有后缀，返回空
.参数 文件名, 文本型, , 文件的路径和名称

返回 (PathFindExtensionA (文件名))

511遇见易语言模块API教程

 

文件_取文件名 

.版本 2

.子程序 文件_取文件名, 文本型, 公开, 比如：F:\123.txt,成功返回123,失败返回空
.参数 路径文件名, 文本型, , 文件的完整路径包括名称
.参数 是否带后缀, 逻辑型, 可空, 默认为假，不带后缀，参数为真带后缀
.局部变量 j_fname, 文本型

j_fname ＝ PathFindFileNameA (路径文件名)
.如果真 (取文本右边 (j_fname, 1) ＝ “\”)
    返回 (“”)
.如果真结束
返回 (选择 (是否带后缀, j_fname, 取文本左边 (j_fname, 取文本长度 (j_fname) － 取文本长度 (文件_取扩展名 (j_fname)))))

测试调用：

.版本 2

.子程序 _按钮1_被单击, , , 文件_取文件名
.局部变量 f_name, 文本型

f_name ＝ 文件_取文件名 (“C:\Users\zcp\Desktop\易语言模块API-31\511遇见模块模块源码.e”, )
标签1.标题 ＝ f_name