易语⾔读取计算机配置,易语⾔取所有配置节名和配置项名本视频教程演⽰了取配置节名称、取配置项名称、取所有配置节和所有配置项名称,通过了精易模块和多种⽅法来实现。
视频链接:
511遇见易语⾔教程
教程源码:
.版本 2
.⽀持库 spec
.程序集 窗⼝程序集_启动窗⼝
.⼦程序 _按钮1_被单击
.局部变量 序号, 整数型
.如果 (⽂件是否存在 (取运⾏⽬录 () + “\number.ini”) = 真)
序号 = 到整数 (读配置项 (取运⾏⽬录 () + “\number.ini”, “保存序号”, “序号”, ))
写配置项 (取运⾏⽬录 () + “\song.ini”, “歌曲”, 到⽂本 (序号), 编辑框1.内容)
序号 = 序号 + 1
写配置项 (取运⾏⽬录 () + “\number.ini”, “保存序号”, “序号”, 到⽂本 (序号))
.否则
写配置项 (取运⾏⽬录 () + “\number.ini”, “保存序号”, “序号”, 到⽂本 (序号))
序号 = 到整数 (读配置项 (取运⾏⽬录 () + “\number.ini”, “保存序号”, “序号”, ))
写配置项 (取运⾏⽬录 () + “\song.ini”, “歌曲”, 到⽂本 (序号), 编辑框1.内容)
序号 = 序号 + 1
写配置项 (取运⾏⽬录 () + “\number.ini”, “保存序号”, “序号”, 到⽂本 (序号))
.如果结束
.⼦程序 _按钮2_被单击
.局部变量 a, ⽂本型, , "0"
.局部变量 b, ⽂本型, , "0"
.局部变量 i, 整数型
⽂件_取配置节名数组 (取运⾏⽬录 () + “\song.ini”, a)
调试输出 (a)
.计次循环⾸ (取数组成员数 (a), i)
⽂件_取配置项名数组1 (取运⾏⽬录 () + “\song.ini”, a [i], b)
易语言教程2020调试输出 (a [i], b)
.计次循环尾 ()
.⼦程序 _按钮3_被单击
.局部变量 节名数组, ⽂本型, , "0"
.局部变量 i, 整数型
列表框1.清空 ()
节名数组 = 取配置节名 (取运⾏⽬录 () + “\song.ini”)
.如果 (取数组成员数 (节名数组) > 0)
.
计次循环⾸ (取数组成员数 (节名数组), i)
列表框1.加⼊项⽬ (节名数组 [i], )
.计次循环尾 ()
.否则
.如果结束
.⼦程序 _按钮4_被单击, , , 取配置节名-2
.局部变量 歌曲⽂本, ⽂本型
.局部变量 歌曲⽂本数组, ⽂本型, , "0"
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型
列表框2.清空 ()
歌曲⽂本 = 到⽂本 (读⼊⽂件 (取运⾏⽬录 () + “\song.ini”))
歌曲⽂本数组 = 分割⽂本 (歌曲⽂本, #换⾏符, )
a = 取数组成员数 (歌曲⽂本数组)
.计次循环⾸ (a, i)
b = 寻⽂本 (歌曲⽂本数组 [i], “=”, , 假)
.如果真 (取⽂本左边 (歌曲⽂本数组 [i], 1) = “[” 且 取⽂本右边 (歌曲⽂本数组 [i], 1) = “]”)
列表框2.加⼊项⽬ (⼦⽂本替换 (⼦⽂本替换 (歌曲⽂本数组 [i], “[”, “”, , , 真), “]”, “”, , , 真), )
.如果真结束
.计次循环尾 ()
.⼦程序 _按钮5_被单击, , , 取配置项名及数据
.
局部变量 歌曲⽂本, ⽂本型
.局部变量 歌曲⽂本数组, ⽂本型, , "0"
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型
列表框2.清空 ()
列表框1.清空 ()
歌曲⽂本 = 到⽂本 (读⼊⽂件 (取运⾏⽬录 () + “\song.ini”))
歌曲⽂本数组 = 分割⽂本 (歌曲⽂本, #换⾏符, )
a = 取数组成员数 (歌曲⽂本数组)
.计次循环⾸ (a, i)
b = 寻⽂本 (歌曲⽂本数组 [i], “=”, , 假)
.如果真 (b ≠ -1)
列表框2.加⼊项⽬ (取⽂本左边 (歌曲⽂本数组 [i], b - 1), )
' 列表框1.加⼊项⽬ (取⽂本右边 (歌曲⽂本数组 [i], 取⽂本长度 (歌曲⽂本数组 [i]) - 倒⽂本 (歌曲⽂本数组 [i], “=”, , 假)), )列表框1.加⼊项⽬ (取⽂本右边 (歌曲⽂本数组 [i], 取⽂本长度 (歌曲⽂本数组 [i]) - b), )
.如果真结束
.计次循环尾 ()
源码:511遇见易语⾔教程
511遇见易语⾔教程视频链接
易语⾔教程取所有配置节名和配置项名
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论