文件路径处理模块 1.0

chenyucheng

该模块可以对文件名和路径进行任何处理。
目前支持的处理方式：

• 取路径后文件名
• 取文件名后扩展名
• 取路径前目录
• 目录路径后加反斜杠
• 目录路径后去反斜杠
• 取短文件名
  

参数说明：

  

模块名称：文件路径处理
作者：chenyucheng
版本：1.0
可以对文件名和路径进行处理的模块
------------------------------

子程序名	返回值类型	公开	备 注
目录路径后加反斜杠	文本型		如果传入的目录路径参数后面没有 \ 号，则加上 \ 号后返回处理后的结果，否则直接返回它。
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

子程序名	返回值类型	公开	备 注
目录路径后去反斜杠	文本型		如果传入的目录路径参数后面有 \ 号，则去掉 \ 号后返回处理后的结果，否则直接返回它。
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

子程序名	返回值类型	公开	备 注
取短文件名	文本型		获取文件路径的短文件名（8个字节文件名部分+点号+3个字节扩展名部分）形式，这个格式不含空格，且与以前的MS-DOS的文件系统兼容。现在很少才会用得到。
参数名	类 型	参考	可空	数组	备 注
文件名	文本型				可以是目录的完全路径，也可以是文件名的路径。路径必须要存在，不然不会返回（返回空文本）。

子程序名	返回值类型	公开	备 注
取路径后文件名	文本型		取完整文件路径之后的文件名部分
参数名	类 型	参考	可空	数组	备 注
路径	文本型

子程序名	返回值类型	公开	备 注
取路径前目录	文本型		取完整文件路径之前的目录部分。注意返回的目录后面有 \ 号。
参数名	类 型	参考	可空	数组	备 注
路径	文本型

子程序名	返回值类型	公开	备 注
取文件名后扩展名	文本型		取文件名之后的扩展名，不含文件名与扩展名之间的点号。若无扩展名，则返回空。
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

模块名称：文件路径处理<br /> 作者：chenyucheng<br /> 版本：1.0<br /> <br /> 可以对文件名和路径进行处理的模块<br /> <br /> ------------------------------<br /> <br /> .版本 2<br /> <br /> .子程序 目录路径后加反斜杠, 文本型, 公开, 如果传入的目录路径参数后面没有 \ 号，则加上 \ 号后返回处理后的结果，否则直接返回它。<br /> .参数 目录路径, 文本型<br /> <br /> .子程序 目录路径后去反斜杠, 文本型, 公开, 如果传入的目录路径参数后面有 \ 号，则去掉 \ 号后返回处理后的结果，否则直接返回它。<br /> .参数 目录路径, 文本型<br /> <br /> .子程序 取短文件名, 文本型, 公开, 获取文件路径的短文件名（8个字节文件名部分+点号+3个字节扩展名部分）形式，这个格式不含空格，且与以前的MS-DOS的文件系统兼容。现在很少才会用得到。<br /> .参数 文件名, 文本型, , 可以是目录的完全路径，也可以是文件名的路径。路径必须要存在，不然不会返回（返回空文本）。<br /> <br /> .子程序 取路径后文件名, 文本型, 公开, 取完整文件路径之后的文件名部分<br /> .参数 路径, 文本型<br /> <br /> .子程序 取路径前目录, 文本型, 公开, 取完整文件路径之前的目录部分。注意返回的目录后面有 \ 号。<br /> .参数 路径, 文本型<br /> <br /> .子程序 取文件名后扩展名, 文本型, 公开, 取文件名之后的扩展名，不含文件名与扩展名之间的点号。若无扩展名，则返回空。<br /> .参数 文件名, 文本型

示例代码：

  

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
输出调试文本 (“-------- 测试代码 --------”)
输出调试文本 (“1. ” ＋ 取路径后文件名 (“D:\文档\易语言程序\模块\文件名处理\文件名处理.e”))
输出调试文本 (“2. ” ＋ 取文件名后扩展名 (“D:\文档\易语言程序\模块\文件名处理\文件名处理.e”))
输出调试文本 (“3. ” ＋ 取文件名后扩展名 (“C:\WINDOWS\EXPLORER.EXE”))
输出调试文本 (“4. ” ＋ 取文件名后扩展名 (“C:\易语言5.9\ecom\”))
输出调试文本 (“5. ” ＋ 取文件名后扩展名 (“D:\示例软件 1.2\README”))
输出调试文本 (“6. ” ＋ 取路径前目录 (“D:\文档\易语言程序\模块\文件名处理\文件名处理.e”))
输出调试文本 (“7. ” ＋ 取路径前目录 (“C:\WINDOWS\EXPLORER.EXE”))
输出调试文本 (“8. ” ＋ 取路径前目录 (“C:\易语言5.9\ecom\”))
输出调试文本 (“9. ” ＋ 取路径前目录 (“D:\示例软件 1.2\README”))
输出调试文本 (“10. ” ＋ 目录路径后加反斜杠 (“C:\易语言5.9\ecom”))
输出调试文本 (“11. ” ＋ 目录路径后加反斜杠 (“C:\易语言5.9\ecom\”))
输出调试文本 (“12. ” ＋ 目录路径后去反斜杠 (“C:\易语言5.9\ecom”))
输出调试文本 (“13. ” ＋ 目录路径后去反斜杠 (“C:\易语言5.9\ecom\”))
' 以下展示“取短文件名”的效果，如果没有下面参数所给的目录就不会返回
' 如果文件系统不支持 MS-DOS 兼容的短文件名，则原样返回
输出调试文本 (“11. ” ＋ 取短文件名 (“C:\Program Files”))
输出调试文本 (“12. ” ＋ 取短文件名 (“C:\Program Files (x86)”))
输出调试文本 (“13. ” ＋ 取短文件名 (“D:\Program Files”))
输出调试文本 (“14. ” ＋ 取短文件名 (“D:\Program Files (x86)”))
输出调试文本 (“15. ” ＋ 取短文件名 (“E:\Program Files”))
输出调试文本 (“16. ” ＋ 取短文件名 (“E:\Program Files (x86)”))
输出调试文本 (“17. ” ＋ 取短文件名 (“D:\除非你手动创建这个名字的目录或文件，不然这是一个不存在的目录或文件.ABC”))
输出调试文本 (“结束”)

.版本 2<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> 输出调试文本 (“-------- 测试代码 --------”)<br /> 输出调试文本 (“1. ” ＋ 取路径后文件名 (“D:\文档\易语言程序\模块\文件名处理\文件名处理.e”))<br /> 输出调试文本 (“2. ” ＋ 取文件名后扩展名 (“D:\文档\易语言程序\模块\文件名处理\文件名处理.e”))<br /> 输出调试文本 (“3. ” ＋ 取文件名后扩展名 (“C:\WINDOWS\EXPLORER.EXE”))<br /> 输出调试文本 (“4. ” ＋ 取文件名后扩展名 (“C:\易语言5.9\ecom\”))<br /> 输出调试文本 (“5. ” ＋ 取文件名后扩展名 (“D:\示例软件 1.2\README”))<br /> 输出调试文本 (“6. ” ＋ 取路径前目录 (“D:\文档\易语言程序\模块\文件名处理\文件名处理.e”))<br /> 输出调试文本 (“7. ” ＋ 取路径前目录 (“C:\WINDOWS\EXPLORER.EXE”))<br /> 输出调试文本 (“8. ” ＋ 取路径前目录 (“C:\易语言5.9\ecom\”))<br /> 输出调试文本 (“9. ” ＋ 取路径前目录 (“D:\示例软件 1.2\README”))<br /> 输出调试文本 (“10. ” ＋ 目录路径后加反斜杠 (“C:\易语言5.9\ecom”))<br /> 输出调试文本 (“11. ” ＋ 目录路径后加反斜杠 (“C:\易语言5.9\ecom\”))<br /> 输出调试文本 (“12. ” ＋ 目录路径后去反斜杠 (“C:\易语言5.9\ecom”))<br /> 输出调试文本 (“13. ” ＋ 目录路径后去反斜杠 (“C:\易语言5.9\ecom\”))<br /> ' 以下展示“取短文件名”的效果，如果没有下面参数所给的目录就不会返回<br /> ' 如果文件系统不支持 MS-DOS 兼容的短文件名，则原样返回<br /> 输出调试文本 (“11. ” ＋ 取短文件名 (“C:\Program Files”))<br /> 输出调试文本 (“12. ” ＋ 取短文件名 (“C:\Program Files (x86)”))<br /> 输出调试文本 (“13. ” ＋ 取短文件名 (“D:\Program Files”))<br /> 输出调试文本 (“14. ” ＋ 取短文件名 (“D:\Program Files (x86)”))<br /> 输出调试文本 (“15. ” ＋ 取短文件名 (“E:\Program Files”))<br /> 输出调试文本 (“16. ” ＋ 取短文件名 (“E:\Program Files (x86)”))<br /> 输出调试文本 (“17. ” ＋ 取短文件名 (“D:\除非你手动创建这个名字的目录或文件，不然这是一个不存在的目录或文件.ABC”))<br /> <br /> 输出调试文本 (“结束”)

效果：

1. 正在编译现行程序
   
2. 正在检查重复名称...
   
3. 正在预处理现行程序
   
4. 正在进行名称连接...
   
5. 正在统计需要编译的子程序
   
6. 正在编译...
   
7. 正在生成主程序入口代码
   
8. 程序代码编译成功
   
9. 正在封装易格式目的代码
   
10. 开始运行被调试程序
    
11. * -------- 测试代码 --------
    
12. * 1. 文件名处理.e
    
13. * 2. e
    
14. * 3. EXE
    
15. * 4.
    
16. * 5.
    
17. * 6. D:\文档\易语言程序\模块\文件名处理\
    
18. * 7. C:\WINDOWS\
    
19. * 8. C:\易语言5.9\ecom\
    
20. * 9. D:\示例软件 1.2\
    
21. * 10. C:\易语言5.9\ecom\
    
22. * 11. C:\易语言5.9\ecom\
    
23. * 12. C:\易语言5.9\ecom
    
24. * 13. C:\易语言5.9\ecom
    
25. * 11. C:\Program Files
    
26. * 12. C:\Program Files (x86)
    
27. * 13. D:\PROGRA~3
    
28. * 14. D:\PROGRA~1
    
29. * 15. E:\PROGRA~2
    
30. * 16. E:\PROGRA~1
    
31. * 17.
    
32. * 结束
    
33. 被调试易程序运行完毕
    

复制代码

模块和源码下载见附件

447485268

支持开源~！感谢分享

撒加

支持开源~！感谢分享

不苦小和尚

支持网页路径吗

wuqingg

支持开源~！感谢分享

dangerace

啊？这些不是精易模块中开源的嘛？

小虎来了

支持开源~！感谢分享

gdhong

谢谢分享！

bianyuan456

已经顶贴，感谢您对论坛的支持！

bianyuan456

已经顶贴，感谢您对论坛的支持！