使用VBA替换MS Access中的模块文本

How do I do a search and replace of text within a module in Access from another module in access? I could not find this on Google.

如何从Access中的另一个模块中搜索和替换Access模块中的文本?我在Google上找不到这个。

FYI, I figured out how to delete a module programatically:

仅供参考,我想出了如何以编程方式删除模块:

Call DoCmd.DeleteObject(acModule, modBase64)

调用DoCmd.DeleteObject(acModule,modBase64)

4 个解决方案

#1

I assume you mean how to do this programatically (otherwise it's just ctrl-h). Unless this is being done in the context of a VBE Add-In, it is rarely (if ever) a good idea. Self modifying code is often flagged by AV software an although access will let you do it, it's not really robust enough to handle it, and can lead to corruption problems etc. In addition, if you go with self modifying code you are preventing yourself from ever being able to use an MDE or even a project password. In other words, you will never be able to protect your code. It might be better if you let us know what problem you are trying to solve with self modifying code and see if a more reliable solution could be found.

我假设你的意思是如何以编程方式执行此操作(否则它只是ctrl-h)。除非在VBE加载项的上下文中进行,否则很少(如果有的话)是一个好主意。自修改代码通常由AV软件标记,虽然访问权限会让你这样做,它不够强大,无法处理它,并且可能导致腐败问题等。此外,如果你使用自修改代码,你会阻止自己能够使用MDE甚至项目密码。换句话说,您永远无法保护您的代码。如果您通过自修改代码让我们知道您要解决的问题并查看是否可以找到更可靠的解决方案,那可能会更好。

#2

After a lot of searching I found this code:

经过大量的搜索,我发现了这段代码:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function to Search for a String in a Code Module. It will return True if it is found and
'False if it is not. It has an optional parameter (NewString) that will allow you to
'replace the found text with the NewString. If NewString is not included in the call
'to the function, the function will only find the string not replace it.
'
'Created by Joe Kendall 02/07/2003
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function SearchOrReplace(ByVal ModuleName As String, ByVal StringToFind As String, _
        Optional ByVal NewString, Optional ByVal FindWholeWord = False, _
        Optional ByVal MatchCase = False, Optional ByVal PatternSearch = False) As Boolean

    Dim mdl As Module
    Dim lSLine As Long
    Dim lELine As Long
    Dim lSCol As Long
    Dim lECol As Long
    Dim sLine As String
    Dim lLineLen As Long
    Dim lBefore As Long
    Dim lAfter As Long
    Dim sLeft As String
    Dim sRight As String
    Dim sNewLine As String

    Set mdl = Modules(ModuleName)

    If mdl.Find(StringToFind, lSLine, lSCol, lELine, lECol, FindWholeWord, _
            MatchCase, PatternSearch) = True Then
        If IsMissing(NewString) = False Then
            ' Store text of line containing string.
            sLine = mdl.Lines(lSLine, Abs(lELine - lSLine) + 1)
            ' Determine length of line.
            lLineLen = Len(sLine)
            ' Determine number of characters preceding search text.
            lBefore = lSCol - 1
            ' Determine number of characters following search text.
            lAfter = lLineLen - CInt(lECol - 1)
            ' Store characters to left of search text.
            sLeft = Left$(sLine, lBefore)
            ' Store characters to right of search text.
            sRight = Right$(sLine, lAfter)
            ' Construct string with replacement text.
            sNewLine = sLeft & NewString & sRight
            ' Replace original line.
            mdl.ReplaceLine lSLine, sNewLine
        End If
        SearchOrReplace = True
    Else
        SearchOrReplace = False
    End If

    Set mdl = Nothing
End Function

#3

Check out the VBA object browser for the Access library. Under the Module object you can search the Module text as well as make replacements. Here is an simple example:

查看Access库的VBA对象浏览器。在Module对象下,您可以搜索Module文本以及进行替换。这是一个简单的例子:

In Module1

Sub MyFirstSub()
    MsgBox "This is a test"
End Sub

In Module2

Sub ChangeTextSub()
    Dim i As Integer

    With Application.Modules("Module1")
        For i = 1 To .CountOfLines
            If InStr(.Lines(i, 1), "This is a Test") > 0 Then
                .ReplaceLine i, "Msgbox ""It worked!"""
            End If
        Next i
    End With
End Sub

After running ChangeTextSub, MyFirstSub should read

运行ChangeTextSub后,MyFirstSub应该读取

Sub MyFirstSub()
MsgBox "It worked!"
End Sub

It's a pretty simple search but hopefully that can get you going.

这是一个非常简单的搜索,但希望这可以让你去。

#4

additional for the function (looping through all the lines)

功能的附加功能(循环遍历所有线路)

Public Function ReplaceWithLine(modulename As String, StringToFind As String, NewString As String)
    Dim mdl As Module
    Set mdl = Modules(modulename)

    For x = 0 To mdl.CountOfLines
     Call SearchOrReplace(modulename, StringToFind, NewString)
    Next x

    Set mdl = Nothing
End Function

Enjoy ^^

#1

#2