如何获取vbs中的当前代码行号？

Question

例如，我有下一个代码：

1. Dim a
2. Dim b
3. Dim c
4. Dim currentRow
5. a = 5
6. b = 9
7. c = a + b      
8. currentRow = ???   'There i need to get code row
9. MsgBox currentRow

所以我需要得到8

Answer 1

语言不提供这种内省/反思。所以你的选择是：

1. 使用其他类型的唯一位置标识符（关键字，说明，全局计数器）
2. 预处理.VBS文件以插入/替换所需的当前行号
3. 在Microsoft ScriptControl中执行代码并使用Error对象的.Line属性