如何在VBS中使用替换功能

Question

我是个初学者，在使我的简单脚本正常工作时遇到了麻烦。如何解决此脚本以查找重复的字符并删除多余的字符？

    ColumnValue = ""
    If Len(BaseCell(BaseRowIndex, "SwitchUnit_DD.DD003").Value) >0 Then
    End If

    If Len(BaseCell(BaseRowIndex, "Actuator_DD.DD003").Value) >0 Then
        ColumnValue = ColumnObject.DisplayValue & "-" & BaseCell(BaseRowIndex, "SwitchUnit_DD.DD003").Value & "-" & BaseCell(BaseRowIndex, "Actuator_DD.DD003").Value
    Else
        ColumnValue = ColumnObject.DisplayValue
    End If                      
    Replace(ColumnValue,Find"--",Replacewith"-")                        
End Function

Answer 1

Replace是一个函数，表示它返回一个值。它不会改变它。由于要更改值，因此必须使用该函数设置变量的值。最后一行应如下所示：

ColumnValue = Replace(ColumnValue, "--", "-")