Vbscript 字符串连接时如何避免数据的第一个实例

我是从word do获得的连接hlinks

data = data & "," & Vbcr & hlnk.Address & ":" & hlnk.TextToDisplay

这是分离器

现在我每次都会得到以“，”开头的数据（显然）

然后我使用

data = Right(data,Len(data)-1)

但我怀疑我的字符串连接方法。 我是否首先使用了正确的字符串连接方法

---

我见过，但我不认为这是我的情况。我不是加入数组，而是创建一个。

避免前导（或尾随）列表分隔符的规范方法是收集要连接到数组中的项，然后加入该数组。这可能就是为什么你认为你的问题是（边缘）重复的原因。如果事先不知道项目数，则应动态调整数组大小：

ReDim a(-1)
For Each hlnk In ...
  ReDim Preserve a(UBound(a)+1)
  a(UBound(a)) = hlnk.Address & ":" & hlnk.TextToDisplay
Next

填充数组后，只需将元素连接起来：

data = Join(a, "," & vbCr)

否则，您需要以不同于其他元素的方式处理第一个（或最后一个）元素：

If IsEmpty(data) Then
  data = hlnk.Address & ":" & hlnk.TextToDisplay
Else
  data = data & "," & vbCr & hlnk.Address & ":" & hlnk.TextToDisplay
End If

或在构建完字符串后删除前导（尾随）分隔符：

data = Mid(data, 3)

---

避免前导（或尾随）列表分隔符的规范方法是收集要连接到数组中的项，然后加入该数组。这可能就是为什么你认为你的问题是（边缘）重复的原因。如果事先不知道项目数，则应动态调整数组大小：

ReDim a(-1)
For Each hlnk In ...
  ReDim Preserve a(UBound(a)+1)
  a(UBound(a)) = hlnk.Address & ":" & hlnk.TextToDisplay
Next

填充数组后，只需将元素连接起来：

data = Join(a, "," & vbCr)

否则，您需要以不同于其他元素的方式处理第一个（或最后一个）元素：

If IsEmpty(data) Then
  data = hlnk.Address & ":" & hlnk.TextToDisplay
Else
  data = data & "," & vbCr & hlnk.Address & ":" & hlnk.TextToDisplay
End If

或在构建完字符串后删除前导（尾随）分隔符：

data = Mid(data, 3)

---

那么问题出在哪里呢？我首先正确地进行了字符串连接？可能会重复。。。在这个意义上：应该有适合这个问题的答案。@Scripting.FileSystemObject不是100%完全重复的。。。这就是为什么我添加了“…在这个意义上：应该有适合这个问题的答案”@Scripting.FileSystemObject它很好，然后继续。那么问题是什么呢？我首先正确地进行了字符串连接？可能重复了。。。在这个意义上：应该有适合这个问题的答案。@Scripting.FileSystemObject不是100%完全重复的。。。这就是为什么我添加了“…在这个意义上：应该有适合这个问题的答案”@Scripting.FileSystemObject它很好，继续前进。