VPF::Лесенки - Форум программистов

neic

Дата 28.9.2008, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7

Такая проблема...у меня есть один проект в него впихано около 15-20 тыс. строк. Есть 2-3 функции по 3,5тыс строк, как понимаете ориентироваться без соблюдения "лесенок" будет сложновато.

Вот хочу узнать есть ли программы, которые автоматически выстраивают эти лесенки?

Примеры:

Код


' без лесенки
If q = 0 then
for i = 1 to 10
list1.additem i
next
end if

Код


' c лесенкой
If q = 0 then
       for i = 1 to 10
             list1.additem i
       next
end if

Это сообщение отредактировал(а) neic - 28.9.2008, 15:01

XOXOJI

Дата 28.9.2008, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2

Знаю точно что есть такие, которые убирают, но вот чтобы сами расставляли... хз возможно и есть

Akina

Дата 28.9.2008, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Когда мне понадобилось такое, я воспользовался поиском. Выяснилось, что таких программ - не груды. Через 5 минут искать надоело, плюнул и написАл свою. Заняло это 20 минут.
Главное - сразу решиться на две вещи (1 - метки и комменты отдельно от кода, т.е. отдельной строкой; 2 - нафиг переносы строк, т.е. продолжение на следующей строке), а остальное ерунда.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

neic

Дата 29.9.2008, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7

Хм...можешь скинуть исходник?
Посмотрю как у тя сделано, мож что-нить подулучшу.

Dexx

Дата 26.10.2008, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

http://www.axtools.com/

--------------------

neic

Дата 27.10.2008, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7

Dexx, очень мощная утилита, мне %80 функций из неё не надо =) мне нужно, чтобы раз нажал и все лесенки раставились...просто и без настроек =)

vbCrLf

Дата 27.10.2008, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.5.2006
Где: Севастополь

Репутация: 1
Всего: 1

Маленькая прога, сделал для себя на скорую руку smile

Понравилось

Присоединённый файл ( Кол-во скачиваний: 4 )

CodeFormat.rar 9,88 Kb

XOXOJI

Дата 27.10.2008, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2

Цитата(vbCrLf @ 27.10.2008, 12:45)

Маленькая прога, сделал для себя на скорую руку smile

Понравилось

Немного с конструкцией If ... Then .... Else ... End If в твоем примере проблемка. кот код мой. пока не все конструкции внесены, но основные есть

Код


Open Text1.Text For Input As #1
Dim stroka As String
Dim next_str As String
Dim i As Integer
Do Until EOF(1)
  Line Input #1, stroka
  Do While Mid$(stroka, 1, 1) = " "
    stroka = Right$(stroka, Len(stroka) - 1)
  Loop
  R1.Text = R1.Text & next_str
  If Left$(stroka, 11) = "Private Sub" Then next_str = "    "
  If Left$(stroka, 10) = "Public Sub" Then next_str = "    "
  If Left$(stroka, 19) = "Private Function" Then next_str = "    "
  If Left$(stroka, 18) = "Public Function" Then next_str = "    "
  If Left$(stroka, 2) = "Do" Then next_str = next_str & "    "
  If Left$(stroka, 2) = "If" And Right$(stroka, 4) = "Then" Then next_str = next_str & "    "
  If Left$(stroka, 6) = "Select" Then next_str = next_str & "    "
  If Left$(stroka, 3) = "For" Then next_str = next_str & "    "
  If Left$(stroka, 4) = "With" Then next_str = next_str & "    "
  If Left$(stroka, 5) = "While" Then next_str = next_str & "    "
  If Left$(stroka, 6) = "End If" And next_str <> "" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = Left$(next_str, Len(next_str) - 4)
  'If Left$(stroka, 6) = "End If" And next_str <> "" Then next_str = Left$(next_str, Len(next_str) - 4)
  If Left$(stroka, 4) = "Next" And next_str <> "" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = Left$(next_str, Len(next_str) - 4)
  If Left$(stroka, 4) = "Loop" And next_str <> "" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = Left$(next_str, Len(next_str) - 4)
  If Left$(stroka, 4) = "Wend" And next_str <> "" Then next_str = Left$(next_str, Len(next_str) - 4)
  If Left$(stroka, 8) = "End With" And next_str <> "" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = Left$(next_str, Len(next_str) - 4)
  If Left$(stroka, 8) = "End Case" And next_str <> "" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = Left$(next_str, Len(next_str) - 4)
  'If Left$(stroka, 8) = "Else" And next_str <> "" Then next_str = Left$(next_str, Len(next_str) - 4)
  If Left$(stroka, 7) = "End Sub" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = ""
  If Left$(stroka, 12) = "End Function" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4): next_str = ""
  If Left$(stroka, 8) = "Else" And next_str <> "" Then R1.Text = Left$(R1.Text, Len(R1.Text) - 4) ': next_str = Left$(next_str, Len(next_str) - 4)
  R1.Text = R1.Text & stroka & Chr(13) & Chr(10)
  'If Left$(stroka, 4) = "Else" Then next_str = next_str & "    "
Loop
Close #1
'R1.Text = R1.Text & next_str & stroka & Chr(13) & Chr(10)
Open Text1.Text & "1" For Output As 1
Print #1, R1.Text
Close #1

где R1 - rich text box

Это сообщение отредактировал(а) XOXOJI - 27.10.2008, 13:55

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »