怎么取出文本中指定一段字符

二休

新建文本文档 (2).txt (24.75 KB, 下载次数: 8)

2017-3-6 09:12 上传

点击文件名下载附件

新建文本文档 (3).txt (21.05 KB, 下载次数: 3)

2017-3-6 09:12 上传

点击文件名下载附件

新建文本文档.txt (9.14 KB, 下载次数: 5)

2017-3-6 09:12 上传

点击文件名下载附件

易正易则

  

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

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

变量名	类 型	静态	数组	备 注
正则	正则表达式类
文本	文本型
n	整数型
结果	文本型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
文本 ＝ 文本 ＋ 到文本 (读入文件 (取运行目录 () ＋ “\2.txt”))
文本 ＝ 文本 ＋ 到文本 (读入文件 (取运行目录 () ＋ “\3.txt”))
正则.创建 (“(ug.*?)\s”, 文本)
计次循环首 (正则.取匹配数量 (), n)
结果 ＝ 结果 ＋ 正则.取子匹配文本 (n, 1) ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\提取的文件.txt”, 到字节集 (结果))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 文本, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))<br /> 文本 ＝ 文本 ＋ 到文本 (读入文件 (取运行目录 () ＋ “\2.txt”))<br /> 文本 ＝ 文本 ＋ 到文本 (读入文件 (取运行目录 () ＋ “\3.txt”))<br /> 正则.创建 (“(ug.*?)\s”, 文本)<br /> .计次循环首 (正则.取匹配数量 (), n)<br />     结果 ＝ 结果 ＋ 正则.取子匹配文本 (n, 1) ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\提取的文件.txt”, 到字节集 (结果))

熊猫巴布

正则    ug\d+_\d+

xingchen76

二维数组，回车分割一维 ，空格分割一维

二休

E族x天天软件 发表于 2017-3-6 09:19
正则    ug\d+_\d+

正则不会  没写过  谢谢您的回答  

xingchen76

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
文本数组	文本型		0
i	整数型
截取位置	整数型
截出文本	文本型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\新建文本文档_(2).txt”))
文本数组 ＝ 分割文本 (文本, #换行符, )
调试输出 (文本数组)
计次循环首 (取数组成员数 (文本数组), i)
截取位置 ＝ 寻找文本 (文本数组 [i], “ ”, , 假)
截出文本 ＝ 取文本左边 (文本数组 [i], 截取位置 － 1)
编辑框1.加入文本 (截出文本 ＋ #换行符 )
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 截取位置, 整数型<br /> .局部变量 截出文本, 文本型<br /> <br /> 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\新建文本文档_(2).txt”))<br /> 文本数组 ＝ 分割文本 (文本, #换行符, )<br /> 调试输出 (文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     截取位置 ＝ 寻找文本 (文本数组 <i>, “ ”, , 假)<br />     截出文本 ＝ 取文本左边 (文本数组 <i>, 截取位置 － 1)<br />     编辑框1.加入文本 (截出文本 ＋ #换行符)<br /> <br /> .计次循环尾 ()

晓天信

先用换行符分割每一行的内容然后用空格分割每一行在组合在一起就可以了

hatsunemiku

如果你这个文本格式是固定的话

分割文本, #hhf  寻找文本 找空格,取文本左边 寻找文本的位置, 加入数组就行了

hatsunemiku

.版本 2
.支持库 shell

.局部变量 读入, 文本型
.局部变量 分割结果, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 文本, 文本型
.局部变量 文本_数组, 文本型, , "0"

读入 ＝ 到文本 (读入文件 (取特定目录 (3) ＋ “\1.txt”))
分割结果 ＝ 分割文本 (读入, #换行符, )
.计次循环首 (取数组成员数 (分割结果), n)
    文本 ＝ 取文本左边 (分割结果 [n], 寻找文本 (分割结果 [n], “ ”, , 假))
    .如果真 (寻找文本 (文本, “ug”, , 假) ≠ -1)
        加入成员 (文本_数组, 文本)
    .如果真结束

.计次循环尾 ()