Лучшая модернизация оборудования Visual Studio [закрывается]

Question

Лучшая модернизация оборудования Visual Studio [закрывается]

Я бы добавил счетчик пустых строк. Тогда вы можете установить максимальный порог. Я также добавил условие выхода из бесконечного цикла, просто потому что.

Это то, что у меня есть, похоже, работает. Надеюсь, это поможет.

    Option Explicit

    Const c_intMaxBlanks As Integer = 5

    Sub AddBlankRows()

        Dim iRow As Integer, iCol As Integer
        Dim oRng As Range
        Dim intBlankCnt As Integer
        Dim intMaxBlanks As Integer
        Dim blnIsDone As Boolean
        Dim intSaveStartRow As Integer
        Dim blnStartCnt As Boolean


        blnIsDone = False

        Set oRng = Range("a1")

        iRow = oRng.Row
        iCol = oRng.Column

        blnStartCnt = False
        Do
            'Check for blank Row using length of string
            If (Len(Trim(Cells(iRow, iCol).Text)) > 0) Then
                If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
                    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown

                    iRow = iRow + 2
                Else
                    iRow = iRow + 1
                End If
            Else
              iRow = iRow + 1
            End If

            'Check for blank Row using length of string
            If (Len(Trim(Cells(iRow, iCol).Text)) < 1) Then  'Check for blank Row using length of string
                If Not blnStartCnt Then
                    intSaveStartRow = iRow
                    blnStartCnt = True
                Else
                    If (intSaveStartRow + intBlankCnt) <> iRow Then
                        'restart
                        intSaveStartRow = iRow
                        intBlankCnt = 0
                    End If
                End If

                intBlankCnt = intBlankCnt + 1
            Else
                'restart
                blnStartCnt = False
                intBlankCnt = 0
            End If


            If intBlankCnt >= c_intMaxBlanks Then blnIsDone = True

            If iRow > 500 Then
                MsgBox "Stopping Loop: Maybe Infinite"
                Exit Do
            End If

        Loop While (Not blnIsDone)

    End Sub

5

hardware visual-studio performance

задан Vadim Kotov 16 August 2017 в 08:51

8 ответов

10k диск об/мин является хорошей идеей.

Вы захотите, чтобы и Visual Studio и Ваши рабочие копии были на 10k диске об/мин, если Вы пойдете тем путем: это - то, где весь Ваш диск, ввод-вывод будет происходить во время разработки, настолько вводящей в эксплуатацию Ваш самый быстрый диск, там является самым важным.

.02$ Jeff по проблеме здесь: http://www.codinghorror.com/blog/archives/000800.html

11