请问如何提取这文本中指定内容？

s8696500

标题
名称   ID   类型   备注   进厂日期
张三   123   主管   中年   2018-12-15
李四   22   职工   青年   2018-12-14


如上。我想提取出来生成如下格式。主管变为1，职工变为2
1-123  张三
2-22  李四

大司命

这样子似乎是表格或者列表~

s8696500

大司命 发表于 2018-12-15 17:40
这样子似乎是表格或者列表~

原文本都是txt的   想提取出来后也是文本的   我用Excel可以转换    现在想学学用易语言咋弄

易易语

7.e (3.98 KB, 下载次数: 1)

2018-12-15 17:55 上传

点击文件名下载附件
查看一下。。

s8696500

易易语 发表于 2018-12-15 17:55
查看一下。。

你好，我原内容是文本型的，这种有办法实现吗

易易语

7.e (3.43 KB, 下载次数: 1)

2018-12-15 18:10 上传

点击文件名下载附件
参考一下

大司命

走个思路~

走一回

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
源文本	文本型		0
终文本	文本型		0
临时	文本型		0
i

' bjk1中的文本:
' 名称   ID   类型   备注   进厂日期
' 张三   123   主管   中年   2018-12-15
' 李四   22   职工   青年   2018-12-14
源文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (源文本), i)
临时 ＝ 分割文本 (源文本 [i], “   ”, )
加入成员 (终文本, 临时)
计次循环尾 ()
重定义数组 (终文本, 真, 取数组成员数 (终文本) ÷ 5, 5)
计次循环首 (取数组下标 (终文本, ), i)
如果真 (i ＞ 1)
如果 (终文本 [i] [3] ＝ “主管”)
终文本 [i] [3] ＝ “1”
终文本 [i] [3] ＝ “2”
调试输出 (终文本 [i] [3] ＋ “-” ＋ 终文本 [i] [2] ＋ “ ” ＋ 终文本 [i] [1])

计次循环尾 ()
' ┗━━━━━━━━━━━━━
' * “1-123 张三”
' * “2-22 李四”
' 被调试易程序运行完毕

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 源文本, 文本型, , "0"<br /> .局部变量 终文本, 文本型, , "0"<br /> .局部变量 临时, 文本型, , "0"<br /> .局部变量 i<br /> <br /> ' bjk1中的文本:<br /> ' 名称   ID   类型   备注   进厂日期<br /> ' 张三   123   主管   中年   2018-12-15<br /> ' 李四   22   职工   青年   2018-12-14<br /> <br /> 源文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (源文本), i)<br />     临时 ＝ 分割文本 (源文本 <i>, “   ”, )<br />     加入成员 (终文本, 临时)<br /> .计次循环尾 ()<br /> 重定义数组 (终文本, 真, 取数组成员数 (终文本) ÷ 5, 5)<br /> .计次循环首 (取数组下标 (终文本, ), i)<br />     .如果真 (i ＞ 1)<br />         .如果 (终文本 <i> [3] ＝ “主管”)<br />             终文本 <i> [3] ＝ “1”<br />         .否则<br />             终文本 <i> [3] ＝ “2”<br />         .如果结束<br />         调试输出 (终文本 <i> [3] ＋ “-” ＋ 终文本 <i> [2] ＋ “ ” ＋ 终文本 <i> [1])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' ┗━━━━━━━━━━━━━<br /> ' * “1-123 张三”<br /> ' * “2-22 李四”<br /> ' 被调试易程序运行完毕

补充内容 (2018-12-15 19:18):
调试成功，有空就加精 下