访问 VBA |如何用另一个字符串替换字符串的一部分

Question

我正在尝试创建一段代码来用另一个单词替换一个单词。 示例：将 Avenue 替换为 Ave，将 North 替换为 N。 我正在使用 MS Access，我可以使用 SQL REPLACE 函数，但我想使用 Access 模块在 VBA 中执行此操作，以便我可以将该函数附加到其他列。

我不知道从哪里开始，所以任何意见将不胜感激。

盖伊

Answer 1

使用 Access 的 VBA 函数 Replace(text,查找、替换）：

Dim result As String

result = Replace("Some sentence containing Avenue in it.", "Avenue", "Ave")

Answer 2

我正在阅读这篇文章，并想添加信息，尽管它对于OP来说肯定不再及时。

上面的 BiggerDon 指出了死记硬背将“North”替换为“N”的困难。 “Avenue”到“Ave”也存在类似的问题（例如“Avenue of the Americas”变成“Ave of the Americas”：仍然可以理解，但可能不是OP想要的。replace

()函数完全与上下文无关，但地址不是。一个完整的解决方案需要有额外的逻辑来正确解释上下文，然后根据需要应用replace()。

数据库通常包含地址，所以我想指出OP问题的通用版本。到内的地址美国已通过编码准确性支持系统 (CASS) 进行寻址（幽默！），它是一种数据库工具，它接受美国地址并完成或更正它以满足美国邮政服务设定的标准https://en.wikipedia.org/wiki/Postal_address_verification 有基础知识，更多信息可在邮局获取：https://ribbs.usps.gov /index.cfm?page=address_info_systems

Answer 3

您也可以使用与此类似的函数，它允许您在想要更改值的不同情况下添加：

Public Function strReplace(varValue As Variant) as Variant

    Select Case varValue

        Case "Avenue"
            strReplace = "Ave"

        Case "North"
            strReplace = "N"

        Case Else
            strReplace = varValue

    End Select

End Function

然后您的 SQL 将读取如下内容：

SELECT strReplace(Address) As Add FROM Tablename

Answer 4

由于字符串“North”可能是街道名称的开头，例如“Northern Boulevard”，因此街道方向始终位于街道编号和街道名称之间，并且与街道编号和街道名称分开。

Public Function strReplace(varValue As Variant) as Variant

Select Case varValue

    Case "Avenue"
        strReplace = "Ave"

    Case " North "
        strReplace = " N "

    Case Else
        strReplace = varValue

End Select

End Function