求助远程txt里调用参数 求教

小马大大

求助远程txt里调用参数 求教




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

2025-3-5 01:20 上传

点击文件名下载附件

whj888555

  

子程序名	返回值类型	公开	备 注
加入组合框2

变量名	类 型	静态	数组	备 注
sdfas	文本型
数据	文本型
位置1	整数型
位置2	整数型
数目	整数型
数据2	文本型
网址	文本型
位置3	整数型
位置4	整数型

网址 ＝ “http://wz258.340126.com/chanping.txt”
数据 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))
' 调试输出 (数据)
位置1 ＝ 寻找文本 (数据, “产品名=”, , 假)
判断循环首 (位置1 ≠ -1)
位置2 ＝ 寻找文本 (数据, #换行符, 位置1, 假)
数目 ＝ 位置2 － 位置1
数据2 ＝ 取文本中间 (数据, 位置1, 数目)
调试输出 (数据2)
位置3 ＝ 寻找文本 (数据2, “=”, , 假)
位置4 ＝ 取文本长度 (数据2)
数目 ＝ 位置4 － 位置3
数据2 ＝ 取文本右边 (数据2, 数目)
调试输出 (数据2)
组合框2.加入项目 (数据2, )
位置1 ＝ 寻找文本 (数据, “产品名=”, 位置2, 假)
判断循环尾 ()

i支持库列表	支持库注释
iconv	编码转换支持库
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iconv<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 加入组合框2<br /> .局部变量 sdfas, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 位置1, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 数目, 整数型<br /> .局部变量 数据2, 文本型<br /> .局部变量 网址, 文本型<br /> .局部变量 位置3, 整数型<br /> .局部变量 位置4, 整数型<br /> <br /> <br /> <br /> 网址 ＝ “http://wz258.340126.com/chanping.txt”<br /> 数据 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))<br /> ' 调试输出 (数据)<br /> <br /> 位置1 ＝ 寻找文本 (数据, “产品名=”, , 假)<br /> .判断循环首 (位置1 ≠ -1)<br /> <br />     位置2 ＝ 寻找文本 (数据, #换行符, 位置1, 假)<br />     数目 ＝ 位置2 － 位置1<br />     数据2 ＝ 取文本中间 (数据, 位置1, 数目)<br />     调试输出 (数据2)<br /> <br /> <br />     位置3 ＝ 寻找文本 (数据2, “=”, , 假)<br />     位置4 ＝ 取文本长度 (数据2)<br />     数目 ＝ 位置4 － 位置3<br /> <br />     数据2 ＝ 取文本右边 (数据2, 数目)<br /> <br /> <br />     调试输出 (数据2)<br />     组合框2.加入项目 (数据2, )<br />     位置1 ＝ 寻找文本 (数据, “产品名=”, 位置2, 假)<br /> <br /> .判断循环尾 ()

如果远程的配置文件不能修改格式只能这样了，

如果可以修改这样格式的话这样就方便的多，就可以临时保存到本地然后用  读配置项 (, , , ) 来完成
[产品名]    //调用组合款里
产品名1=1号产品
产品名2=2号产品
产品名3=3号产品

CigaretteWine

读配置项
易语言自带的

高先生

网页_访问  然后取呗 文本操作

补充内容 (2025-3-5 03:15):
或者直接写到文件（"c:/1.ini",网页_访问_对象()）  
然后在取配置项

whj888555

  

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

变量名	类 型	静态	数组	备 注
网址	文本型

网址 ＝ “http://wz258.340126.com/chanping.txt”
编辑框1.内容 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))

i支持库列表	支持库注释
iconv	编码转换支持库
internet	互联网支持库

.版本 2<br /> .支持库 iconv<br /> .支持库 internet<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 网址, 文本型<br /> <br /> <br /> 网址 ＝ “http://wz258.340126.com/chanping.txt”<br /> 编辑框1.内容 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))

这样读到本地里就自己加在下拉框了吧

走一回

你这个文件明显是配置文件，有固定的配置名称。

cmaks

11.e (979.13 KB, 下载次数: 2)

2025-3-5 09:05 上传

点击文件名下载附件
不知道是你不小心、还是故意的；产品配置项名都是重复的，如果不重复就读配置项（方式一），重复就取文本来操作

憨憨问号

先用http读文件（“远程txt地址”），然后写到文件（）

补充内容 (2025-3-5 10:46):
然后直接读配置项（）
就行了，这个格式就是易语言的配置项，应该可以直接读取吧

小马大大

选择了 产品 调用对应  端口处

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

2025-3-5 15:11 上传

点击文件名下载附件

小马大大

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
设备操作	设备操作类
设备数组	_硬件信息
ID池	文本型
配置文件数据	文本型

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

连接设备.标题 ＝ “连接设备”
状态指示灯.填充颜色 ＝ # **
子程序1 ()
组合框2 ()

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
x	整数型

组合框1.清空 ()
设备操作.枚举设备信息 (设备数组, #设备类型_端口 )
计次循环首 (取数组成员数 (设备数组), i)
组合框1.加入项目 (设备数组 [i].友好名, )
计次循环尾 ()
计次循环首 (组合框1.取项目数 (), x)
如果真 (寻找文本 (组合框1.取项目文本 (x), “通讯端口”, , 假) ＝ -1)
组合框1.现行选中项 ＝ x － 1

计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
选中串口	文本型
选中Product	文本型
串口Config	文本型
波特率	整数型
数据位	整数型
停止位	整数型
奇偶校验	逻辑型
协议类型	文本型

选中串口 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
选中Product ＝ 组合框2.取项目文本 (组合框2.现行选中项)
如果 (连接设备.标题 ＝ “连接设备”)
状态指示灯.填充颜色 ＝ #绿色
串口Config ＝ 获取串口配置 (选中Product)
如果 (串口Config ≠ “”)
波特率 ＝ 到整数 (取文本右边 (取文本分割 (串口Config, “波特率=”, 2), 取文本长度 (取文本分割 (串口Config, “波特率=”, 2)) - 1))
数据位 ＝ 到整数 (取文本右边 (取文本分割 (串口Config, “数据位=”, 2), 取文本长度 (取文本分割 (串口Config, “数据位=”, 2)) - 1))
停止位 ＝ 到整数 (取文本右边 (取文本分割 (串口Config, “停止位=”, 2), 取文本长度 (取文本分割 (串口Config, “停止位=”, 2)) - 1))
奇偶校验 ＝ 取文本右边 (取文本分割 (串口Config, “奇偶校验=”, 2), 取文本长度 (取文本分割 (串口Config, “奇偶校验=”, 2)) - 1) ＝ “有”
协议类型 ＝ 取文本右边 (取文本分割 (串口Config, “协议1=”, 2), 取文本长度 (取文本分割 (串口Config, “协议1=”, 2)) - 1)
如果 (mk_启动串口 (到整数 (文本_取出中间文本 (选中串口, “(COM”, “)”)), 波特率, 数据位, 停止位, 奇偶校验) ＝ 真)
组合框1.禁止 ＝ 真
组合框2.禁止 ＝ 真
连接设备.标题 ＝ “关闭设备”
信息框 (“连接设备失败”, 0, , )
状态指示灯.填充颜色 ＝ # **

信息框 (“串口配置信息解析错误”, 0, , )
状态指示灯.填充颜色 ＝ # **
.尝试结束
信息框 (“未获取到串口配置”, 0, , )
状态指示灯.填充颜色 ＝ # **

mk_关闭串口 (到整数 (文本_取出中间文本 (选中串口, “(COM”, “)”)))
组合框1.禁止 ＝ 假
组合框2.禁止 ＝ 假
状态指示灯.填充颜色 ＝ # **
连接设备.标题 ＝ “连接设备”

子程序名	返回值类型	公开	备 注
组合框2

变量名	类 型	静态	数组	备 注
网址	文本型
数据	文本型
位置1	整数型
位置2	整数型
数据2	文本型
重试次数	整数型

网址 ＝ “http://wz258.340126.com/chanping.txt”
数据 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))
如果 (数据 ＝ “”)
重试次数 ＝ 3  ' 设置重试次数为3次
判断循环首 (重试次数 ＞ 0)
数据 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))
如果 (数据 ≠ “”)
跳出循环 ()


重试次数 ＝ 重试次数 － 1
判断循环尾 ()
如果 (数据 ＝ “”)
信息框 (“多次读取远程配置文件失败”, 0, , )
返回 ()



配置文件数据 ＝ 数据  ' 存储配置文件数据
组合框2.清空 ()
位置1 ＝ 寻找文本 (数据, “[产品名]”, , 假)
如果 (位置1 ≠ -1)
位置1 ＝ 寻找文本 (数据, “产品名=”, 位置1, 假)
判断循环首 (位置1 ≠ -1)
位置2 ＝ 寻找文本 (数据, #换行符, 位置1, 假)
如果 (位置2 ＝ -1)
位置2 ＝ 取文本长度 (数据)


数据2 ＝ 取文本中间 (数据, 位置1 + 5, 位置2 - 位置1 - 5)
组合框2.加入项目 (数据2, )
位置1 ＝ 寻找文本 (数据, “产品名=”, 位置2, 假)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
获取串口配置	文本型
参数名	类 型	参考	可空	数组	备 注
产品名	文本型

变量名	类 型	静态	数组	备 注
位置1	整数型
位置2	整数型
配置内容	文本型

位置1 ＝ 寻找文本 (配置文件数据, “[” + 产品名 + “]”, , 假)
如果 (位置1 ≠ -1)
位置1 ＝ 寻找文本 (配置文件数据, #换行符, 位置1, 假) + 1
位置2 ＝ 寻找文本 (配置文件数据, “[”, 位置1, 假)
如果 (位置2 ＝ -1)
位置2 ＝ 取文本长度 (配置文件数据)


配置内容 ＝ 取文本中间 (配置文件数据, 位置1, 位置2 - 位置1)
返回 (配置内容)
返回 (“”)

子程序名	返回值类型	公开	备 注
mk_启动串口	逻辑型
参数名	类 型	参考	可空	数组	备 注
串口号	整数型
波特率	整数型
数据位	整数型
停止位	整数型
奇偶校验	逻辑型

串口1.端口号 ＝ 串口号
串口1.波特率 ＝ 波特率
串口1.数据位 ＝ 数据位
串口1.停止位 ＝ 停止位
串口1.奇偶校验 ＝ 奇偶校验
返回 (串口1.打开 ())  ' 尝试打开串口并返回结果

子程序名	返回值类型	公开	备 注
mk_关闭串口
参数名	类 型	参考	可空	数组	备 注
串口号	整数型

串口1.关闭 ()  ' 关闭指定串口号的串口

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 设备操作, 设备操作类<br /> .程序集变量 设备数组, _硬件信息<br /> .程序集变量 ID池, 文本型<br /> .程序集变量 配置文件数据, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 连接设备.标题 ＝ “连接设备”<br /> 状态指示灯.填充颜色 ＝ #**<br /> 子程序1 ()<br /> 组合框2 ()<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> <br /> 组合框1.清空 ()<br /> 设备操作.枚举设备信息 (设备数组, #设备类型_端口)<br /> .计次循环首 (取数组成员数 (设备数组), i)<br />     组合框1.加入项目 (设备数组 <i>.友好名, )<br /> .计次循环尾 ()<br /> .计次循环首 (组合框1.取项目数 (), x)<br />     .如果真 (寻找文本 (组合框1.取项目文本 (x), “通讯端口”, , 假) ＝ -1)<br />         组合框1.现行选中项 ＝ x － 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _连接设备_被单击<br /> .局部变量 选中串口, 文本型<br /> .局部变量 选中Product, 文本型<br /> .局部变量 串口Config, 文本型<br /> .局部变量 波特率, 整数型<br /> .局部变量 数据位, 整数型<br /> .局部变量 停止位, 整数型<br /> .局部变量 奇偶校验, 逻辑型<br /> .局部变量 协议类型, 文本型<br /> <br /> 选中串口 ＝ 组合框1.取项目文本 (组合框1.现行选中项)<br /> 选中Product ＝ 组合框2.取项目文本 (组合框2.现行选中项)<br /> .如果 (连接设备.标题 ＝ “连接设备”)<br />     状态指示灯.填充颜色 ＝ #绿色<br />     串口Config ＝ 获取串口配置 (选中Product)<br />     .如果 (串口Config ≠ “”)<br />         波特率 ＝ 到整数 (取文本右边 (取文本分割 (串口Config, “波特率=”, 2), 取文本长度 (取文本分割 (串口Config, “波特率=”, 2)) - 1))<br />         数据位 ＝ 到整数 (取文本右边 (取文本分割 (串口Config, “数据位=”, 2), 取文本长度 (取文本分割 (串口Config, “数据位=”, 2)) - 1))<br />         停止位 ＝ 到整数 (取文本右边 (取文本分割 (串口Config, “停止位=”, 2), 取文本长度 (取文本分割 (串口Config, “停止位=”, 2)) - 1))<br />         奇偶校验 ＝ 取文本右边 (取文本分割 (串口Config, “奇偶校验=”, 2), 取文本长度 (取文本分割 (串口Config, “奇偶校验=”, 2)) - 1) ＝ “有”<br />         协议类型 ＝ 取文本右边 (取文本分割 (串口Config, “协议1=”, 2), 取文本长度 (取文本分割 (串口Config, “协议1=”, 2)) - 1)<br />         .如果 (mk_启动串口 (到整数 (文本_取出中间文本 (选中串口, “(COM”, “)”)), 波特率, 数据位, 停止位, 奇偶校验) ＝ 真)<br />             组合框1.禁止 ＝ 真<br />             组合框2.禁止 ＝ 真<br />             连接设备.标题 ＝ “关闭设备”<br />         .否则<br />             信息框 (“连接设备失败”, 0, , )<br />             状态指示灯.填充颜色 ＝ #**<br />         .如果结束<br /> <br />     .否则<br />         信息框 (“串口配置信息解析错误”, 0, , )<br />         状态指示灯.填充颜色 ＝ #**<br />         .尝试结束<br />         信息框 (“未获取到串口配置”, 0, , )<br />         状态指示灯.填充颜色 ＝ #**<br />     .如果结束<br /> <br /> .否则<br />     mk_关闭串口 (到整数 (文本_取出中间文本 (选中串口, “(COM”, “)”)))<br />     组合框1.禁止 ＝ 假<br />     组合框2.禁止 ＝ 假<br />     状态指示灯.填充颜色 ＝ #**<br />     连接设备.标题 ＝ “连接设备”<br /> .如果结束<br /> <br /> <br /> .子程序 组合框2<br /> .局部变量 网址, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 位置1, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 数据2, 文本型<br /> .局部变量 重试次数, 整数型<br /> <br /> 网址 ＝ “http://wz258.340126.com/chanping.txt”<br /> 数据 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))<br /> .如果 (数据 ＝ “”)<br />     重试次数 ＝ 3  '设置重试次数为3次<br />     .判断循环首 (重试次数 ＞ 0)<br />         数据 ＝ 到文本 (编码转换 (HTTP读文件 (网址), #编码_UTF_8, #编码_GB2312, ))<br />         .如果 (数据 ≠ “”)<br />             跳出循环 ()<br />         .否则<br /> <br />         .如果结束<br />         重试次数 ＝ 重试次数 － 1<br />     .判断循环尾 ()<br />     .如果 (数据 ＝ “”)<br />         信息框 (“多次读取远程配置文件失败”, 0, , )<br />         返回 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .否则<br /> .如果结束<br /> 配置文件数据 ＝ 数据  '存储配置文件数据<br /> 组合框2.清空 ()<br /> 位置1 ＝ 寻找文本 (数据, “[产品名]”, , 假)<br /> .如果 (位置1 ≠ -1)<br />     位置1 ＝ 寻找文本 (数据, “产品名=”, 位置1, 假)<br />     .判断循环首 (位置1 ≠ -1)<br />         位置2 ＝ 寻找文本 (数据, #换行符, 位置1, 假)<br />         .如果 (位置2 ＝ -1)<br />             位置2 ＝ 取文本长度 (数据)<br />         .否则<br /> <br />         .如果结束<br />         数据2 ＝ 取文本中间 (数据, 位置1 + 5, 位置2 - 位置1 - 5)<br />         组合框2.加入项目 (数据2, )<br />         位置1 ＝ 寻找文本 (数据, “产品名=”, 位置2, 假)<br />     .判断循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 获取串口配置, 文本型<br /> .参数 产品名, 文本型<br /> .局部变量 位置1, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 配置内容, 文本型<br /> <br /> 位置1 ＝ 寻找文本 (配置文件数据, “[” + 产品名 + “]”, , 假)<br /> .如果 (位置1 ≠ -1)<br />     位置1 ＝ 寻找文本 (配置文件数据, #换行符, 位置1, 假) + 1<br />     位置2 ＝ 寻找文本 (配置文件数据, “[”, 位置1, 假)<br />     .如果 (位置2 ＝ -1)<br />         位置2 ＝ 取文本长度 (配置文件数据)<br />     .否则<br /> <br />     .如果结束<br />     配置内容 ＝ 取文本中间 (配置文件数据, 位置1, 位置2 - 位置1)<br />     返回 (配置内容)<br /> .否则<br />     返回 (“”)<br /> .如果结束<br /> <br /> <br /> .子程序 mk_启动串口, 逻辑型<br /> .参数 串口号, 整数型<br /> .参数 波特率, 整数型<br /> .参数 数据位, 整数型<br /> .参数 停止位, 整数型<br /> .参数 奇偶校验, 逻辑型<br /> <br /> 串口1.端口号 ＝ 串口号<br /> 串口1.波特率 ＝ 波特率<br /> 串口1.数据位 ＝ 数据位<br /> 串口1.停止位 ＝ 停止位<br /> 串口1.奇偶校验 ＝ 奇偶校验<br /> 返回 (串口1.打开 ())  '尝试打开串口并返回结果<br /> <br /> .子程序 mk_关闭串口<br /> .参数 串口号, 整数型<br /> <br /> 串口1.关闭 ()  '关闭指定串口号的串口

整合后




正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“取文本分割”。
编译现行易程序失败或被中止!