Question

为了找到模式，我写了这样的代码。在某些时候的描述“。”将出现在数字和文本之间，例如“0.5 text book and pen.whatever。”或“我喜欢炸鸡和汉堡.65毫米。”
我想在文本之间替换“。”而不是数字。

Dim FindPeriodIndex As Integer
Do While FindPeriodIndex = InStr(Description, Chr(46)) <> 0

    If IsNumeric(Mid(Description, FindPeriodIndex - 1, 1)) = False Or   IsNumeric(Mid(Description, FindPeriodIndex + 1, 1)) = False Then
        Description = SuperReplace(Description, Chr(46), " ")
    End If
 Loop

Superreplace是我创建的一个功能，它类似于替换功能但可以替换数组。这在我的问题中无关紧要。我创建的代码并没有真正起作用，任何人都可以更好地了解它为什么不起作用？欣赏！

Answer 1

尝试

Dim FindPeriodIndex As Integer
Do While FindPeriodIndex = InStr(Description, Chr(46)) <> 0

    If IsNumeric(Mid(Description, FindPeriodIndex - 1, FindPeriodIndex)) = False Or   IsNumeric(Mid(Description, FindPeriodIndex, FindPeriodIndex + 1)) = False Then
        Description = SuperReplace(Description, Chr(46), " ")
    End If
 Loop

替换某些模式中的符号

1 个答案: