易语言如何写到文件创建txt新文件？

Posted 2023-04-13

按钮被点击，创建完目录之后还想创建txt文件

参考技术A

.版本 2

.支持库 shell

.子程序 _按钮6_被单击

.局部变量 需要创建的文件夹, 文本型

.局部变量 需要创建的Txt文件名, 文本型

.局部变量 需要写出Txt内容, 文本型

需要创建的文件夹 ＝ 取特定目录 (#系统桌面) ＋ “Txt文件夹”

需要创建的Txt文件名 ＝ 需要创建的文件夹 ＋ “\\1.txt”

需要写出Txt内容 ＝ “123456”

.如果 (创建目录 (需要创建的文件夹))

    .如果真 (写到文件 (需要创建的Txt文件名, 到字节集 (需要写出Txt内容)) ＝ 假)

        信息框 (“写出文件失败”, 0, , )

    .如果真结束

.否则

    信息框 (“创建目录失败”, 0, , )

用计数循环实现，每隔10行写到新文件中

 

 

 

# coding:utf-8        
with open(‘dist_1.txt‘,‘r‘,encoding= ‘utf-8‘) as f1,open(‘dist_2.txt‘,‘w‘,encoding= ‘utf-8‘) as f2:
    i=0
    for line in f1:
        i+=1
        if i%10==0:
            f2.write(line)