拆分字符串值并将它们分配给VBscript中的变量

Question

我想从字符串中获取颜色值并将其指定为

  n1=red
  n2=blue
  n3=orange
  And so on.... 

示例代码如下。我不想写这些，只需为n赋值。

   strArray = Split(red, blue, orange, blue)
   Dim i
   For i = 0 to Ubound(strArray)
   response.write strArray(i) & "<br>"
   Next

Answer 1

您可以使用Execute：

strArray = Split("red, blue, orange, blue",",")
For i = 0 to Ubound(strArray)
  Execute("n" & (i+1) & " = Trim(strArray(" & i & "))")
Next

然后你将有4个变量n1,n2,n3,n4，其值是连续的颜色，如下面的测试所示：

msgbox n1
msgbox n2
msgbox n3
msgbox n4

警告：永远不要在不受信任的用户提供的字符串上使用Execute。