Добавить комментарий между строкой продолжения (нижняя черта) в ASP Classic VBScript

В настоящее время я пытаюсь выяснить, как добавить комментарий в операторе продолжения строки в классическом ASP. Наше требование к управлению кодом требует, чтобы мы написали блок Start и блок End, чтобы отметить место, где мы сделали изменение. Например.

Старый код

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
                  )

Новый код вызывает ошибку, поскольку подчеркивание не может быть помещено в комментарий. Можно ли как-то разместить комментарий управления кодом между такими строками? Просто хочу посмотреть, не пропустил ли я другие варианты. Я думаю, что нет ничего, кроме того, что вы, ребята/девчонки, думаете?


asp-classic comments vbscript
person Nap    schedule 27.09.2011    source источник
comment
Вы правы в том, что комментарии и продолжения строк несовместимы друг с другом.   -  person Dale Anderson    schedule 27.09.2011

Ответы (2)


arrow_upward
1
arrow_downward

Если для вас очень важна позиция строки комментария, вам может понадобиться написать собственную процедуру проталкивания массива.
Итак, вы ничего не упустили. Это причина синтаксиса VBScript.
С underscore фактически работает следующим образом:

Array("FIRST_NAME", "LAST_NAME", "ADDRESS", 'comment, "NEW_COLUMN", 'comment)

И это тоже вызовет ошибку.

Я написал это, чтобы дать представление о вставке в массивы.

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 />")
person Kul-Tigin    schedule 27.09.2011
comment
-1 мутировать то, что должно быть очень простым кодом, в это только для поддержки некоторых внутренних требований к стилю комментариев - это безумие. Использование хитрых трюков, таких как [+], просто безумие. Тот факт, что три человека подумали, что это хорошая идея, шокирует. Это хорошая работа, я получил только один голос;) - person AnthonyWJones; 27.09.2011

arrow_upward
1
arrow_downward

Вместо этого используйте этот комментарий:

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

Ваша система управления версиями позаботится о том, чтобы показать различия, поэтому комментарии start и end практически бесполезны.

person Austin Salonen    schedule 27.09.2011
comment
@AnthonyWJones Компания может быть не в своем уме, поскольку они требуют этого. ха-ха - person Nap; 28.09.2011
comment
Я не думаю, что это на самом деле ответ, поскольку вы только что сказали ОП, что его просьба необоснованна. - person Micha Wiedenmann; 02.12.2014