VB脚本执行报错：String cannot be of zero length 问题求助

首先看你遇到的System.ArgumentException: String cannot be of zero length.Parameter name: oldValue错误，根源出在你的VB脚本处理字符串的逻辑里，我们一步步拆解：

错误原因 #

你的代码片段：

Dim area As String = Row.Area.Substring(0, Row.Area.IndexOf("-") + 1)
Row.Area = Row.Area.Replace(area, "")

这里有个隐藏的风险：当Row.Area字符串里不包含-字符时，Row.Area.IndexOf("-")会返回-1，加1之后变成0。这时候调用Substring(0, 0)会生成一个空字符串，接着你把这个空字符串传给Replace方法的第一个参数（oldValue），而.NET的String.Replace方法不允许oldValue是空字符串，直接就触发了这个异常。

解决办法 #

你需要先判断Row.Area里是否存在-字符，再执行后续的截取和替换逻辑，避免生成空字符串作为Replace的参数。这里提供两种可行的方案：

方案一：先检查是否包含-，再处理 #

' 先判断是否存在"-"字符
If Row.Area.IndexOf("-") >= 0 Then
    Dim area As String = Row.Area.Substring(0, Row.Area.IndexOf("-") + 1)
    Row.Area = Row.Area.Replace(area, "")
Else
    ' 这里可以添加当没有"-"时的处理逻辑，比如保持原字符串不变，或者抛出自定义提示
    ' 示例：不做任何修改
    ' Row.Area = Row.Area
End If

方案二：使用更安全的字符串分割（如果你的需求是去掉-及之前的内容） #

如果你的核心需求是移除Row.Area中第一个-及其左侧的所有内容，也可以用Split方法来实现，逻辑更简洁且安全：

Dim parts() As String = Row.Area.Split("-"c, 2) ' 按第一个"-"分割成最多2部分
If parts.Length > 1 Then
    Row.Area = parts(1) ' 取分割后的第二部分
Else
    ' 没有"-"时，保持原字符串
    Row.Area = parts(0)
End If

这个方法的好处是不需要手动处理索引，避免了空字符串的问题，代码可读性也更高。

额外建议 #

在处理字符串操作时，一定要考虑边界情况：比如字符串为空、目标字符不存在、目标字符在开头/结尾等，这些场景很容易触发异常，提前做判断能让你的脚本更健壮。

内容的提问来源于stack exchange，提问作者Tom123