如何使用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"-")

Answer 1

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

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

如何使用VBS中的替换功能

How do I use the Replace function in VBS

vbscript