易语言 增强写到文件 (支持路径、文件夹目录创建) (返回逻辑型)

CNWTEPRG

支持路径，目录创建
文件名(不含引号):"D:\123\456\789.txt"
核心库 "写到文件()":目录:"D:\123"不存在，失败
本函数:先创建目录:"D:\123\456\"，然后将789.txt写进去。

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
14. 输出调试文本 (写到文件 (“D:\123\456\789”, { 1, 2, 3 }))
    
15. 输出调试文本 (写到文件增强 (“D:\123\456\789”, { 1, 2, 3 }))
    
16. 
    
17. 
    
18. .子程序 写到文件增强, 逻辑型, 公开, (支持路径，目录创建) 文件名(不含引号):"D:\123\456\789.txt" 核心库 "写到文件()":目录:"D:\123"不存在，失败，本函数:先创建目录:"D:\123\456"，然后将789.txt写进去。
    
19. .参数 文件名, 文本型
    
20. .参数 欲写入文件的数据, 字节集, 可空
    
21. .局部变量 目录名, 文本型, , "0"
    
22. .局部变量 创建的目录名, 文本型
    
23. .局部变量 目录层数, 整数型
    
24. .局部变量 外循环, 整数型
    
25. .局部变量 内循环, 整数型
    
26. 
    
27. 目录名 ＝ 分割文本 (子文本替换 (文件名, “/”, “\”, , , 真), “\”, )
    
28. 目录层数 ＝ 取数组成员数 (目录名)
    
29. .计次循环首 (目录层数, 外循环)
    
30.     创建的目录名 ＝ “”
    
31.     .计次循环首 (外循环, 内循环)
    
32.         创建的目录名 ＝ 创建的目录名 ＋ 目录名 [内循环] ＋ “\”
    
33.     .计次循环尾 ()
    
34.     .如果真 (取文本右边 (创建的目录名, 2) ≠ “:\”)
    
35.         .如果 (目录层数 ＝ 外循环)
    
36.             .如果真 (写到文件 (取文本左边 (创建的目录名, 取文本长度 (创建的目录名) － 1), 欲写入文件的数据) ＝ 假)
    
37.                 返回 (假)
    
38.             .如果真结束
    
39. 
    
40.         .否则
    
41.             创建目录 (创建的目录名)
    
42.         .如果结束
    
43. 
    
44.     .如果真结束
    
45. 
    
46. .计次循环尾 ()
    
47. 返回 (真)
    
48. 
    

复制代码

春天

瞧瞧是咋整的

222

我也悄悄

66大顺

打酱油路过

开开心心

开开心心，如果您要查看本帖隐藏内容请回复

朵朵

什么鬼了隐藏