问题反馈：文本_寻找文本

zhaoyingyou

问题反馈：文本_寻找文本 当被寻找文本或寻找文本为空时，无返回！！

项目部002

却有不严谨之处，下个版本增加对原始文本被查找文本为空的判断，感谢反馈

shituo

1. .版本 2
   
2. 
   
3. .子程序 寻找文本_极速, 整数型, 公开, 返回一个整数值，指定一文本在另一文本中最先出现的位置(区分大小写)，位置值从 1 开始。如果未找到，返回-1。本命令为初级命令。
   
4. .参数 被搜寻的文本, 文本型
   
5. .参数 欲寻找的文本, 文本型
   
6. .参数 起始寻找位置, 整数型, 可空, 注明：位置值从 1 开始。如果本参数被省略，默认为 1 。
   
7. .参数 不区分大写, 逻辑型, 可空, 初始值为“假”。为真不区分大小写，为假区分。
   
8. .局部变量 返回值, 整数型
   
9. .局部变量 被搜寻的文本指针, 整数型
   
10. .局部变量 新文本, 文本型
    
11. .局部变量 len, 整数型
    
12. 
    
13. .如果真 (被搜寻的文本 ＝ “”)  ' 防止传入未初始化变量 导致指针为0 程序崩溃
    
14.     返回 (-1)
    
15. .如果真结束
    
16. .如果真 (欲寻找的文本 ＝ “”)
    
17.     返回 (1)
    
18. .如果真结束
    
19. 被搜寻的文本指针 ＝ 取文本型指针_asm (被搜寻的文本)
    
20. .如果真 (起始寻找位置 ＞ 0)
    
21.     起始寻找位置 ＝ 起始寻找位置 － 1
    
22. .如果真结束
    
23. .判断开始 (不区分大写)
    
24.     len ＝ 文本_strlen2 (被搜寻的文本)
    
25.     新文本 ＝ 取空白文本_asm (len)
    
26.     _复制内存_str (新文本, 被搜寻的文本指针, len)
    
27.     被搜寻的文本指针 ＝ 取文本型指针_asm (新文本)
    
28.     返回值 ＝ _寻找文本_strstr2 (_strupr2 (被搜寻的文本指针 ＋ 起始寻找位置), 到大写2 (欲寻找的文本))
    
29.     ' 新文本 ＝ 被搜寻的文本
    
30.     ' 被搜寻的文本指针 ＝ 取文本型指针_asm (新文本)
    
31.     ' 返回值 ＝ _寻找文本_strstr2 (_strupr2 (被搜寻的文本指针 ＋ 起始寻找位置), 到大写2 (欲寻找的文本))
    
32. .默认
    
33.     返回值 ＝ _寻找文本_strstr (被搜寻的文本指针 ＋ 起始寻找位置, 欲寻找的文本)
    
34. .判断结束
    
35. .如果真 (返回值 ＝ 0)
    
36.     返回 (-1)
    
37. .如果真结束
    
38. 返回 (返回值 － 被搜寻的文本指针 ＋ 1)
    

复制代码

shituo

.版本 2  .子程序 寻找文本_极速, 整数型, 公开, 返回一个整数值，指定一文本在另一文本中最先出现的位置(区分大小写)，位置值从 1 开始。如果未找到，返回-1。本命令为初级命令。 .参数 被搜寻的文本, 文本型 .参数 欲寻找的文本, 文本型 .参数 起始寻找位置, 整数型, 可空, 注明：位置值从 1 开始。如果本参数被省略，默认为 1 。 .参数 不区分大写, 逻辑型, 可空, 初始值为“假”。为真不区分大小写，为假区分。 .局部变量 返回值, 整数型 .局部变量 被搜寻的文本指针, 整数型 .局部变量 新文本, 文本型 .局部变量 len, 整数型  .如果真 (被搜寻的文本 ＝ “”)  ' 防止传入未初始化变量 导致指针为0 程序崩溃     返回 (-1) .如果真结束 .如果真 (欲寻找的文本 ＝ “”)     返回 (1) .如果真结束 被搜寻的文本指针 ＝ 取文本型指针_asm (被搜寻的文本) .如果真 (起始寻找位置 ＞ 0)     起始寻找位置 ＝ 起始寻找位置 － 1 .如果真结束 .判断开始 (不区分大写)     len ＝ 文本_strlen2 (被搜寻的文本)     新文本 ＝ 取空白文本_asm (len)     _复制内存_str (新文本, 被搜寻的文本指针, len)     被搜寻的文本指针 ＝ 取文本型指针_asm (新文本)     返回值 ＝ _寻找文本_strstr2 (_strupr2 (被搜寻的文本指针 ＋ 起始寻找位置), 到大写2 (欲寻找的文本))     ' 新文本 ＝ 被搜寻的文本     ' 被搜寻的文本指针 ＝ 取文本型指针_asm (新文本)     ' 返回值 ＝ _寻找文本_strstr2 (_strupr2 (被搜寻的文本指针 ＋ 起始寻找位置), 到大写2 (欲寻找的文本)) .默认     返回值 ＝ _寻找文本_strstr (被搜寻的文本指针 ＋ 起始寻找位置, 欲寻找的文本) .判断结束 .如果真 (返回值 ＝ 0)     返回 (-1) .如果真结束 返回 (返回值 － 被搜寻的文本指针 ＋ 1)

zhaoyingyou

qmhmsn 发表于 2019-3-2 12:32
你为什么想要 从空文本中寻找文本？或者 从文本中寻找空文本？

程序处理中变量文本难免存在空

afd

再加一个 ,文本是否为双字节() 也有bug,不准,

ucxvkwfn

这个。。。确实是个bug...

石榴熟了

你为什么想要 从空文本中寻找文本？或者 从文本中寻找空文本？

我爱小黑屋

你想要返回什么. ..