instr函数如何查找多个值

hellikawhi2 · 发表于 2023-1-12 16:37

本帖最后由 hellikawhi2 于 2023-1-12 17:36 编辑

比如If InStr(arr(i, 1), "关键词1") Or InStr(arr(i, 1), "关键词2") or InStr(arr(i, 1), "关键词3") Then
有很多关键词，这样的话代码就会很长，如何优化啊

我好像是看到过做一个数组array=｛“关键词1”，“关键词2”，"关键词3"｝，然后和instr组合，但是忘记怎么用了

shiruiqiang · 发表于 2023-1-12 16:42

br=array(“关键词1”，“关键词2”，"关键词3"),再循环i= 0 to 2.,可以知道instr((arr(i, 1),br(i)),印象中是这样.也可以直接把3个关键词做字典

ykcbf1100 · 发表于 2023-1-12 16:43

关键字都放进一个数组中然后循环，或者关键字串联成一个字串，用instr去匹配。
没有附件，只能这样和你说了。

hellikawhi2 · 发表于 2023-1-12 16:55

shiruiqiang 发表于 2023-1-12 16:42
br=array(“关键词1”，“关键词2”，"关键词3"),再循环i= 0 to 2.,可以知道instr((arr(i, 1),br(i)),印象 ...

是这样吗

arr= usedrange
brr=('关键词1“，······）
for i=2 to ubound(arr)
for j =0 to ubound(br)
if instr（arr(i,1),br(j)) then
endif
next
next

复制代码

hellikawhi2 · 发表于 2023-1-12 16:59

ykcbf1100 发表于 2023-1-12 16:43
关键字都放进一个数组中然后循环，或者关键字串联成一个字串，用instr去匹配。
没有附件，只能这样和你说 ...

这样吗

arr= usedrange
brr=('关键词1“，······）
for i=2 to ubound(arr)
for j =0 to ubound(brr)
if instr（arr(i,1),brr(j)) then
endif
next
next

复制代码

gwjkkkkk · 发表于 2023-1-12 17:03

正则应该比较方便，没附件不好测试。。。

shiruiqiang · 发表于 2023-1-12 17:28

hellikawhi2 发表于 2023-1-12 16:59
这样吗

brr=array('关键词1“，······）

hellikawhi2 · 发表于 2023-1-12 17:36

ykcbf1100 发表于 2023-1-12 16:43
关键字都放进一个数组中然后循环，或者关键字串联成一个字串，用instr去匹配。
没有附件，只能这样和你说 ...

已上传附件

hellikawhi2 · 发表于 2023-1-12 17:37

gwjkkkkk 发表于 2023-1-12 17:03
正则应该比较方便，没附件不好测试。。。

已上传附件

shiruiqiang · 发表于 2023-1-12 18:07

1个数组，1个字典

		自动登录	找回密码
密码			免费注册

[求助] instr函数如何查找多个值

评分