学习正则表示式点滴

OKJSJSF

duquancai 发表于 2018-8-29 00:23

我该如何感谢您呢？

OKJSJSF

学VBA虽二年多，一直没注意自定义函数。今天看到您这个方法，什么感觉：峰回路转、别有洞天、提壶灌顶，VBA的又一项技术我必须开始练习了。我的试卷程序必须改了重发，不需LOOKUP不需对考试答案选项做什么组合了，必须为平时常用的一些操作试着写几个自定义函数了。但是，原来的问题我还有心结：对这种选项组合，如何用代码把各组合罗列在单元格中呢？如AB、AC、AD、AE、BC、BD、BE、CD、CE、ABC、、、ABCDE为止，反方向的组合视同选项相同。
唉，我只能口头送您花。

OKJSJSF

duquancai 发表于 2018-8-29 00:23

世界真奇妙，高人就是高人，这个函数可以忽略标准答案的字符串中间与两端的所有空格、忽略其他字符、忽略字符的顺序、忽略字符重复、忽略换行符等等不规范情况！“ AB C  DE ”与“E  DC B A”都能同样转码！只是对Instr的用法还不太熟，对字符在循环过程中的串连方法还不是太理解。
当然，我把它写入程序中时，必须把参数S处理成全部半角大写。
Function getCode(ByVal s As String) As String
    Dim i&, j$, arr
    arr = Array("A", "B", "C", "D", "E")
    For i = 0 To 4
        If InStr(strconv(application.asc(s)，vbuppercase), arr(i)) Then
            j = j & "1"
        Else
            j = j & "2"
        End if
    Next
    getCode = j
End Function