远程读取到组合框里求助

小马大大 · 发表于 2025-2-28 14:11:44

求助.rar (1.92 MB, 下载次数: 4)

是可可吖 · 发表于 2025-2-28 14:11:45

小马大大发表于 2025-3-21 21:12
程序关闭了进程还在麻烦帮我优化下

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

窗口1.可视＝真
窗口1.销毁 (真)

青春已不再 · 发表于 2025-2-28 14:37:32

你都有服务器了要配置文件干什么直接用数据库不就可以了去定制区吧你这一个小东西，整个一个是求助帖来的

小马大大 · 发表于 2025-2-28 15:06:14

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_连接设备_被单击			连接设备

如果 (连接设备.标题＝ “连接设备”)

连接设备.标题＝ “关闭设备”

端口1.停止 ()

如果 (端口1.启动 () ＝真)

状态指示灯.填充颜色＝ #绿色

状态指示灯.填充颜色＝ #灰色

如果真 (连接设备.标题＝ “关闭设备”)

如果真 (状态指示灯.填充颜色＝ #灰色 )

连接设备.标题＝ “连接设备”

信息框 (“连接设备失败，请检查端口是否被占用！”, 0, “警告”, )

子程序名	返回值类型	公开	备注
_组合框_产品名_列表项被选择

变量名	类型	静态	数组	备注
远程地址	文本型
文件内容	文本型
产品名列表	文本型		0
i	整数型
byteContent	字节集

' 设置远程地址
远程地址＝ “http://wz258.340126.com/chanping.txt”
' 读取远程文件内容，返回字节集
byteContent ＝ HTTP读文件 (远程地址)
' 检查是否成功读取文件内容

如果 (取字节集长度 (byteContent) ＝ 0)

信息框 (“无法读取远程文件，请检查网络或地址是否正确！”, 0, “提示”, )

返回 ()

' 将字节集转换为文本型
文件内容＝到文本 (byteContent)
' 提取 [产品名] 后面的产品名
产品名列表＝提取产品名 (文件内容)
' 清空组合框原有内容
组合框_产品名.清空 ()
' 将产品名添加到组合框中

计次循环首 (取数组成员数 (产品名列表), i)

组合框_产品名.加入项目 (产品名列表 [i], )

计次循环尾 ()

子程序名	返回值类型	公开	备注
提取产品名	文本型		"0"
参数名	类型	参考	可空	数组	备注
文件内容	文本型

变量名	类型	静态	数组	备注
产品名列表	文本型		0
startPos	整数型
endPos	整数型
currentPos	整数型

currentPos ＝ 1

判断循环首 (真)

startPos ＝寻找文本 (文件内容, “[产品名]”, currentPos, 假)

如果 (startPos ＝ -1)

跳出循环 ()

startPos ＝ startPos ＋取文本长度 (“[产品名]”)

endPos ＝寻找文本 (文件内容, #换行符, startPos, 假)

如果 (endPos ＝ -1)

endPos ＝取文本长度 (文件内容) ＋ 1

加入成员 (产品名列表, 取文本中间 (文件内容, startPos, endPos － startPos))

currentPos ＝ endPos

判断循环尾 ()
返回 (产品名列表)

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br />
.支持库 internet<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _连接设备_被单击, , , 连接设备<br />
<br />
.如果 (连接设备.标题 ＝ “连接设备”)<br />
    连接设备.标题 ＝ “关闭设备”<br />
    端口1.停止 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
.如果 (端口1.启动 () ＝ 真)<br />
    状态指示灯.填充颜色 ＝ #绿色<br />
.否则<br />
    状态指示灯.填充颜色 ＝ #灰色<br />
.如果结束<br />
<br />
<br />
.如果真 (连接设备.标题 ＝ “关闭设备”)<br />
    .如果真 (状态指示灯.填充颜色 ＝ #灰色)<br />
        连接设备.标题 ＝ “连接设备”<br />
        信息框 (“连接设备失败，请检查端口是否被占用！”, 0, “警告”, )<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _组合框_产品名_列表项被选择<br />
.局部变量 远程地址, 文本型<br />
.局部变量 文件内容, 文本型<br />
.局部变量 产品名列表, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 byteContent, 字节集<br />
<br />
' 设置远程地址<br />
远程地址 ＝ “http://wz258.340126.com/chanping.txt”<br />
<br />
' 读取远程文件内容，返回字节集<br />
byteContent ＝ HTTP读文件 (远程地址)<br />
<br />
' 检查是否成功读取文件内容<br />
.如果 (取字节集长度 (byteContent) ＝ 0)<br />
    信息框 (“无法读取远程文件，请检查网络或地址是否正确！”, 0, “提示”, )<br />
    返回 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 将字节集转换为文本型<br />
文件内容 ＝ 到文本 (byteContent)<br />
<br />
' 提取 [产品名] 后面的产品名<br />
产品名列表 ＝ 提取产品名 (文件内容)<br />
<br />
' 清空组合框原有内容<br />
组合框_产品名.清空 ()<br />
<br />
' 将产品名添加到组合框中<br />
.计次循环首 (取数组成员数 (产品名列表), i)<br />
    组合框_产品名.加入项目 (产品名列表 <i>, )<br />
.计次循环尾 ()<br />
<br />
<br />
.子程序 提取产品名, 文本型, , "0"<br />
.参数 文件内容, 文本型<br />
.局部变量 产品名列表, 文本型, , "0"<br />
.局部变量 startPos, 整数型<br />
.局部变量 endPos, 整数型<br />
.局部变量 currentPos, 整数型<br />
<br />
currentPos ＝ 1<br />
.判断循环首 (真)<br />
    startPos ＝ 寻找文本 (文件内容, “[产品名]”, currentPos, 假)<br />
    .如果 (startPos ＝ -1)<br />
        跳出循环 ()<br />
    .否则<br />
<br />
    .如果结束<br />
    startPos ＝ startPos ＋ 取文本长度 (“[产品名]”)<br />
    endPos ＝ 寻找文本 (文件内容, #换行符, startPos, 假)<br />
    .如果 (endPos ＝ -1)<br />
        endPos ＝ 取文本长度 (文件内容) ＋ 1<br />
    .否则<br />
<br />
    .如果结束<br />
    加入成员 (产品名列表, 取文本中间 (文件内容, startPos, endPos － startPos))<br />
    currentPos ＝ endPos<br />
.判断循环尾 ()<br />
返回 (产品名列表)

小马大大 · 发表于 2025-2-28 15:08:09

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_连接设备_被单击			连接设备

如果 (连接设备.标题＝ “连接设备”)

连接设备.标题＝ “关闭设备”

端口1.停止 ()

如果 (端口1.启动 () ＝真)

状态指示灯.填充颜色＝ #绿色

状态指示灯.填充颜色＝ #灰色

如果真 (连接设备.标题＝ “关闭设备”)

如果真 (状态指示灯.填充颜色＝ #灰色 )

连接设备.标题＝ “连接设备”

信息框 (“连接设备失败，请检查端口是否被占用！”, 0, “警告”, )

子程序名	返回值类型	公开	备注
_组合框_产品名_列表项被选择

变量名	类型	静态	数组	备注
远程地址	文本型
文件内容	文本型
产品名列表	文本型		0
i	整数型
byteContent	字节集

' 设置远程地址
远程地址＝ “http://wz258.340126.com/chanping.txt”
' 读取远程文件内容，返回字节集
byteContent ＝ HTTP读文件 (远程地址)
' 检查是否成功读取文件内容

如果 (取字节集长度 (byteContent) ＝ 0)

信息框 (“无法读取远程文件，请检查网络或地址是否正确！”, 0, “提示”, )

返回 ()

' 将字节集转换为文本型
文件内容＝到文本 (byteContent)
' 提取 [产品名] 后面的产品名
产品名列表＝提取产品名 (文件内容)
' 清空组合框原有内容
组合框_产品名.清空 ()
' 将产品名添加到组合框中

计次循环首 (取数组成员数 (产品名列表), i)

组合框_产品名.加入项目 (产品名列表 [i], )

计次循环尾 ()

子程序名	返回值类型	公开	备注
提取产品名	文本型		"0"
参数名	类型	参考	可空	数组	备注
文件内容	文本型

变量名	类型	静态	数组	备注
产品名列表	文本型		0
startPos	整数型
endPos	整数型
currentPos	整数型

currentPos ＝ 1

判断循环首 (真)

startPos ＝寻找文本 (文件内容, “[产品名]”, currentPos, 假)

如果 (startPos ＝ -1)

跳出循环 ()

startPos ＝ startPos ＋取文本长度 (“[产品名]”)

endPos ＝寻找文本 (文件内容, #换行符, startPos, 假)

如果 (endPos ＝ -1)

endPos ＝取文本长度 (文件内容) ＋ 1

加入成员 (产品名列表, 取文本中间 (文件内容, startPos, endPos － startPos))

currentPos ＝ endPos

判断循环尾 ()
返回 (产品名列表)
正在统计需要编译的子程序
正在编译...
错误 (10044): 不能将“文本型”数据转换到“文本型数组”数据。

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br />
.支持库 internet<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _连接设备_被单击, , , 连接设备<br />
<br />
.如果 (连接设备.标题 ＝ “连接设备”)<br />
    连接设备.标题 ＝ “关闭设备”<br />
    端口1.停止 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
.如果 (端口1.启动 () ＝ 真)<br />
    状态指示灯.填充颜色 ＝ #绿色<br />
.否则<br />
    状态指示灯.填充颜色 ＝ #灰色<br />
.如果结束<br />
<br />
<br />
.如果真 (连接设备.标题 ＝ “关闭设备”)<br />
    .如果真 (状态指示灯.填充颜色 ＝ #灰色)<br />
        连接设备.标题 ＝ “连接设备”<br />
        信息框 (“连接设备失败，请检查端口是否被占用！”, 0, “警告”, )<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _组合框_产品名_列表项被选择<br />
.局部变量 远程地址, 文本型<br />
.局部变量 文件内容, 文本型<br />
.局部变量 产品名列表, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 byteContent, 字节集<br />
<br />
' 设置远程地址<br />
远程地址 ＝ “http://wz258.340126.com/chanping.txt”<br />
<br />
' 读取远程文件内容，返回字节集<br />
byteContent ＝ HTTP读文件 (远程地址)<br />
<br />
' 检查是否成功读取文件内容<br />
.如果 (取字节集长度 (byteContent) ＝ 0)<br />
    信息框 (“无法读取远程文件，请检查网络或地址是否正确！”, 0, “提示”, )<br />
    返回 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 将字节集转换为文本型<br />
文件内容 ＝ 到文本 (byteContent)<br />
<br />
' 提取 [产品名] 后面的产品名<br />
产品名列表 ＝ 提取产品名 (文件内容)<br />
<br />
' 清空组合框原有内容<br />
组合框_产品名.清空 ()<br />
<br />
' 将产品名添加到组合框中<br />
.计次循环首 (取数组成员数 (产品名列表), i)<br />
    组合框_产品名.加入项目 (产品名列表 <i>, )<br />
.计次循环尾 ()<br />
<br />
<br />
.子程序 提取产品名, 文本型, , "0"<br />
.参数 文件内容, 文本型<br />
.局部变量 产品名列表, 文本型, , "0"<br />
.局部变量 startPos, 整数型<br />
.局部变量 endPos, 整数型<br />
.局部变量 currentPos, 整数型<br />
<br />
currentPos ＝ 1<br />
.判断循环首 (真)<br />
    startPos ＝ 寻找文本 (文件内容, “[产品名]”, currentPos, 假)<br />
    .如果 (startPos ＝ -1)<br />
        跳出循环 ()<br />
    .否则<br />
<br />
    .如果结束<br />
    startPos ＝ startPos ＋ 取文本长度 (“[产品名]”)<br />
    endPos ＝ 寻找文本 (文件内容, #换行符, startPos, 假)<br />
    .如果 (endPos ＝ -1)<br />
        endPos ＝ 取文本长度 (文件内容) ＋ 1<br />
    .否则<br />
<br />
    .如果结束<br />
    加入成员 (产品名列表, 取文本中间 (文件内容, startPos, endPos － startPos))<br />
    currentPos ＝ endPos<br />
.判断循环尾 ()<br />
返回 (产品名列表)<br />
<br />
正在统计需要编译的子程序<br />
正在编译...<br />
错误(10044): 不能将“文本型”数据转换到“文本型 数组”数据。

小马大大 · 发表于 2025-2-28 18:22:54

初学者还很多不懂

新建文件夹.rar (1.81 MB, 下载次数: 0)

小马大大 · 发表于 2025-3-1 01:52:26

本来想读取/xxx.txt 里的搞了好久没成功

就试试用属性里的表项读取看看可以读取

求大神指导

66.e (995.01 KB, 下载次数: 0)

小马大大 · 发表于 2025-3-1 01:55:12

运行了程序设置了快捷键 alt+a 保存时只保存了 a

小马大大 · 发表于 2025-3-1 12:23:22

需求描述：
功能：串口跟 MODBUS 双协议通信

http://wz258.340126.com/chanping.txt 打开做参考

软件界面

http://wz258.340126.com/666.rar

功能自己开发50%了两通信协议有源码可以套源码

远程地址下 1.txt 产品名：1号产品 2号产品 3号产品

点击连接设备选择 2号产品调用 [2号产品]

串口号是调用协议1=COM 处调用[COM]

协议2=modbus 处调用 [modbus]
执行循序 01路快捷键按下次数+1 （保存目录下 /.ini）每1分钟自保存一次
持续多少毫秒第二次执行间隔多少毫秒（持续时间跟间隔保存目录下 /.ini）

暂停为暂时停止所有程序执行再次点击继续执行

点动：点击一次触发一次（点击点动是先判断程序是否正在执行，正在执行则先暂停方可点动功能）

程序运行优先级别为下望上（列如有12路则：12路优先执行 01路为最后）

软件控制继电器: 通断

匠迹众包: https://bbs.125.la/dtask/26813.html 有接单的吗？

是可可吖 · 发表于 2025-3-6 23:19:33

解决了吗

		自动登录	找回密码
密码			注册

[已解决] 远程读取到组合框里求助

最佳答案

评分