将字符串插入字符串的特定部分答案

【问题标题】：Insert String Into Particular Part of String将字符串插入字符串的特定部分
【发布时间】：2016-05-10 16:14:39
【问题描述】：

我有一个存储文件路径的 Access 数据库。有时文档会被扔到“存档”子文件夹中。我创建了一个表单，它使用文件名和文件路径加载记录。在表单上，我创建了一个按钮，将\archive\ 添加到现有文件路径中。 \archive\ 需要在文件路径中找到的最后一个反斜杠之后插入。这是我尝试过的功能，但我无法在任何地方找到解决方案。

Public Function insertArch (ByVal strPath As String) insertArchive = InStrRev(strPath, "\") + " archive\" End Function

我试图从字符串末尾找到第一个反斜杠，然后想插入archive\。我做错了什么？

【问题讨论】：

标签： string ms-access vba

【解决方案1】：

InStrRev 返回一个字符偏移量，而不是一个字符串。

你可以：

Public Function insertArchive(ByVal strPath As String) As String
    Dim pos As Long
    pos = InStrRev(strPath, "\")
    If (pos > 0) Then
        insertArchive = Left$(strPath, pos) & "archive\" & Mid$(strPath, pos + 1)
    Else
        insertArchive = strPath
    End If
End Function

为：

?insertArchive("C:\foo\bar\qux.dat")
C:\foo\bar\archive\qux.dat

【讨论】：

完美运行。赞赏。