MS Access查询：使用单个字符替换字符串中的所有字符

Posted 2021-04-01

我通常会想出（或成功谷歌！）解决大多数我不知道的事情，但是这个让我感到难过，我相信过去一定有人做过。

在纸上我正在尝试的很简单（我想！）

基本上我正在尝试重现Field1和Field2中的文本字符串，但所有字母字符都替换为单个字符，即“x”。

例如：

Field1 |字段2

Mark Tandy | xxxx xxxxx

基本上，我想模糊Field1数据。更好的是，我希望能够让每个单词的第一个字母不受影响，即

Field1 |字段2

Mark Tandy | Mxxx Txxxx

可能有一个完美的简单解决方案（可能涉及一个自定义函数），我并没有在横向上思考这个问题。

我会继续努力，但如果有人有任何建议我会非常感激！

非常感谢，

标记

答案

您可以使用自定义功能轻松解决此问题：

Public Function ObscureString(InputString As String) As String
    Dim SplitString() As String
    SplitString = Split(InputString, " ") 'Split words on spaces
    Dim SingleString As Variant
    For Each SingleString In SplitString
        If ObscureString <> "" Then ObscureString = ObscureString & " " 'Append space
        ObscureString = ObscureString & Left(SingleString, 1) 'Append first character
        If Len(SingleString) > 1 Then
            ObscureString = ObscureString & String(Len(SingleString) - 1, "x") 'x-es
        End If
    Next
End Function