寻找文本,问题!

j68832688

文本 = "简介 #积极 #快速"

我要寻找 #积极 的起始位置.

易语言差出来是 6, 中文是2个字节.

java 查出来的是 4.

易语言要这么查出来是4啊!

真冬

  

变量名	类 型	静态	数组	备 注
文本	文本型

文本 ＝ “简介 #积极 #快速”
调试输出 (子程序1寻找UTF16文本位置 (文本, “#积极”))

子程序名	返回值类型	公开	备 注
子程序1寻找UTF16文本位置	整数型
参数名	类 型	参考	可空	数组	备 注
参数1被找内容	文本型
参数2欲找内容	文本型

变量名	类 型	静态	数组	备 注
a	变体型
b1	字节集
b2	字节集
i1	整数型
c1	短整数型
c2	短整数型
i2	整数型
b2cd	整数型

a.赋值 (参数1被找内容, )
b1 ＝ a.取字节集 ()
a.赋值 (参数2欲找内容, )
b2 ＝ a.取字节集 ()
i1 ＝ 1
c2 ＝ 取字节集数据 (b2, #短整数型, )
b2cd ＝ 取字节集长度 (b2)
循环判断首 ()
c1 ＝ 取字节集数据 (b1, #短整数型, i1)
i2 ＝ i2 ＋ 1
如果真 (c1 ＝ c2)
如果真 (取字节集中间 (b1, i1 － 2, b2cd) ＝ b2)
返回 (i2)


循环判断尾 (i1 ≠ -1)
返回 (-1)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ “简介 #积极 #快速”<br /> 调试输出 (子程序1寻找UTF16文本位置 (文本, “#积极”))<br /> <br /> .子程序 子程序1寻找UTF16文本位置, 整数型<br /> .参数 参数1被找内容, 文本型<br /> .参数 参数2欲找内容, 文本型<br /> .局部变量 a, 变体型<br /> .局部变量 b1, 字节集<br /> .局部变量 b2, 字节集<br /> .局部变量 i1, 整数型<br /> .局部变量 c1, 短整数型<br /> .局部变量 c2, 短整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 b2cd, 整数型<br /> <br /> a.赋值 (参数1被找内容, )<br /> b1 ＝ a.取字节集 ()<br /> a.赋值 (参数2欲找内容, )<br /> b2 ＝ a.取字节集 ()<br /> i1 ＝ 1<br /> c2 ＝ 取字节集数据 (b2, #短整数型, )<br /> b2cd ＝ 取字节集长度 (b2)<br /> .循环判断首 ()<br />     c1 ＝ 取字节集数据 (b1, #短整数型, i1)<br />     i2 ＝ i2 ＋ 1<br />     .如果真 (c1 ＝ c2)<br />         .如果真 (取字节集中间 (b1, i1 － 2, b2cd) ＝ b2)<br />             返回 (i2)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .循环判断尾 (i1 ≠ -1)<br /> 返回 (-1)

观音

  

调试输出 (文本_寻找文本Ex (“简介 #积极 #快速”, “#积极”, , , 真))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本_寻找文本Ex	整数型
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型
欲寻找文本	文本型
起始搜寻位置	整数型
不区分大小写	逻辑型
中文识别为1	逻辑型

变量名	类 型	静态	数组	备 注
len	整数型

len ＝ 文本_寻找文本 (原始文本, 欲寻找文本, 起始搜寻位置, 不区分大小写)
如果真 (中文识别为1 且 len ＞ 1)  ' -1 未找到直接返回 0第一个位置 直接返回  1开头绝对不是中文 直接返回
返回 (文本_逐字分割 (取文本左边 (原始文本, len), ))
返回 (len)

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (文本_寻找文本Ex (“简介 #积极 #快速”, “#积极”, , , 真))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本_寻找文本Ex, 整数型<br /> .参数 原始文本, 文本型<br /> .参数 欲寻找文本, 文本型<br /> .参数 起始搜寻位置, 整数型, 可空<br /> .参数 不区分大小写, 逻辑型, 可空<br /> .参数 中文识别为1, 逻辑型, 可空<br /> .局部变量 len, 整数型<br /> <br /> len ＝ 文本_寻找文本 (原始文本, 欲寻找文本, 起始搜寻位置, 不区分大小写)<br /> .如果真 (中文识别为1 且 len ＞ 1)  ' -1 未找到直接返回 0第一个位置 直接返回  1开头绝对不是中文 直接返回<br />     返回 (文本_逐字分割 (取文本左边 (原始文本, len), ))<br /> .如果真结束<br /> 返回 (len)

是可可吖

删除中间的空格，位置应该就是4

songziyu999

标记一下。可能有用呢

850536360

编码转为Unicode再搜索