使用VBScript从具有两个分隔到Excel的文本文件中写入数据

Question

我不了解VBScript并需要帮助。

逻辑上 - 我想在for循环中将其与#分开，然后再使用:进行拆分。

示例：

文字档案：

a : 21312 # asdfasd23sad : 43624 # asdsad*:21

Excel文件：

Answer 1

Function arr()
input = a : 21312 # asdfasd23sad : 43624 # asdsad*:21
arr1 = Split(input, "#")

For i = Lbound(arr1) To Ubound (arr1)
 arr2 = Split(arr1(i),":")
 For j =  Lbound(arr2) To Ubound (arr2)
  Msgbox arr2(j)
 Next
Next
End function