有没有人帮修改下。如图！

275535028

有没有人帮修改下。如图！
3333.e (396.34 KB, 下载次数: 8)

2024-11-2 20:15 上传

点击文件名下载附件
我自己用来自动发送一些文字或者英文数字到某个聊天窗口的！有时候一个一个字母或者文字去按出来麻烦！

cobi

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

配置项方式 ()
' 文本文档方式 ()

子程序名	返回值类型	公开	备 注
配置项方式

变量名	类 型	静态	数组	备 注
配置路径	文本型

配置路径 ＝ 取运行目录 () ＋ “\test.ini”  ' 测试用的配置项文件
如果真 (取反 (文件是否存在 (配置路径)))
写配置项 (配置路径, “NAME1”, “value”, “A”)
写配置项 (配置路径, “NAME2”, “value”, “B”)
写配置项 (配置路径, “NAME3”, “value”, “C”)
写配置项 (配置路径, “NAME4”, “value”, “D”)
编辑框1.内容 ＝ 读配置项 (配置路径, “NAME1”, “value”, )
编辑框2.内容 ＝ 读配置项 (配置路径, “NAME2”, “value”, )
编辑框3.内容 ＝ 读配置项 (配置路径, “NAME3”, “value”, )
编辑框4.内容 ＝ 读配置项 (配置路径, “NAME4”, “value”, )

子程序名	返回值类型	公开	备 注
文本文档方式

变量名	类 型	静态	数组	备 注
文件路径	文本型
文件号	整数型
行号	整数型

文件路径 ＝ 取运行目录 () ＋ “\test.txt”  ' 测试用的文本文档
如果真 (文件是否存在 (文件路径))
文件号 ＝ 打开文件 (文件路径, #读入, )
移到文件首 (文件号)
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
行号 ＝ 行号 ＋ 1
判断 (行号 ＝ 1)
编辑框1.内容 ＝ 读入一行 (文件号)
判断 (行号 ＝ 2)
编辑框2.内容 ＝ 读入一行 (文件号)
判断 (行号 ＝ 3)
编辑框3.内容 ＝ 读入一行 (文件号)
判断 (行号 ＝ 4)
编辑框4.内容 ＝ 读入一行 (文件号)
' 可以继续，直到文件最后一行
跳出循环 ()

判断循环尾 ()
关闭文件 (文件号)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 配置项方式 ()<br /> ' 文本文档方式 ()<br /> <br /> .子程序 配置项方式<br /> .局部变量 配置路径, 文本型<br /> <br /> 配置路径 ＝ 取运行目录 () ＋ “\test.ini”  ' 测试用的配置项文件<br /> .如果真 (取反 (文件是否存在 (配置路径)))<br />     写配置项 (配置路径, “NAME1”, “value”, “A”)<br />     写配置项 (配置路径, “NAME2”, “value”, “B”)<br />     写配置项 (配置路径, “NAME3”, “value”, “C”)<br />     写配置项 (配置路径, “NAME4”, “value”, “D”)<br /> .如果真结束<br /> 编辑框1.内容 ＝ 读配置项 (配置路径, “NAME1”, “value”, )<br /> 编辑框2.内容 ＝ 读配置项 (配置路径, “NAME2”, “value”, )<br /> 编辑框3.内容 ＝ 读配置项 (配置路径, “NAME3”, “value”, )<br /> 编辑框4.内容 ＝ 读配置项 (配置路径, “NAME4”, “value”, )<br /> <br /> .子程序 文本文档方式<br /> .局部变量 文件路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 行号, 整数型<br /> <br /> 文件路径 ＝ 取运行目录 () ＋ “\test.txt”  ' 测试用的文本文档<br /> .如果真 (文件是否存在 (文件路径))<br />     文件号 ＝ 打开文件 (文件路径, #读入, )<br />     移到文件首 (文件号)<br />     .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />         行号 ＝ 行号 ＋ 1<br />         .判断开始 (行号 ＝ 1)<br />             编辑框1.内容 ＝ 读入一行 (文件号)<br />         .判断 (行号 ＝ 2)<br />             编辑框2.内容 ＝ 读入一行 (文件号)<br />         .判断 (行号 ＝ 3)<br />             编辑框3.内容 ＝ 读入一行 (文件号)<br />         .判断 (行号 ＝ 4)<br />             编辑框4.内容 ＝ 读入一行 (文件号)<br />         .默认<br />             ' 可以继续，直到文件最后一行<br />             跳出循环 ()<br />         .判断结束<br /> <br />     .判断循环尾 ()<br />     关闭文件 (文件号)

提供两种方式测试，希望能帮到你。

春林

分割文本 放入编辑框不就是行了 或者直接读配置文件

suyunsq

先换行符分割，然后判断内容如果内容＝A则编辑框1的内容

275535028

春林 发表于 2024-11-2 20:27
分割文本 放入编辑框不就是行了 或者直接读配置文件

能帮忙修改下吗  实在不懂

lufanjingyi

分割文本   然后填入

背靠背拥抱

1.e (948.77 KB, 下载次数: 5)

2024-11-2 21:28 上传

点击文件名下载附件
新建 文本文档.txt (10 Bytes, 下载次数: 2)

2024-11-2 21:28 上传

点击文件名下载附件
这个应该是吧

275535028

背靠背拥抱 发表于 2024-11-2 21:29
这个应该是吧

还差一点！就是回车键发送出去  发送A再发送B接着发送D

背靠背拥抱

275535028 发表于 2024-11-2 21:39
还差一点！就是回车键发送出去  发送A再发送B接着发送D

按一下回车键，然后全部按顺序发送，，还是说按一下就发送一个

275535028

背靠背拥抱 发表于 2024-11-2 21:41
按一下回车键，然后全部按顺序发送，，还是说按一下就发送一个

一个一个发送！而且TXT里面有可能不止ABCD  有可能第一句就是：你好啊  第二句是：吃饭了吗