建立运行环境-Excel Vba,可移植到VB环境中(需修改一些代码)
'仿制简单的SQL查询语句,用于对二维数组的查询
'参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle]
'
'实现功能:
' 依条件设置查询数组,返回包含查询字段(或全部字段)的数组,可多条件组合。
' 条件运算符包括:> = = <= , like(正则表达式)
'
'附注:
' 使用此函数,需要在文件中引用正则表达式脚本 Microsoft VBScript Regular Expressions x.x
' (根据不同的电脑配置和环境此处会有差异)
'算法简要:
' 1、查询条件运算符:仅有 >, =, =, <=, , like(正则表达式)
' 本函数中仅有上述运算符。原因在于,更多的运算符编制逻辑过于复杂,又不太常用。
' 为了尽可能多地容纳各种运算关系,添加了正则表达式匹配运算,
' 在某个单一条件中,正则几乎可以容纳绝大部分的比对运算关系了。
' 2、数字比较:
' 采用了将数字型字符串类型转换为数字之后再比较的方法,结果更为准确。
' 3、其他算法和运算速度:
' 编制过程中,试验过使用 正则+逻辑分支+表达式引用 的方法,
' 可以实现几乎等同于SQL查询语句的复杂功能,而且代码更简捷。
' 但运算速度相差过于悬殊(大概几十到上百倍 - "一闪而过"和"一袋烟"的差距!),最后不得不放弃。
' 所以现在的版本相当于一个简化了的select语句,但对于大多数查询情况而言够用了。
1