求 文本_批量取中间文本 源码

空中的鱼

求 文本_批量取中间文本  源码   不要模块   谢谢

易莫名

文本_取出中间文本_批量.zip (1.08 KB, 下载次数: 138)

2012-12-6 14:12 上传

点击文件名下载附件
在代码里，你复制到你的程序或模块里都可以

魔仙明少

要看是什么数据了、正则可以么？

精yì求精

类似精易模块批量取中间
http://www.3600gz.cn/thread-13613980-1-1.html
这样行不行

心冷、鱼儿

[e]
.版本 2

.子程序 GetTextMiddleG, 整数型, , 取文本中间组,返回数组成员数
.参数 Data, 文本型, , 欲取的数据
.参数 Head, 文本型, , 头数据
.参数 Tail, 文本型, , 尾数据
.参数 TextG, 文本型, 参考 数组, 返回的文本数组
.局部变量 Int_1, 整数型, , , 位置1
.局部变量 Int_2, 整数型, , , 位置2
.局部变量 Len_Head, 整数型, , , 头数据长度
.局部变量 Len_Tail, 整数型, , , 尾数据长度
.局部变量 Temp, 文本型, , , 临时文本
.局部变量 Text, 文本型, , "0", 返回文本

Len_Head ＝ 取文本长度 (Head)
Len_Tail ＝ 取文本长度 (Tail)
.循环判断首 ()
    Int_1 ＝ 寻找文本 (Data, Head, Int_2 ＋ Len_Tail, 假)
    .如果真 (Int_1 ＝ -1)
        跳出循环 ()
    .如果真结束
    Int_2 ＝ 寻找文本 (Data, Tail, Int_1 ＋ Len_Head, 假)
    Temp ＝ 取文本中间 (Data, Int_1 ＋ Len_Head, Int_2 － Int_1 － Len_Head)
    加入成员 (Text, Temp)
.循环判断尾 (TextG)
TextG ＝ Text
返回 (取数组成员数 (Text))
[/e]

魔仙明少

不行的话、我给你一段取文本中指定文本的源码、你加上循环吧

1. .版本 2
   
2. 
   
3. .子程序 取指定内容, 文本型
   
4. .参数 完整内容, 文本型
   
5. .参数 左边文本, 文本型
   
6. .参数 右边文本, 文本型
   
7. .局部变量 临时位置, 整数型
   
8. .局部变量 总长度, 整数型
   
9. .局部变量 临时文本, 文本型
   
10. 
    
11. 总长度 ＝ 取文本长度 (完整内容)
    
12. 临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
    
13. 临时文本 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
    
14. 总长度 ＝ 取文本长度 (临时文本)
    
15. 临时位置 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
    
16. 临时文本 ＝ 取文本中间 (临时文本, 1, 临时位置)
    
17. 返回 (临时文本)
    

复制代码

心冷、鱼儿

[e]
.版本 2

.子程序 GetTextMiddleG, 整数型, , 取文本中间组,返回数组成员数
.参数 Data, 文本型, , 欲取的数据
.参数 Head, 文本型, , 头数据
.参数 Tail, 文本型, , 尾数据
.参数 TextG, 文本型, 参考 数组, 返回的文本数组
.局部变量 Int_1, 整数型, , , 位置1
.局部变量 Int_2, 整数型, , , 位置2
.局部变量 Len_Head, 整数型, , , 头数据长度
.局部变量 Len_Tail, 整数型, , , 尾数据长度
.局部变量 Temp, 文本型, , , 临时文本
.局部变量 Text, 文本型, , "0", 返回文本

Len_Head ＝ 取文本长度 (Head)
Len_Tail ＝ 取文本长度 (Tail)
.循环判断首 ()
    Int_1 ＝ 寻找文本 (Data, Head, Int_2 ＋ Len_Tail, 假)
    .如果真 (Int_1 ＝ -1)
        跳出循环 ()
    .如果真结束
    Int_2 ＝ 寻找文本 (Data, Tail, Int_1 ＋ Len_Head, 假)
    .如果真 (Int_2 ＝ -1)
        跳出循环 ()
    .如果真结束
    Temp ＝ 取文本中间 (Data, Int_1 ＋ Len_Head, Int_2 － Int_1 － Len_Head)
    加入成员 (Text, Temp)
.循环判断尾 (Int_1 ≠ -1 且 Int_2 ≠ -1)
TextG ＝ Text
返回 (取数组成员数 (TextG))
[/e]

白十二

http://www.3600gz.cn/thread-105560-1-1.html  分割，寻找，正则，三种方法批量取单个、多个文本，