MsgBox列表值转换为字符串

Question

我正在使用VBScript并尝试一些不同的事情。

我有一个Inputbox，允许用户选择环境：

Question = Inputbox(Title, Message, Default)

选项：

1-abc

2-efg

3-hij

当用户选择1时，我的变量值为1，但是我要使用abc值而不是1。

我将如何去做？

感谢您的帮助。

Answer 1

您的问题对我不清楚。听起来您想简单地将用户键入的内容转换为其他值？像这样吗？

Dim actual_value 'value you want to work with in your code

Question = Inputbox(Title, Message, Default)

'get what the user typed in
If Question = "1" Then actual_value = "abc" End If
If Question = "2" Then actual_value = "efg" End If
'etc

然后使用actual_value？该代码显然有很多问题，但这说明了这一想法。您可能需要一些键/值类型匹配。看一下Dictionary对象。