Question

Excel VBA 字符替换

把一个方程所有不含系数的未知数都替换为"1*" & “x"的形式。定义变量var = "x"。比如"x+1=3-x"，应输出为"1*x+1=3-1*x"。应怎样写代码？

Answer 1

Sub LKJL()
    SS = "x+1=3-x+2y"
    Set reg = CreateObject("VBSCRIPT.REGEXP")
    reg.Global = True
    reg.Pattern = "[/+-/*///^=]"
    Set mc = reg.Execute(SS)
    bb = Split(reg.Replace(SS, "|"), "|")
    For i = 0 To UBound(bb)
        If Len(bb(i)) = 1 And Not IsNumeric(bb(i)) Then
            aa = "1*" & bb(i)
        Else
            aa = bb(i)
        End If
        If i = UBound(bb) Then
        cc = ""
        Else
        cc = mc.Item(i)
        End If
        kk = kk & aa & cc
    Next
    MsgBox kk
End Sub

追问

不行呀，输入1*x+1=0的时候就输出1*1*x+1=0了，我要严格按照题意执行的程序。只替换没有系数的未知数。谢谢。

追答

贴多点数据出来

Answer 2

我认为分两步。
一、x 替换成 1*x
二、*1*x 替换成 *x