Расширение VS2010 для регионов CSS?

Кто-либо знает о расширении VS2010 для регионов CSS? У меня есть некоторые довольно большие файлы CSS, и я, может казаться, не располагаюсь, как создать регионы для них. У меня есть расширение региона JavaScript, но не один для CSS?

2
задан 21.01.2012, 17:19

2 ответа

Вы могли попробовать макрос коллапса JavaScript и измениться //#region для /*#region*/

Проверьте http://blog.devarchive.net/2008/04/using-region-directive-with-javascript.html.

Конечно, необходимо создать новый макрос и скопировать/вставить тот же сценарий.

Option Strict Off
Option Explicit Off

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
Imports System.Collections

Public Module JsMacros

Sub OutlineCssRegion()
    Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection

    'Const REGION_START As String = "//#region"
    'Const REGION_END As String = "//#endregion"
    Const REGION_START As String = "/*#region*/"
    Const REGION_END As String = "/*#endregion*/"

    selection.SelectAll()
    Dim text As String = selection.Text
    selection.StartOfDocument(True)

    Dim startIndex As Integer
    Dim endIndex As Integer
    Dim lastIndex As Integer = 0
    Dim startRegions As Stack = New Stack()

    Do
        startIndex = text.IndexOf(REGION_START, lastIndex)
        endIndex = text.IndexOf(REGION_END, lastIndex)

        If startIndex = -1 AndAlso endIndex = -1 Then
            Exit Do
        End If

        If startIndex <> -1 AndAlso startIndex < endIndex Then
            startRegions.Push(startIndex)
            lastIndex = startIndex + 1
        Else
            ' Outline region ...
            selection.MoveToLineAndOffset(CalcLineNumber(text, CInt(startRegions.Pop())), 1)
            selection.MoveToLineAndOffset(CalcLineNumber(text, endIndex) + 1, 1, True)
            selection.OutlineSection()

            lastIndex = endIndex + 1
        End If
    Loop

    selection.StartOfDocument()
End Sub

Private Function CalcLineNumber(ByVal text As String, ByVal index As Integer)
    Dim lineNumber As Integer = 1
    Dim i As Integer = 0

    While i < index
        If text.Chars(i) = vbCr Then
            lineNumber += 1
            i += 1
        End If

        i += 1
    End While

    Return lineNumber
End Function

End Module
1
ответ дан 11.12.2019, 22:37

Это - старое сообщение, но я думал, что продолжу, так как это все еще появляется как главный результат в Google (VS регионы CSS).

См. http://jse.codeplex.com/ - это расширение допускает класс и регион, выходящий из строя с файлами CSS в рамках VS 2010.

Пример:

/* #region Generic class collection */

.GenericClass {
    border: 1px solid #000000;
    }

.GenericClass2 {
    border: 2px solid #000000;
    }

/* #endregion */
1
ответ дан 11.12.2019, 22:37

Теги

Похожие вопросы