首页 > 解决方案 > 如何在 VBS 中使用替换功能

问题描述

我应该如何修复此脚本以查找重复字符并删除多余的字符?

    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"-")                        

标签: vbscript

解决方案


Replace是一个函数,这意味着它返回一个值。它不会改变它。由于要更改值,因此必须使用函数设置变量的值。
最后一行应该是这样的:

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

推荐阅读