批量创建txt文件

i99i9o

点击批量创建txt文件
会创建4个文件
第一个文件名，张三， 文件里面的内容是11111
第二个文件名，李四， 文件里的内容是222222
第三个文件名，王五，文件里的内容是333333
第四个文件名，赵六，文件里的内容是444444

左边是用换行符来分割创建多少个txt文件，右边按分隔符，按顺序给创建的文件插入内容

菜鸟囚徒

i99i9o 发表于 2024-5-23 11:02
直接把文件给我吧，我这边跑不起来

1.e (930.84 KB, 下载次数: 20)

2024-5-23 11:03 上传

点击文件名下载附件

frankiy

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型		0
b	文本型		0
x	整数型
file	文本型
text	字节集

a ＝ 分割文本 (编辑框1.内容, #换行符, )
b ＝ 分割文本 (编辑框2.内容, #换行符, )
如果真 (取数组成员数 (a) ＝ 取数组成员数 (b))
计次循环首 (取数组成员数 (a), x)
file ＝ 取运行目录 () ＋ “/” ＋ a [x] ＋ “.txt”
text ＝ 到字节集 (b [x])
写到文件 (file, text)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 file, 文本型<br /> .局部变量 text, 字节集<br /> <br /> a ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> b ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> .如果真 (取数组成员数 (a) ＝ 取数组成员数 (b))<br />     .计次循环首 (取数组成员数 (a), x)<br />         file ＝ 取运行目录 () ＋ “/” ＋ a [x] ＋ “.txt”<br />         text ＝ 到字节集 (b [x])<br />         写到文件 (file, text)<br />     .计次循环尾 ()<br /> <br /> .如果真结束

菜鸟囚徒

  

变量名	类 型	静态	数组	备 注
文件名	文本型		0
文件内容	文本型		0
num	整数型
i	整数型

文件名 ＝ 分割文本 (编辑框1.内容, #换行符, )
文件内容 ＝ 分割文本 (编辑框2.内容, “分隔符”, )
num ＝ 取数组成员数 (文件名)
计次循环首 (num, i)
写到文件 (编辑框3.内容 ＋ “\” ＋ 文件名 [i] ＋ “.txt”, 到字节集 (文件内容 [i]))
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 文件内容, 文本型, , "0"<br /> .局部变量 num, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 文件名 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 文件内容 ＝ 分割文本 (编辑框2.内容, “分隔符”, )<br /> num ＝ 取数组成员数 (文件名)<br /> .计次循环首 (num, i)<br />     写到文件 (编辑框3.内容 ＋ “\” ＋ 文件名 <i> ＋ “.txt”, 到字节集 (文件内容 <i>))<br /> .计次循环尾 ()

i99i9o

frankiy 发表于 2024-5-23 10:54
[e=3].版本 2

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

点了没反应，

i99i9o

菜鸟囚徒 发表于 2024-5-23 10:58
[e=0].版本 2

.局部变量 文件名, 文本型, , "0"

直接把文件给我吧，我这边跑不起来