vba - MS Access VBA替换字符串中的指定范围

Question

我试图摆脱字符串中的“40-S8-7710”，而没有专门提供替换功能“40-S8-7710”，因为会有其他字符串可能包含“50-S2-7710”， “11-42-7710”等。下面的代码删除了“40-S8-7710”，但它也删除了之后的所有内容。我想返回“10-7190 20-2071 30-2061 S1-AOUT04X188”

有任何想法吗？

Dim NewString As String
Set NewString = "10-7190 20-2071 30-2061 40-S8-7710 S1-AOUT04X188"

NewString = Replace(NewString , Mid(NewString , InStr(NewString , "7710") - 6), "")
MsgBox(NewString)

标签： vbams-accessreplace

Answer 1

左([字符串],24)+右([字符串],13)