小白求指教,易语言导入文本分隔
本帖最后由 十万个为什么 于 2020-10-8 12:00 编辑如上图，
怎样在编辑框1.输入“发出去的信”
点击按钮
编辑框2显示-后面的“收不回了”
这只是个例子，像这样格式的文本有上百条
参考一下，思路是先把所有文本读入到变量里。然后分隔成一行一行的。然后在每行里寻找编辑框1的问题。如果有这个问题。那么在这行的-号后面寻找答案，
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.局部变量 内容, 文本型
.局部变量 分隔后, 文本型, , "0"
.局部变量 计次, 整数型
内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\新建文本文档.txt”))
调试输出 (内容)
分隔后 ＝ 分割文本 (内容, #换行符, )
.计次循环首 (取数组成员数 (分隔后), 计次)
调试输出 (分隔后 , 分隔后 )
.如果真 (寻找文本 (分隔后 [计次], 编辑框1.内容, , 假) ≠ -1)' 寻找编辑框1内容。找到的话不等-1.
编辑框2.内容 ＝ 文本_取右边 (分隔后 [计次], “-”, , )
.如果真结束
.计次循环尾 ()
.子程序 文本_取右边, 文本型, 公开, 从文本的右边按 欲寻找的文本 开始寻找, 取行右边 (“1234567890”, “5”, 1, 真)
.参数 被查找的文本, 文本型, , 被查找的文本
.参数 欲寻找的文本, 文本型, , 欲寻找的文本
.参数 起始寻找位置, 整数型, 可空, 欲寻找的文本的起始寻找位置,一般情况都留空
.参数 是否区分大小写, 逻辑型, 可空, 默认为假,区分大小写
.局部变量 找到的位置, 整数型
.局部变量 结果文本, 文本型
.如果真 (起始寻找位置 ≤ 0 或 是否为空 (起始寻找位置) ＝ 真)
起始寻找位置 ＝ 1
.如果真结束
找到的位置 ＝ 倒找文本 (被查找的文本, 欲寻找的文本, , 是否区分大小写)
.如果真 (找到的位置 ＝ -1)
返回 (“”)
.如果真结束
结果文本 ＝ 取文本右边 (被查找的文本, 取文本长度 (被查找的文本) － 取文本长度 (欲寻找的文本) － 找到的位置 ＋ 1)
返回 (结果文本)
如上图，
怎样在编辑框1.输入“发出去的信”
点击按钮
编辑框2显示-后面的“收不回了”
这只是个例子，像这样格式的文本有上百条
这种问题对于大佬应该不值一提吧
烦请大佬解答一下 楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
页:
[1]