在ASP经典VBScript

继续行（underbar）之间添加评论我目前正在尝试找出如何添加注释在ASP经典的行延续语句。我们的代码管理要求要求我们编写一个Start块和End块来标记我们进行更改的位置。例如。在ASP经典VBScript

旧代码

arrayName = Array("FIRST_NAME", _ 
        ,"LAST_NAME" _ 
        ,"ADDRESS" 
       )

新代码

arrayName = Array("FIRST_NAME" _ 
        ,"LAST_NAME" _ 
        ,"ADDRESS" _ 
        ' 2011/09/27 bob Added new column for XYZ support Start 
        ,"NEW_COLUMN" _ 
        ' 2011/09/27 bob Added new column for XYZ support End 
       )

新的代码导致错误，因为在底线不能被放置在注释中。无论如何都要将代码管理评论置于这些行之间？只是想看看我是否可能错过了其他选择。我认为没有，但你们是怎么想的？

来源

2011-09-27 Nap

你是正确的，注释和续行不相互兼容。 –

如果注释行位置对您非常重要，您可能需要编写自己的数组推送过程。
所以，你没有错过任何东西。这是VBScript syntax的原因。
随着underscore，实际运行如下：

阵列（ “FIRST_NAME”， “LAST_NAME”， “地址”，'评论， “NEW_COLUMN” ' 评论）

而且这也会导致错误。

我写了这个给出了推入数组的想法。

Sub [+](arrT, ByVal val) 
    Dim iIdx : iIdx = 0 
    If IsArray(arrT) Then 
     iIdx = UBound(arrT) + 1 
     ReDim Preserve arrT(iIdx) 
    Else 
     ReDim arrT(iIdx) 
    End If  
    arrT(iIdx) = val 
End Sub 

'Start push 

[+]arrayName, "FIRST_NAME" 
[+]arrayName, "LAST_NAME" 
[+]arrayName, "ADDRESS" 
'2011/09/27 bob Added new column for XYZ support Start 
[+]arrayName, "NEW_COLUMN" 
'2011/09/27 bob Added new column for XYZ support End 

'Test 
Response.Write Join(arrayName, "<br />")

来源

2011-09-27 03:33:46

-1突变什么应该是超级简单的代码，只是为了支持一些内部评论风格的要求是疯了。使用诸如'[+]'等聪明的技巧只是疯狂的。三个人认为这是一个好主意的事实令人震惊。这是一个很好的工作，我只得到一票;） – AnthonyWJones

使用此评论，而不是：

' 2011/09/27 bob Added "NEW_COLUMN" for XYZ support 
arrayName = Array("FIRST_NAME" _ 
        ,"LAST_NAME" _ 
        ,"ADDRESS" _ 
        ,"NEW_COLUMN" _ 
       )

你的版本控制系统会显示这样还有一个供开始和年底评论用处不大的差别的照顾。

来源

2011-09-27 01:52:32

+1理智的声音。 – AnthonyWJones

@AnthonyWJones公司可能并不健全，因为他们需要这个。 haha – Nap

我不认为这实际上是一个答案，因为你刚刚告诉OP他的要求是不合理的。 –

在ASP经典VBScript

回答

相关问题