如何在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屬性