文本批量替换

2424882992

我现在遇到一个很棘手的问题，需要将VBA代码中的LIKE语法转化为 INSTR()函数(因为后者查询效率比前者快得多)。但是因为这种代码行特别多上千行，没法一个个手动更改，所以我想怎么才能实现如下效果：
if  school like "*abc*" then weidu="A"                                               转化为：     if instr(1,school,"abc") then weidu="A"
if  course like "*ui*" and  classname  like "*abc*" then weidu="B"     转化为：     if  instr(1,course,"*ui*") and  instr(1,classname,"*abc*") then weidu="B"

其实规则就一个，就是怎么把凡是形如 A  LIKE "*B*"  字眼文本  变成 INSTR(1,A,B)   ？
我研究好久正则表达式，但是也只能做到提取形如A LIKE"*B*"  字眼这个样子，没法完成替换。

chxw68

可以考虑将代码导出以后转到WORD中替换，或者在VBA里编程读取代码用正则进行替换，后者可能要稍复杂一些，从来没有使用过，只是想像。

duquancai

既然你举了一个例子，下面代码也是 举个例子》》》》》》》》》》》》

1. Sub main()
   
2.     Dim s$, j$, D As Object, js As Object
   
3.     s = "if course like ""*ui*"" and classname like ""*abc*"" then weidu=""B"""
   
4.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
   
5.     js.execScript "sr='" & s & "';r=/([a-z]+)\s+like\s+""\*([a-z]+)\*""/ig;"
   
6.     j = "sr.replace(r,function(s,a,b){return 'InStr(1,'+a+',""'+b+'"")';});"
   
7.     MsgBox js.eval(j)
   
8. End Sub

复制代码

2424882992

duquancai 发表于 2018-9-16 13:34
既然你举了一个例子，下面代码也是 举个例子》》》》》》》》》》》》

完美啊，这是什么语言的 正则表达式？没见过啊