Site icon 时鹏亮的Blog

易语言-读入文本例程代码

请知悉:本文最近一次更新为 11年 前,文中内容可能已经过时。
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.局部变量 内容, 文本型
.局部变量 寻找位置, 整数型
.局部变量 出现次数, 整数型
.局部变量 换行位置数组, 整数型, , "0"
文件号 = 打开文件 (取运行目录 () + “\回复询盘列表配置.txt”, 6, 1)
内容 = 读入文本 (文件号, )
出现次数 = 0
.循环判断首 ()
寻找位置 = 寻找文本 (内容, #换行符, 寻找位置 + 1, 假)
.如果 (寻找位置 > -1)
加入成员 (换行位置数组, 寻找位置)
出现次数 = 出现次数 + 1
.否则
跳出循环 ()
.如果结束
.循环判断尾 (真)
输出调试文本 (出现次数)
置随机数种子 ()
移动读写位置 (文件号, #文件首, 换行位置数组 [取随机数 (1, 出现次数)] + 1)
插入文本行 (文件号, “dsdfdsfdftre@df.com”)
关闭文件 (文件号)

如您从本文得到了有价值的信息或帮助,请考虑扫描文末二维码捐赠和鼓励。

尊重他人劳动成果。转载请务必附上原文链接,我将感激不尽。


与《易语言-读入文本例程代码》相关的博文:

Exit mobile version