从常量取出怎么写，求源代码

谁明浪子心

常量1  里边姓名
常量2  里边手机号
常量3 里边地址


比如3个参数各导入300个，  按照顺序 取出姓名 手机号 地址
保存文本


求源代码

熬夜

1111.e (921.19 KB, 下载次数: 4)

昨天 11:23 上传

点击文件名下载附件

Ruang

  

子程序名	返回值类型	公开	备 注
功能_写到文件
参数名	类 型	参考	可空	数组	备 注
写到文件路径地址	文本型				例如 "D:\Users\Black\Desktop\1.txt"
参_姓名	文本型				#常量1
参_手机	文本型				#常量2
参_地址	文本型				#常量3

变量名	类 型	静态	数组	备 注
计次	整数型
姓名	文本型		0
手机	文本型		0
地址	文本型		0
新文本	文本型

姓名 － 分割文本 (参_姓名, #换行符, )  ' 姓名
手机 － 分割文本 (参_手机, #换行符, )  ' 手机
地址 － 分割文本 (参_地址, #换行符, )  ' 地址
如果真 (取数组成员数 (姓名) ≠ 取数组成员数 (手机) 且 取数组成员数 (手机) ≠ 取数组成员数 (地址))  ' 姓名 和 手机 和 地址 数量不一样，则不继续往下运行
返回 ()
计次循环首 (取数组成员数 (姓名), 计次)  ' 重组文本
如果真 (取数组成员数 (姓名) ＝ 计次)
新文本 ＝ 新文本 ＋ 姓名 [计次] ＋ 字符 ( #空格键 ) ＋ 手机 [计次] ＋ 字符 ( #空格键 ) ＋ 地址 [计次]
到循环尾 ()
新文本 ＝ 新文本 ＋ 姓名 [计次] ＋ 字符 ( #空格键 ) ＋ 手机 [计次] ＋ 字符 ( #空格键 ) ＋ 地址 [计次] ＋ #换行符
计次循环尾 ()
写到文件 (写到文件路径地址, 到字节集 (新文本))
信息框 (“写出成功”, 0, , )

.版本 2<br /> <br /> .子程序 功能_写到文件<br /> .参数 写到文件路径地址, 文本型, ,  例如 "D:\Users\Black\Desktop\1.txt"<br /> .参数 参_姓名, 文本型, , #常量1<br /> .参数 参_手机, 文本型, , #常量2<br /> .参数 参_地址, 文本型, , #常量3<br /> .局部变量 计次, 整数型<br /> .局部变量 姓名, 文本型, , "0"<br /> .局部变量 手机, 文本型, , "0"<br /> .局部变量 地址, 文本型, , "0"<br /> .局部变量 新文本, 文本型<br /> <br /> 姓名 － 分割文本 (参_姓名, #换行符, )  ' 姓名<br /> 手机 － 分割文本 (参_手机, #换行符, )  ' 手机<br /> 地址 － 分割文本 (参_地址, #换行符, )  ' 地址<br /> .如果真 (取数组成员数 (姓名) ≠ 取数组成员数 (手机) 且 取数组成员数 (手机) ≠ 取数组成员数 (地址))  ' 姓名 和 手机 和 地址 数量不一样，则不继续往下运行<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (姓名), 计次)  ' 重组文本<br />     .如果真 (取数组成员数 (姓名) ＝ 计次)<br />         新文本 ＝ 新文本 ＋ 姓名 [计次] ＋ 字符 (#空格键) ＋ 手机 [计次] ＋ 字符 (#空格键) ＋ 地址 [计次]<br />         到循环尾 ()<br />     .如果真结束<br />     新文本 ＝ 新文本 ＋ 姓名 [计次] ＋ 字符 (#空格键) ＋ 手机 [计次] ＋ 字符 (#空格键) ＋ 地址 [计次] ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (写到文件路径地址, 到字节集 (新文本))<br /> 信息框 (“写出成功”, 0, , )

补充内容 (2025-5-13 11:34):
换行符为每一组数据，必须三个常量都是一样的行数

Ruang

调用方法图片

cunanhai

Ruang 发表于 2025-5-13 11:34
调用方法图片

这个光标所在行有横线是怎么整的?

Ruang

cunanhai 发表于 2025-5-13 13:02
这个光标所在行有横线是怎么整的?

【易IDE视觉库 正式版】易语言IDE界面美化支持库v1.4.1029
https://bbs.125.la/forum.php?mod=viewthread&tid=14672340
(出处: 精易论坛)