Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как посчитать количество строк кода в проекте? / 7 сообщений из 7, страница 1 из 1
20.06.2004, 22:05:03
    #32568817
DeSpot
DeSpot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
Сделать экспорт всех модулей - не проблема, благо их в пределах десятка. А как сделать автоматизированный экспорт кода из форм? Поиск в гугле ничего толкового не дал. Писать самому несколько лениво- наверняка есть готовое решение.
Внешняя утилита - тоже приемлемое решение.
Хелп? %-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2004, 22:19:42
    #32568822
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
/topic/41749#697554
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2004, 22:32:46
    #32568825
DeSpot
DeSpot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
Спасибо :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2004, 22:48:17
    #32568826
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
Сохранение любого модуля, например, модуля формы Form1:
Application.VBE.ActiveVBProject.VBComponents("Form_Form1").Export("Form1.bas")

Число строк модуля:
Application.VBE.ActiveVBProject.VBComponents("Form_Form1").CodeModule.CountOfLines
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2004, 08:53:45
    #32568918
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
2 Serge Gavrilov
а вставка в модуль формы функции из текстовой переменной?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2004, 09:13:43
    #32568943
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
Отрывок из программки на вб.нет:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
 
        Dim frm As Access.Form
        Dim rpt As Access.Report
        Dim mdl As Access.Module
        Dim StrFile As String
        Dim appSRC As Access.Application


               Select Case objType
                    Case  2   ' форма
 
                        appSRC.DoCmd.OpenForm(ObjName, Access.AcFormView.acDesign, , , Access.AcFormOpenDataMode.acFormReadOnly, Access.AcWindowMode.acHidden)
                        If appSRC.Forms(ObjName).HasModule = True Then
                            frm = appSRC.Forms(ObjName)
                            mdl = frm.Module
                        Else
                            MsgBox("У формы '" & ObjName & "' нет модуля.", MsgBoxStyle.Information, "Внимание.")
                        End If
                    Case  3   ' отчёт
 
                        appSRC.DoCmd.OpenReport(ObjName, Access.AcView.acViewDesign, , , Access.AcWindowMode.acHidden)
                        If appSRC.Reports(ObjName).HasModule = True Then
                            rpt = appSRC.Reports(ObjName)
                            mdl = rpt.Module
                        Else
                            MsgBox("У отчёта '" & ObjName & "' нет модуля.", MsgBoxStyle.Information, "Внимание.")
                        End If
                End Select

                StrFile = mdl.Lines( 1 , mdl.CountOfLines)

Это мы считываем модуль формы или отчёта.
Есть альтернативный способ - сохранить форму или отчёт в файл и выделить оттуда код модуля - начиная с ключевой фразы -
Код: plaintext
1.
2.
3.
4.
5.
6.
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
Т.е. после этой: Attribute VB_Exposed = False. Причём с модулем это гораздо удобнее, потому что при экспорте в текст нет описания контролов (что в общем-то логично:) ).

Что касается вставки в код модуля функции - то делается это вот так:
методы InsertLines, DeleteLines у объекта модуль. Да и ещё там много чего интересного. На нете уже есть программка - которая осуществляет поиск в объектах Access и возможность редактирования исходных текстов, источников данных и т.п. Но заточена конкретно под нас - хотя переделать можно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2004, 09:22:38
    #32568962
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как посчитать количество строк кода в проекте?
спасибо Hummer,

хороший пример.
я не мог понять подхода - что модуль тоже объект
попробую разобраться с InsertLines, DeleteLines
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как посчитать количество строк кода в проекте? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 367ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1673703]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 56ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 236ms
total:  367ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]