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

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

2 голосов
/ 27 сентября 2011

В настоящее время я пытаюсь выяснить, как добавить комментарий в оператор продолжения строки в ASP classic.Наши требования к управлению кодом требуют от нас написания блоков 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
                  )

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

Ответы [ 2 ]

1 голос
/ 27 сентября 2011

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

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

И это также приведет к ошибке.Я написал это, чтобы дать представление о push-массивах. 

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 />")
1 голос
/ 27 сентября 2011

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

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

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

будет мало пользы.
...