VBS中的多值匹配检查

实际场景中有这样一个需求,判断某个对象的某个属性,如果它的字符串值中包含某些特定的字符串,那么要进行开始过程A,否则开始过程B。

最简单的实现是

vbnet 复制代码
if InStr(obj.title,".大师")<>0 or InStr(obj.title,".统领")<>0 or InStr(obj.title,".丞相")<>0 or InStr(obj.title,".元帅")<>0 or InStr(obj.title,".将军")<>0  then

逻辑是对的,不过每多一个匹配条件,在语句中要加一个or项,用于防御性编程是OK的,一般情况是不推荐这样写的,改成下面这样怎样呢

vbnet 复制代码
Function isleader(title)
	leaderstrs=array(".大师.",".统领",".丞相",".元帅",".将军")
	match=False
	for each item in leaderstrs
		if inStr(title,item) then
			match=True
			Exit For
		end if
	next
	isleader=match
End Function

这样会好一些,主程序里调用即可

vbnet 复制代码
if isleader(obj.title) then

不过这样用字符串数组匹配还不够优化,可以考虑用正则表达式匹配

vbnet 复制代码
Dim re
Set re = New RegExp
re.Pattern = "\.大师|\.统领|\.丞相|\.元帅|\.将军"
re.IgnoreCase = False

后面检查判断用:

vbnet 复制代码
if re.test(obj.title) then

数据放在代码里还是不好,把匹配值移到同文件夹下的配置文件params.js中

vbnet 复制代码
leader = {"title":"\.大师|\.统领|\.丞相|\.元帅|\.将军"}

程序先加载配置文件

vbnet 复制代码
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("params.js", ForReading)
strResponses = objTextFile.ReadAll
objTextFile.Close

Set html = CreateObject("htmlfile")
Set window = html.parentWindow
window.execScript strResponses, "JScript" ' 解析 js

Set jsleader = window.leader ' 获取解析后的对象

Dim re
Set re = New RegExp
re.Pattern =  jsleader.title
re.IgnoreCase = False

嗯,这下似乎可以满意了,虽然代码看起来多了一些,不过配置参数和功能逻辑分离是一个好的编程习惯。

相关推荐
yugi98783819 小时前
基于Qt实现百度地图路径规划功能
开发语言·qt
小年糕是糕手19 小时前
【数据结构】队列“0”基础知识讲解 + 实战演练
c语言·开发语言·数据结构·c++·学习·算法
无限进步_19 小时前
【C语言】函数指针数组:从条件分支到转移表的优雅进化
c语言·开发语言·数据结构·后端·算法·visual studio
小小测试开发19 小时前
Bokeh 库入门:用 Python 绘制交互式数据可视化图表
开发语言·python·信息可视化·bokeh
hoiii18720 小时前
C#实现摄像头视频录制与保存
开发语言·c#·音视频
数据科学作家20 小时前
如何入门python机器学习?金融从业人员如何快速学习Python、机器学习?机器学习、数据科学如何进阶成为大神?
大数据·开发语言·人工智能·python·机器学习·数据分析·统计分析
孤客网络科技工作室20 小时前
Python - 100天从新手到大师:第五十八天 Python中的并发编程(1-3)
开发语言·python
go_bai20 小时前
Linux_基础IO(2)
linux·开发语言·经验分享·笔记·学习方法·1024程序员节
不会算法的小灰20 小时前
JavaScript基础详解
开发语言·javascript·udp
杨福瑞21 小时前
数据结构:顺序表讲解(2)
c语言·开发语言·数据结构