文本里面的内容读取到软件里，然后软件获取到的内容，对比，求助攻。。。不会。。。。

单色 · 发表于 2015-7-26 23:37:24

我文本的内容是：123456789#回车123456789123#回车反正就是很多号码，然后分隔符是回车，
软件编辑框1的内容是：123456789

然后软件整个结构是一个超级列表框。当软件打开时，从文本获取数据。我看别人是取数组成员数，神马神马的。
然后只要编辑框1的内容符合文本里面取出来的内容，超级列表框就置标题，插入“有”。如果没有就插入“没有”

jr21066 · 发表于 2015-7-26 23:37:25

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
文本	文本型

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

文本＝到文本 (读入文件 (对话框_打开文件多选框 (取窗口句柄 ())))

子程序名	返回值类型	公开	备注
对话框_打开文件多选框	文本型		打开多选文件对话框,可单个一个文件,将直接返回文件路径,如果选择多个文件,将以换行符分隔
参数名	类型	参考	可空	数组	备注
窗口句柄	整数型				拥有者窗口句柄
窗口标题	文本型				对话框窗口标题
过滤器	文本型				可空，默认为 TXT文档(.txt)\|.txt\|所有文件(.)\|. 过滤器文本由单个或多个成对的文本串组成，每对文本串的第一个描述显示形式，如：“文本文件（.txt）”；第二个指定实际的过滤匹配符，如：“.txt”，所有各文本串之间用“\|”号隔开
初始目录	文本型				可以为空。如果留空将跳转到当前目录
修改当前目录	逻辑型				可以为空。默认为假，不改变当前目录。真 = 把初始目录改成当前目录。

变量名	类型	静态	数组	备注
文件列表	OPENFILENAME
文件名	字节集
文件名数组	文本型		0
局_计次	整数型			记录循环的次数
多选文件	文本型
文件缓冲数	整数型			决定可以打开文件的个数，原为8192，可打开80个文件
局_当前目录	文本型

局_当前目录＝取当前目录 ()
文件缓冲数＝ 98192 ' 大小决定打开文件的数量，此可以打开200个文件
文件列表.结构尺寸＝ 76 ' 文件列表.lStructSize ＝ 76
文件列表.窗口句柄＝窗口句柄
文件列表.过滤器＝子字节集替换 (到字节集 (过滤器), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }
文件列表.全路径名＝取空白字节集 (文件缓冲数)
文件列表.全路径名长度＝文件缓冲数
文件列表.文件名＝取空白文本 (文件缓冲数)
文件列表.文件名长度＝文件缓冲数
文件列表.初始目录＝选择 (是否为空 (初始目录), 局_当前目录, 初始目录)
文件列表.标题＝窗口标题
文件列表.标志＝ 524800

如果 (GetOpenFileNameA (文件列表)) ' 打开文件成功

文件名＝文件列表.全路径名 ' 文件名＝文件列表.lpstrFile

文件名＝取字节集左边 (文件名, 寻找字节集 (文件名, { 0, 0 }, ) － 1)

如果 (寻找字节集 (文件名, { 0 }, ) ≠ -1) ' 是否选择多个文件

文件名数组＝分割文本 (到文本 (子字节集替换 (文件名, { 0 }, { 124 }, , )), “|”, )

如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”) ' 选择多个文件时，第一个数组为路径名，后面为不包括路径的文件名

文件名数组 [1] ＝文件名数组 [1] ＋ “\”

计次循环首 (取数组成员数 (文件名数组) － 1, 局_计次)

如果 (取数组成员数 (文件名数组) － 1 ≠ 局_计次) ' 最后一个文件名不用加分隔字符“；”

多选文件＝多选文件＋文件名数组 [1] ＋文件名数组 [局_计次＋ 1] ＋ #换行符

多选文件＝多选文件＋文件名数组 [1] ＋文件名数组 [局_计次＋ 1]

计次循环尾 ()

如果真 (修改当前目录＝假)

返回 (多选文件)

如果真 (修改当前目录＝假)

返回 (到文本 (文件名))

返回 (“”)

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

变量名	类型	静态	数组	备注
文本数组	文本型
计数器	整数型

文本数组＝分割文本 (文本, #换行符, )

计次循环首 (取数组成员数 (文本数组), 计数器)

如果真 (寻找文本 (文本数组 [计数器], 编辑框1.内容, , 假) ≠ -1)

列表框1.加入项目 (文本数组 [计数器], )

处理事件 ()

计次循环尾 ()

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 文本, 文本型<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
文本 ＝ 到文本 (读入文件 (对话框_打开文件多选框 (取窗口句柄 ())))<br />
<br />
.子程序 对话框_打开文件多选框, 文本型, 公开, 打开多选文件对话框,可单个一个文件,将直接返回文件路径,如果选择多个文件,将以换行符分隔<br />
.参数 窗口句柄, 整数型, 可空, 拥有者窗口句柄<br />
.参数 窗口标题, 文本型, 可空, 对话框窗口标题<br />
.参数 过滤器, 文本型, 可空, 可空，默认为 TXT文档(*.txt)|*.txt|所有文件(*.*)|*.*  过滤器文本由单个或多个成对的文本串组成，每对文本串的第一个描述显示形式，如：“文本文件（*.txt）”；第二个指定实际的过滤匹配符，如：“*.txt”，所有各文本串之间用“|”号隔开<br />
.参数 初始目录, 文本型, 可空, 可以为空。如果留空将跳转到当前目录<br />
.参数 修改当前目录, 逻辑型, 可空, 可以为空。默认为假，不改变当前目录。真 = 把初始目录改成当前目录。<br />
.局部变量 文件列表, OPENFILENAME<br />
.局部变量 文件名, 字节集<br />
.局部变量 文件名数组, 文本型, , "0"<br />
.局部变量 局_计次, 整数型, , , 记录循环的次数<br />
.局部变量 多选文件, 文本型<br />
.局部变量 文件缓冲数, 整数型, , , 决定可以打开文件的个数，原为8192，可打开80个文件<br />
.局部变量 局_当前目录, 文本型<br />
<br />
局_当前目录 ＝ 取当前目录 ()<br />
文件缓冲数 ＝ 98192  ' 大小决定打开文件的数量，此可以打开200个文件<br />
文件列表.结构尺寸 ＝ 76  ' 文件列表.lStructSize ＝ 76<br />
文件列表.窗口句柄 ＝ 窗口句柄<br />
文件列表.过滤器 ＝ 子字节集替换 (到字节集 (过滤器), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }<br />
文件列表.全路径名 ＝ 取空白字节集 (文件缓冲数)<br />
文件列表.全路径名长度 ＝ 文件缓冲数<br />
文件列表.文件名 ＝ 取空白文本 (文件缓冲数)<br />
文件列表.文件名长度 ＝ 文件缓冲数<br />
文件列表.初始目录 ＝ 选择 (是否为空 (初始目录), 局_当前目录, 初始目录)<br />
文件列表.标题 ＝ 窗口标题<br />
文件列表.标志 ＝ 524800<br />
.如果 (GetOpenFileNameA (文件列表))  ' 打开文件成功<br />
    文件名 ＝ 文件列表.全路径名  ' 文件名 ＝ 文件列表.lpstrFile<br />
    文件名 ＝ 取字节集左边 (文件名, 寻找字节集 (文件名, { 0, 0 }, ) － 1)<br />
    .如果 (寻找字节集 (文件名, { 0 }, ) ≠ -1)  ' 是否选择多个文件<br />
        文件名数组 ＝ 分割文本 (到文本 (子字节集替换 (文件名, { 0 }, { 124 }, , )), “|”, )<br />
        .如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”)  ' 选择多个文件时，第一个数组为路径名，后面为不包括路径的文件名<br />
            文件名数组 [1] ＝ 文件名数组 [1] ＋ “\”<br />
        .如果真结束<br />
        .计次循环首 (取数组成员数 (文件名数组) － 1, 局_计次)<br />
            .如果 (取数组成员数 (文件名数组) － 1 ≠ 局_计次)  ' 最后一个文件名不用加分隔字符“；”<br />
                多选文件 ＝ 多选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [局_计次 ＋ 1] ＋ #换行符<br />
            .否则<br />
                多选文件 ＝ 多选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [局_计次 ＋ 1]<br />
            .如果结束<br />
<br />
        .计次循环尾 ()<br />
        .如果真 (修改当前目录 ＝ 假)<br />
            改变目录 (局_当前目录)<br />
        .如果真结束<br />
        返回 (多选文件)<br />
    .否则<br />
        .如果真 (修改当前目录 ＝ 假)<br />
            改变目录 (局_当前目录)<br />
        .如果真结束<br />
        返回 (到文本 (文件名))<br />
    .如果结束<br />
<br />
.否则<br />
    返回 (“”)<br />
.如果结束<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
.局部变量 文本数组, 文本型<br />
.局部变量 计数器, 整数型<br />
<br />
文本数组 ＝ 分割文本 (文本, #换行符, )<br />
.计次循环首 (取数组成员数 (文本数组), 计数器)<br />
    .如果真 (寻找文本 (文本数组 [计数器], 编辑框1.内容, , 假) ≠ -1)<br />
        列表框1.加入项目 (文本数组 [计数器], )<br />
    .如果真结束<br />
    处理事件 ()<br />
.计次循环尾 ()