6月2号 看需求写代码活动第五期开始！

金哥专用

请查看 。。。。。。

yuanxingwuy

过期了，刚看到，也回复一个，呵呵！！
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

取文本中间 (“前文欲取出文本后文”, 5, 10)
取文本中间 (“前文吾爱编程帅啊后文”, 5, 12)

精易⌒小傷

不用模块的 不会写.. 用了个模块的..

fsjoe

哦，现在才看到。。。过时了。。。
我有个现成的。后来我改过，但不在这。只能放出旧的代码
不加精币没所谓。重在参与
.子程序 取文本字符1到字符2, 文本型, 公开
.参数 文本, 文本型, , 被查找的文本
.参数 前标志文本, 文本型, , 前面的一个标志文本
.参数 后标志文本, 文本型, , 从前标志文本＋1位置起查找的标志文本
.参数 起始寻找位置, 整数型, 可空, 前标志文本位置＋1位置
.参数 是否区分大小写, 逻辑型, 可空, 默认为不区分大小写
.局部变量 找到的位置1, 整数型
.局部变量 找到的位置2, 整数型
.局部变量 结果文本, 文本型

.如果真 (起始寻找位置 ≤ 0)
    起始寻找位置 ＝ 1
.如果真结束
找到的位置1 ＝ 寻找文本 (文本, 前标志文本, 起始寻找位置, 是否区分大小写)
找到的位置2 ＝ 寻找文本 (文本, 后标志文本, 找到的位置1 ＋ 取文本长度 (前标志文本), 是否区分大小写)
' 输出调试文本 (找到的位置1, 找到的位置2)
.如果真 (找到的位置1 ＝ -1 或 找到的位置2 ＝ -1)
    返回 (“”)
.如果真结束
结果文本 ＝ 取文本中间 (文本, 找到的位置1 ＋ 取文本长度 (前标志文本), 找到的位置2 － (找到的位置1 ＋ 取文本长度 (前标志文本)))
返回 (结果文本)

kyle-wang

.版本 2

.子程序 子程序1_取文本中间, 文本型
.参数 原文本, 文本型
.参数 前面文本, 文本型
.参数 后面文本, 文本型
.局部变量 前文数, 整数型
.局部变量 前文位置, 整数型
.局部变量 后文位置, 整数型

前文数 ＝ 取文本长度 (前面文本)
前文位置 ＝ 寻找文本 (原文本, 前面文本, , 假)
后文位置 ＝ 寻找文本 (原文本, 后面文本, , 假)
返回 (取文本中间 (原文本, 前文位置 ＋ 前文数, 后文位置 － 前文位置 － 前文数))

exit11

.版本 2
.支持库 spec
.支持库 RegEx

.子程序 _按钮1_被单击

调试输出 (取指定文本 (“受到开发核扩散搭街坊”, “受到”, “街坊”))
调试输出 (取指定文本_正则 (“受到开发核扩散搭街坊”, “受到”, “街坊”))

.子程序 取指定文本, 文本型
.参数 文本, 文本型
.参数 前一文本, 文本型
.参数 后一文本, 文本型
.局部变量 dz1
.局部变量 dz2

dz1 ＝ 寻找文本 (文本, 前一文本, , 假)
dz2 ＝ 寻找文本 (文本, 后一文本, dz1, 假)
返回 (取文本中间 (文本, dz1 ＋ 取文本长度 (前一文本), dz2 － dz1 － 取文本长度 (后一文本)))

.子程序 取指定文本_正则, 文本型
.参数 文本, 文本型
.参数 前一文本, 文本型
.参数 后一文本, 文本型
.局部变量 正则, 正则表达式
.局部变量 结果, 搜索结果, , "0"

正则.创建 (前一文本 ＋ “(.*?)” ＋ 后一文本, )
结果 ＝ 正则.搜索全部 (文本)

.如果 (取数组成员数 (结果) ＞ 0)
    返回 (结果 [1].取子匹配文本 (文本, 1, ))
.否则
    返回 (“”)

yaoming110

1. 
   
2. .版本 2
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 开始位置, 整数型
   
6. .局部变量 文本, 文本型
   
7. .局部变量 长度, 整数型
   
8. 
   
9. 文本 ＝ 编辑框1.内容
   
10. 开始位置 ＝ 寻找文本 (文本, “前文”, , 假) ＋ 4
    
11. 长度 ＝ 倒找文本 (文本, “后文”, , 假) － 开始位置
    
12. 输出调试文本 (取文本中间 (文本, 开始位置, 长度))
    

复制代码

exit11

.版本 2
.支持库 spec

.子程序 _按钮1_被单击

调试输出 (取指定文本 (“受到开发核扩散搭街坊”, “受到”, “街坊”))

.子程序 取指定文本, 文本型
.参数 文本, 文本型
.参数 前一文本, 文本型
.参数 后一文本, 文本型
.局部变量 dz1
.局部变量 dz2

dz1 ＝ 寻找文本 (文本, 前一文本, , 假)
dz2 ＝ 寻找文本 (文本, 后一文本, dz1, 假)
返回 (取文本中间 (文本, dz1 ＋ 取文本长度 (前一文本), dz2 － dz1 － 取文本长度 (后一文本)))

孤心人

我也来试试

.版本 2

文本 ＝ “前文吾爱编程帅啊后文”
输出调试文本 (取文本中间 (文本, 取文本长度 (“前文”) ＋ 1, 取文本长度 (文本) － 取文本长度 (“后文”) － 取文本长度 (“前文”)))  ' 一种办法

'================================

文本 ＝ 子文本替换 (文本, “前文”, , , , 真)
文本 ＝ 子文本替换 (文本, “后文”, , , , 真)
输出调试文本 (文本)  ' 另一种方法

傲风‖桷酉告

1. 
   
2. .版本 2
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 a, 整数型
   
5. .局部变量 文本, 文本型
   
6. .局部变量 b, 整数型
   
7. 文本 ＝ 编辑框1.内容
   
8. a ＝ 寻找文本 (文本, “前文”, , 假) +4
   
9. b ＝ 倒找文本 (文本, “后文”, , 假) － 开始位置
   
10. 输出调试文本 (取文本中间 (文本, a, b))
    

复制代码