vba - 删除字符串的第一个字符(如果等于)

我正在为Access 2010练习VBA。

我阅读了有关我的帖子的所有建议的帖子，但没有发现任何具体内容。
我知道如何在字符串中移动特定字符，但我不知道如何删除等于某物的特定字符。

我想从电话号码中移动字符1或1-（如果有）。

例如：17188888888至7188888888或1-7188888888至7188888888

我正在尝试使用if语句，首先删除1。

电话号码输入为字符串而不是数字。

这就是我已经开始的内容：我收到一条错误消息，指出RemoveFirstChar不明确。

Public Function RemoveFirstChar(RemFstChar As String) As String
If Left(RemFstChar, 1) = "1" Then
  RemFstChar = Replace(RemFstChar, "1", "")
End If
RemoveFirstChar = RemFstChar
End Function

最佳答案

我已经在Access 2010中测试了您的功能，并且工作正常。.您还可以使用以下代码：

Public Function RemoveFirstChar(RemFstChar As String) As String
Dim TempString As String
TempString = RemFstChar
If Left(RemFstChar, 1) = "1" Then
    If Len(RemFstChar) > 1 Then
        TempString = Right(RemFstChar, Len(RemFstChar) - 1)
    End If
End If
RemoveFirstChar = TempString
End Function

关于vba - 删除字符串的第一个字符(如果等于)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8633223/