文本_倒取出中间文本 5.31 有BUG,附修正代码

萧阳天

我是倩的男人 发表于 2016-4-8 09:34
[e=3].版本 2

.子程序 文本_倒取出中间文本, 文本型, 公开, 比如：欲取全文本为“0012345”,现在要取出 ...

实例文本：

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. ' 文本变量 ＝ “<tr><td>00</td><td><tr><td>11</td><td><tr><td>22</td><td>”
   
5. ' 调试输出 (文本_倒取出中间文本 (文本变量, “</td><td>”, “<tr><td>”, 4, 真))
   
6. 文本变量 ＝ “<font color=#引号red#引号>”
   
7. 调试输出 (文本_倒取出中间文本 (文本变量, “#引号”, “#引号”, , 真))
   

复制代码

这是在你的基础上修改后的版本，你试一下

1. .版本 2
   
2. 
   
3. .子程序 文本_倒取出中间文本, 文本型, 公开, 比如：欲取全文本为“0012345”,现在要取出“123”，<123>的右边为“4”，<123>的左边为“0”，注意这里是倒取
   
4. .参数 欲取全文本, 文本型, , 比如：欲取全文本为“0012345”
   
5. .参数 右边文本, 文本型, , 123的右边为“4”，引号直接用 #引号，如："<font color=#引号red#引号>" 注意左右
   
6. .参数 左边文本, 文本型, , 123的左边为“0”，引号直接用 #引号，如："<font color=#引号red#引号>" 注意左右
   
7. .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 右边文本的开始位置
   
8. .参数 是否不区分大小写, 逻辑型, 可空, 默认为假：区分大小写 真：不区分大小写
   
9. .局部变量 rPos, 整数型
   
10. .局部变量 lPos, 整数型
    
11. 
    
12. 起始搜寻位置 ＝ 选择 (起始搜寻位置 ≤ 0, -1, 起始搜寻位置)
    
13. 起始搜寻位置 ＝ 取文本长度 (欲取全文本) － 起始搜寻位置
    
14. rPos ＝ 倒找文本 (欲取全文本, 右边文本, 起始搜寻位置, 是否不区分大小写)
    
15. .如果真 (rPos ≠ -1)
    
16.     lPos ＝ 倒找文本 (欲取全文本, 左边文本, rPos, 是否不区分大小写)
    
17.     .如果真 (lPos ≠ -1)
    
18.         lPos ＝ lPos ＋ 取文本长度 (左边文本)
    
19.     .如果真结束
    
20.     返回 (取文本中间 (欲取全文本, lPos, rPos － lPos))
    
21. .如果真结束
    
22. 返回 (“”)
    

复制代码

咪兔

  

子程序名	返回值类型	公开	备 注
文本_倒取出中间文本	文本型		比如：欲取全文本为“0012345”,现在要取出“123”，<123>的右边为“4”，<123>的左边为“0”，注意这里是倒取
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为“0012345”
右边文本	文本型				123的右边为“4”，引号直接用 #引号，如："<font color=#引号red#引号>" 注意左右
左边文本	文本型				123的左边为“0”，引号直接用 #引号，如："<font color=#引号red#引号>" 注意左右
起始搜寻位置	整数型				可空,这里是指搜寻 参数二 右边文本的开始位置
是否不区分大小写	逻辑型				默认为假：区分大小写 真：不区分大小写

变量名	类 型	静态	数组	备 注
右标记	整数型
左标记	整数型

右边文本 ＝ 子文本替换 (右边文本, “#引号”, #引号, , , 真)
左边文本 ＝ 子文本替换 (左边文本, “#引号”, #引号, , , 真)
如果 (起始搜寻位置 ＜ 取文本长度 (欲取全文本) 且 起始搜寻位置 > 0)
起始搜寻位置 ＝ 起始搜寻位置 ＋ 取文本长度 (右边文本)
起始搜寻位置 ＝ 取文本长度 (欲取全文本) ＋ 1 ' 如果起始搜寻位置≤ 0
右标记 ＝ 倒找文本 (欲取全文本, 右边文本, 起始搜寻位置, 是否不区分大小写)
如果真 (右标记 ＝ -1)
返回 (“”)
左标记 ＝ 倒找文本 (欲取全文本, 左边文本, 右标记 － 取文本长度 (右边文本), 是否不区分大小写)
如果 (左标记 ＝ -1)
返回 (“”)
左标记 ＝ 左标记 ＋ 取文本长度 (左边文本)
返回 (取文本中间 (欲取全文本, 左标记, 右标记 － 左标记))

.版本 2<br /> <br /> .子程序 文本_倒取出中间文本, 文本型, 公开, 比如：欲取全文本为“0012345”,现在要取出“123”，<123>的右边为“4”，<123>的左边为“0”，注意这里是倒取<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为“0012345”<br /> .参数 右边文本, 文本型, , 123的右边为“4”，引号直接用 #引号，如："<font color=#引号red#引号>" 注意左右<br /> .参数 左边文本, 文本型, , 123的左边为“0”，引号直接用 #引号，如："<font color=#引号red#引号>" 注意左右<br /> .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 右边文本的开始位置<br /> .参数 是否不区分大小写, 逻辑型, 可空, 默认为假：区分大小写 真：不区分大小写<br /> .局部变量 右标记, 整数型<br /> .局部变量 左标记, 整数型<br /> <br /> 右边文本 ＝ 子文本替换 (右边文本, “#引号”, #引号, , , 真)<br /> 左边文本 ＝ 子文本替换 (左边文本, “#引号”, #引号, , , 真)<br /> .如果 (起始搜寻位置 ＜ 取文本长度 (欲取全文本) 且 起始搜寻位置 > 0)<br />     起始搜寻位置 ＝ 起始搜寻位置 ＋ 取文本长度 (右边文本)<br /> .否则<br />     起始搜寻位置 ＝ 取文本长度 (欲取全文本) ＋ 1'如果起始搜寻位置≤ 0<br /> .如果结束<br /> 右标记 ＝ 倒找文本 (欲取全文本, 右边文本, 起始搜寻位置, 是否不区分大小写)<br /> .如果真 (右标记 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 左标记 ＝ 倒找文本 (欲取全文本, 左边文本, 右标记 － 取文本长度 (右边文本), 是否不区分大小写)<br /> .如果 (左标记 ＝ -1)<br />     返回 (“”)<br /> .否则<br />     左标记 ＝ 左标记 ＋ 取文本长度 (左边文本)<br /> .如果结束<br /> 返回 (取文本中间 (欲取全文本, 左标记, 右标记 － 左标记))

学习不易哦

一直在用，竟然没发现~！