Нумерация строк в модуле

[Andrey Fedorov]

Понадобилось пронумеровать строки в модуле. Никто не видел нормального примера для этого дела? Интересует собственно сама нумерация, чтобы не изобретать очередной лисапед...

[Хакер]

А с какой целью?

[Andrey Fedorov]

А с какой целью?

Не спрашивал - мое дело выполнить конкретный заказ и получить деньги. Уже все сделал...

[Andrev]

А с какой целью?

Возможно, автору платят за количество строк в модуле.

В чем проблема пронумеровать-то? Открываем модуль как текстовый файл и заменяем символ переноса строки на комментарий с номером строки с переносом строки.

[Andrey Fedorov]

Возможно, автору платят за количество строк в модуле.

То что не за это я уверен...

В чем проблема пронумеровать-то? Открываем модуль как текстовый файл и заменяем символ переноса строки на комментарий с номером строки с переносом строки.

Фу... Надо было типа так:

Код: Выделить всё

Option Compare Database
Option Explicit

       Public Function ПроверкаБИК(sBik As String) As Boolean
              Dim i As Integer
100        sBik = Trim$(sBik)
110        If Len(sBik) <> 9 Then Exit Function
120        For i = 1 To 9
130            If Not IsNumeric(Mid$(sBik, i, 1)) Then Exit Function
140        Next i
150        ПроверкаБИК = True
       End Function

       Public Function ПроверкаКорСчета(sKSchet As String, sBik As String) As Boolean
160        sKSchet = Trim$(sKSchet)
170        If Len(sKSchet) <> 20 Then Exit Function
180        ПроверкаКорСчета = ПроверкаСчета("0" & Mid$(sBik, 5, 2) & sKSchet)
       End Function


И мелких нюансов по дороге достаточно...

[Хакер]

В чём логика? Хорошо, на «Public Function» не ставим, на «Dim» не ставим, потому что это неисполняемые строки (и на них нельзя поставить брекпоинт). А на End Function почему не ставим метку?

[Andrey Fedorov]

В чём логика? Хорошо, на «Public Function» не ставим, на «Dim» не ставим, потому что это неисполняемые строки (и на них нельзя поставить брекпоинт). А на End Function почему не ставим метку?

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