类似DOS(*和?)通配符匹配算法

类似DOS(*和?)通配符匹配算法如果开发者对于本文件有需要的可以参考。
*匹配任意长度字符
?匹配单个字符
区分大小写

.子程序 通配符匹配, 逻辑型, , *匹配任意长度字符、?匹配单个字符、区分大小写
.参数 cs_表达式, 文本型
.参数 cs_测试文本, 文本型
.局部变量 pStr, 整数型
.局部变量 pPattern, 整数型
.局部变量 c, 整数型
.局部变量 pStrLast, 整数型
.局部变量 pStar, 整数型

pStr ＝ 1
pPattern ＝ 1
.判断循环首 (取代码 (cs_测试文本, pStr) ≠ 0)
c ＝ 取代码 (cs_表达式, pPattern)
.判断开始 (c ＝ 取代码 (cs_测试文本, pStr) 或 c ＝ 63) ' 63=取代码 (“?”, )
pStr ＝ pStr ＋ 1
pPattern ＝ pPattern ＋ 1
.判断 (c ＝ 42) ' 42=取代码 (“*”, )
pStrLast ＝ pStr
pStar ＝ pPattern
pPattern ＝ pPattern ＋ 1
.判断 (pStar ≠ 0)
pStrLast ＝ pStrLast ＋ 1
pStr ＝ pStrLast
pPattern ＝ pStar ＋ 1
.默认
返回 (假)
.判断结束

.判断循环尾 ()
.判断循环首 (取代码 (cs_表达式, pPattern) ＝ 42) ' 42=取代码 (“*”, )
pPattern ＝ pPattern ＋ 1
.判断循环尾 ()
返回 (取代码 (cs_表达式, pPattern) ＝ 0)