求大神帮忙解决提取列表内容1到6的中间文本

123520lc

.版本 2
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 所有窗口句柄, 文本型, , "0"
.局部变量 计次, 整数型

列表框1.清空 ()
所有窗口句柄 ＝ 取所有窗口列表 ()
.计次循环首 (取数组成员数 (所有窗口句柄), 计次)
.如果真 (取窗口标题 (到数值 (所有窗口句柄 [计次])) ≠ “”)
列表框1.加入项目 (取窗口标题 (到数值 (所有窗口句柄 [计次])), 到数值 (所有窗口句柄 [计次]))
.如果真结束

.计次循环尾 ()


.子程序 _按钮1_被单击
.局部变量 n, 整数型



列表框1.清空 ()
n ＝ 0

.计次循环首 (列表框1.取项目数 (), n)

' ↑↑↑文本_取出中间文本 (“】【”取这里面内容然后写配置“】”)←←←←
写配置项 (“D:\DH.ini”, “jmD”, 到文本 (n), 列表框1.取项目文本 (n))
.计次循环尾 ()


编辑框1.内容 ＝ 读配置项 (“D:\DH.ini”, “jmD”, “1”, )
编辑框2.内容 ＝ 读配置项 (“D:\DH.ini”, “jmD”, “2”, )
编辑框3.内容 ＝ 读配置项 (“D:\DH.ini”, “jmD”, “3”, )
编辑框4.内容 ＝ 读配置项 (“D:\DH.ini”, “jmD”, “4”, )
编辑框5.内容 ＝ 读配置项 (“D:\DH.ini”, “jmD”, “5”, )
编辑框6.内容 ＝ 读配置项 (“D:\DH.ini”, “jmD”, “6”, )

talentmu

123520lc 发表于 2013-11-2 17:23
我看不懂

没事，原始是给你看具体是怎么实现的，就当是了解，想简单实现呢，就是调用精易模块（模块懂得怎么调用吧，不会就百度哦），精易模块的地址：http://125.confly.eu.org/thread-13629606-1-1.html
1.点调用精易模块
2.把按钮子程序里的循环命令改成：
.计次循环首 (列表框1.取项目数 (), n)
    写配置项 (“D:\DH.ini”, “jmD”, 到文本 (n), 文本_取出中间文本 (列表框1.取项目文本 (n), “【”, “】”))
.计次循环尾 ()

talentmu

列表框1.清空 ()
n ＝ 0
.计次循环首 (列表框1.取项目数 (), n)
    写配置项 (“D:\DH.ini”, “jmD”, 到文本 (n), 列表框1.取项目文本 (n))
    ' 文本_取出中间文本 (“】【”取这里面内容然后写配置“】”)
.计次循环尾 ()

个人看法：你都本来是取到句柄了，但是为什么按钮块子程序，为什么要把列表里面的内容清空（红色字），然后你在循环写到配置项，那配置项肯定是空的不存在，那你之后怎么可能取到内容到编辑框呢。

123520lc

talentmu 发表于 2013-11-2 15:38
列表框1.清空 ()
n ＝ 0
.计次循环首 (列表框1.取项目数 (), n)

我发现了，然后怎么写提取中间文本

talentmu

123520lc 发表于 2013-11-2 16:12
我发现了，然后怎么写提取中间文本

取中间文本？有点听不懂的感觉，你的意思：
1.取列表框中的项目1和项目6之间（即项目2到项目5）内容吗？
2.还是项目1到项目6的每一个项目内容的特定内容，但是这样的话，每个句柄内容都是不一样的啊，没有共同的标记内容啊

调用格式： 〈文本型〉 取文本中间 （文本型 欲取其部分的文本，整数型 起始取出位置，整数型 欲取出字符的数目） - 系统核心支持库->文本操作

123520lc

talentmu 发表于 2013-11-2 16:24
取中间文本？有点听不懂的感觉，你的意思：
1.取列表框中的项目1和项目6之间（即项目2到项目5）内容吗？ ...

不是比如1~6窗口标题是：
易语言 【正在运行】 - C:\Documents and Settings\Administrator\桌面\怎么提取列表内容1到6的中间文本.e

终极一班3-第35集_在线视频观看_土豆网视频 科幻|偶像|言情 - 【360安全浏览器 6.2】

#pid5810349 - 【360安全浏览器 6.2】

取【这里面内容】

talentmu

好的，这样就很清楚了，有两种方法，一种原始的，一种直接调用精易模块
原始的：
你先用寻找文本命令，找出“【”和“】”这两个标记的所在文本中的位置，然后在用取文本中间命令，就可以取到你想要的了
具体如下：
定义3个整数型变量：左标记、右标记、长度
左标记=寻找文本（列表框1.取项目文本 (n),"【",,)+1
右标记=寻找文本（列表框1.取项目文本 (n),"】",,)
长度=右标记-左标记
要取文本=取文本中间（列表框1.取项目文本 (n),左标记,长度）

精易模块：
插入精易模块，直接用命令：
.版本 2

.子程序 文本_取中间_批量, 整数型, 公开, 比如：欲取全文本为<12345>,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”
.参数 源文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面标识文本, 文本型, , 3的前面为“2”
.参数 后面标识文本, 文本型, , 3的后面为“4”
.参数 存放取出文本的数组, 文本型, 可空 数组, 存放取出文本的数组
.参数 是否区分大小写, 逻辑型, 可空, 是否区分大小写
.参数 文本长度大于此数的不要, 整数型, 可空, 文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制
.参数 为取出的文本加上前缀, 文本型, 可空, 在取出的文本前面加上一段字符或汉字！可空！
.参数 为取出的文本加上后缀, 文本型, 可空, 在取出的文本后面加上一段字符或汉字！可空！
.参数 连前面标识文本一起取出, 逻辑型, 可空, 是否连<前面标识文本>一起取出? 默认为假，不取出！
.参数 连后面标识文本一起取出, 逻辑型, 可空, 是否连<后面标识文本>一起取出? 默认为假，不取出！
.参数 起始搜寻位置, 整数型, 可空, 注明：位置值从 1 开始。如果本参数被省略，默认为 1 。


补充内容 (2013-11-2 17:21):
调用精易模块，用这个吧，前面那个要装入数组，麻烦点
.版本 2

.子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。
.参数 是否不区分大小写, 逻辑型, 可空, 注明：为真不区分大小写，为假区分。


补充内容 (2013-11-2 17:27):
.计次循环首 (列表框1.取项目数 (), n)
    写配置项 (“D:\DH.ini”, “jmD”, 到文本 (n), 文本_取出中间文本 (列表框1.取项目文本 (n), “【”, “】”))
.计次循环尾 ()

123520lc

talentmu 发表于 2013-11-2 17:11
好的，这样就很清楚了，有两种方法，一种原始的，一种直接调用精易模块
原始的：
你先用寻找文本命令，找 ...

我看不懂

123520lc

talentmu 发表于 2013-11-2 17:31
没事，原始是给你看具体是怎么实现的，就当是了解，想简单实现呢，就是调用精易模块（模块懂得怎么调用吧 ...

谢谢你的帮助