易语言取路径的上级目录的方法 - 支持本地路径、网络路径、斜杠反斜杠自动处理

a1a2dnp

1. 
   
2. 
   
3. * 本地路径测试
   
4. * C:\Windows\System32\shell32.dll
   
5. * C:\Windows\System32
   
6. * C:\Windows
   
7. * C:\
   
8. * 网络路径测试
   
9. * [url]http://127.0.0.1/Windows/System32/shell32.dll[/url]
   
10. * [url]http://127.0.0.1/Windows/System32[/url]
    
11. * [url]http://127.0.0.1/Windows[/url]
    
12. * [url]http://127.0.0.1/[/url]
    
13. 
    
14. 
    

复制代码

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 目录, 文本型
    
14. .局部变量 上级目录, 文本型
    
15. 
    
16. 输出调试文本 (“本地路径测试”)
    
17. 目录 ＝ “C:\Windows\System32\shell32.dll”
    
18. .循环判断首 ()
    
19.     上级目录 ＝ 目录
    
20.     目录 ＝ 取上级目录 (上级目录)
    
21.     输出调试文本 (上级目录)
    
22. .循环判断尾 (上级目录 ≠ 目录)
    
23. 输出调试文本 (“网络路径测试”)
    
24. 目录 ＝ “[url]http://127.0.0.1/Windows/System32/shell32.dll[/url]”
    
25. .循环判断首 ()
    
26.     上级目录 ＝ 目录
    
27.     目录 ＝ 取上级目录 (上级目录)
    
28.     输出调试文本 (上级目录)
    
29. .循环判断尾 (上级目录 ≠ 目录)
    
30. 
    
31. 
    
32. 
    
33. 
    
34. 
    
35. 
    
36. .子程序 取上级目录, 文本型, 公开
    
37. .参数 俗处理的目录, 文本型
    
38. .局部变量 分割, 文本型, , "0"
    
39. .局部变量 计数, 整数型
    
40. .局部变量 返回值, 文本型
    
41. .局部变量 成员数, 整数型
    
42. .局部变量 循环次数, 整数型
    
43. .局部变量 网络路径, 逻辑型
    
44. .局部变量 分割2, 文本型, , "0"
    
45. .局部变量 目录, 文本型
    
46. 
    
47. 目录 ＝ 俗处理的目录
    
48. 目录 ＝ 子文本替换 (目录, “/”, “\”, , , 真)
    
49. 网络路径 ＝ 寻找文本 (目录, “\\”, , 假) ≠ -1
    
50. .如果 (网络路径)
    
51.     分割2 ＝ 分割文本 (目录, “\\”, )
    
52.     .如果真 (取数组成员数 (分割2) ≠ 2)
    
53.         返回 (“”)
    
54.     .如果真结束
    
55. 
    
56. .否则
    
57.     .如果真 (取文本右边 (目录, 1) ＝ “:”)
    
58.         返回 (目录 ＋ “\”)
    
59.     .如果真结束
    
60. 
    
61. .如果结束
    
62. 分割 ＝ 分割文本 (目录, “\”, )
    
63. 成员数 ＝ 取数组成员数 (分割)
    
64. .如果真 (成员数 ＝ 1)
    
65.     返回 (目录)
    
66. .如果真结束
    
67. 循环次数 ＝ 成员数 － 1
    
68. .计次循环首 (循环次数, 计数)
    
69.     .如果 (循环次数 ＝ 计数)
    
70.         返回值 ＝ 返回值 ＋ 分割 [计数]
    
71.     .否则
    
72.         返回值 ＝ 返回值 ＋ 分割 [计数] ＋ “\”
    
73.     .如果结束
    
74. 
    
75. .计次循环尾 ()
    
76. .如果 (网络路径)
    
77. 
    
78.     .判断开始 (成员数 ＝ 3)
    
79.         返回值 ＝ 返回值 ＋ “\” ＋ 分割2 [2]
    
80.         .如果真 (目录 ＝ 返回值 且 取文本右边 (目录, 1) ≠ “\”)
    
81.             返回值 ＝ 返回值 ＋ “\”
    
82.         .如果真结束
    
83. 
    
84.     .判断 (成员数 ＝ 4)
    
85.         返回值 ＝ 返回值 ＋ “\”
    
86.     .默认
    
87. 
    
88.     .判断结束
    
89. 
    
90.     返回值 ＝ 子文本替换 (返回值, “\”, “/”, , , 真)
    
91. .否则
    
92.     .如果真 (取文本右边 (返回值, 1) ＝ “:”)
    
93.         返回值 ＝ 返回值 ＋ “\”
    
94. 
    
95. 
    
96.     .如果真结束
    
97.     返回值 ＝ 子文本替换 (返回值, “/”, “\”, , , 真)
    
98. 
    
99. .如果结束
    
100. 
     
101. 返回 (返回值)
     
102. 
     
103. 
     

复制代码

4面8方

沙发来挤下

小莉今年7岁

大神就是大神....

222

看看把正好是我要的

Orange

ll

朵朵

看看多简单

Anonymous

这....