Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 15:26

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 97 ]  На страницу Пред.  1, 2, 3, 4, 5  След.
Автор Сообщение
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 17:14 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Tumanov писал(а):
может и поплохеть
это ещё не самое страшное!
gtfox писал(а):
Код нумерации содержится в модуле AutoNumber и форме frmReNumber
от мысли, чтоб реализовать то что было доступно в CAD надо написать не менее 700 строк кода :shock:

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 17:39 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
не менее 700 строк кода :shock:

Это не считая той части, где надо почистить текстовые поля и вставить туда ссылки на ячейки =) вот я ещё даже как чистить не разобрался, так что те 700 это уже в следующей жизни

Что не так в строчке?
vsoCharacters.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
Содержимое спрятано под спойлер ↓
Спойлер:
Код:
Sub Text1()

Dim shp As Visio.Shape
   For Each shp In Visio.Application.ActivePage.Shapes
'   For Each shp In Application.ActiveWindow.Page.Shapes
   
  '  Dim UndoScopeID1 As Long
   ' UndoScopeID1 = Application.BeginUndoScope("Set Text Field")
   
'   ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(13626), visSelect
    Dim vsoCharacters As Visio.Characters
'   Set vsoCharacters = Application.ActiveWindow.Selection.Item(1).Characters
   Set vsoCharacters = Visio.Application.ActivePage.Shapes(1).Characters
   
    vsoCharacters.Begin = 0
    vsoCharacters.End = 0
    vsoCharacters.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
   
    'Application.EndUndoScope UndoScopeID1, True
Next shp
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 18:02 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
ЮрийR писал(а):
Что не так в строчке?
а что за ошибка выдаётся? чаще всего бывает что свойства которое хотят вставить в виде поля ещё не существует
или с опечаткой (не ваш случай)!

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 18:08 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
ЮрийR писал(а):
Что не так в строчке?
а что за ошибка выдаётся? чаще всего бывает что свойства которое хотят вставить в виде поля ещё не существует
или с опечаткой (не ваш случай)!

Ошибка ушла сама, я ничего не менял просто ещё 1 макрос записал, посмотрел и удалил... :o
Теперь вставляется значение "220"в первую фигуру, хотя на странице у меня 2 фигуры, и в обеих в ячейке стоит "1"
Блин меня пугает такое начало моего квеста


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 18:27 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
А код какой? В том что выше все заточено под одну фигуру
Код:
Set vsoCharacters = Visio.Application.ActivePage.Shapes(1).Characters

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 19:37 
Не в сети
Ветеран

Зарегистрирован: 26 авг 2019, 21:07
Сообщений: 267
Использую Visio c: 2019
Очков репутации: 11

Добавить очки репутацииУменьшить очки репутации
ЮрийR писал(а):
Что не так в строчке? vsoCharacters.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
А что она должна была сделать?
Добавить строку Prop.Row_1 в раздел ShapeData?
Содержимое спрятано под спойлер ↓
Спойлер:
Код:
Sub Text1()

Dim shp As Visio.Shape
   For Each shp In Visio.Application.ActivePage.Shapes
    With shp
        .AddSection visSectionProp
        .AddRow visSectionProp, visRowLast, visTagDefault
        .CellsSRC(visSectionProp, visRowLast, visCustPropsValue).RowNameU = "Row_77"
        .CellsSRC(visSectionProp, visRowLast, visCustPropsLabel).FormulaForceU = """вреереер"""
        .CellsSRC(visSectionProp, visRowLast, visCustPropsPrompt).FormulaForceU = """аглнпгнп"""
        .CellsSRC(visSectionProp, visRowLast, visCustPropsType).FormulaForceU = "2"
        '.CellsSRC(visSectionProp, 0, visCustPropsValue).FormulaU = 2241324
        .Cells("Prop.Row_77").FormulaU = 2241324
        .Characters.Text = .Cells("Prop.Row_77").ResultStr(0)
    End With
Next shp
End Sub

_________________
САПР-АСУ
https://github.com/gtfox/
YouTube


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 19:44 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
gtfox писал(а):
как говорится: по фотографии мы не лечим...
это не наш метод :mrgreen:
надо смотреть:
  • что за фигура?
  • есть ли у этой фигуры свойство prop.row_1
  • какое значение имеет свойство prop.row_1
хотя по хорошему должна была ошибка вылезти
ЮрийR писал(а):
Теперь вставляется значение "220"в первую фигуру, хотя на странице у меня 2 фигуры, и в обеих в ячейке стоит "1"
а не такое

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 19:46 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
А код какой? В том что выше все заточено под одну фигуру
Код:
Set vsoCharacters = Visio.Application.ActivePage.Shapes(1).Characters

в смысле код какой? фигура пока одна, но значение не то пишется, там "1" в ячейке, а пишется "2"..
Фигура - текстовая строка, в неё записано "0" просто текстом, и у неё есть prop.row_1="1"
gtfox писал(а):
Добавить строку Prop.Row_1 в раздел ShapeData?

Нет, поле Prop.Row_1 в текстовую строку.
Сейчас я ещё раз всё проверю и скину файлик если не пойму в чем дело... какой-то полтерГейтс


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 19:49 
Не в сети
Ветеран

Зарегистрирован: 26 авг 2019, 21:07
Сообщений: 267
Использую Visio c: 2019
Очков репутации: 11

Добавить очки репутацииУменьшить очки репутации
ЮрийR писал(а):
Нет, поле Prop.Row_1 в текстовую строку.
gtfox писал(а):
Код:
...
        .Characters.Text = .Cells("Prop.Row_1").ResultStr(0)
...

Ну или так
Код:
vsoCharacters.Text =shp.Cells("Prop.Row_1").ResultStr(0)

_________________
САПР-АСУ
https://github.com/gtfox/
YouTube


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:11 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Я в шоке с этого VBA, я сейчас за другим компом - всё заработало.. хотя тоже сначала ошибку писало, но я не смог найти где её код посмотреть, запустил ещё раз и всё отработало как надо :?
Вот вроде ж почти ничего не изменил, только цикл доделал
Код:
Sub Text1()
Dim i As Integer
Dim shp As Visio.Shape
i = 1
    For Each shp In Visio.Application.ActivePage.Shapes
    Dim vsoCharacters As Visio.Characters
'   Set vsoCharacters = Application.ActiveWindow.Selection.Item(1).Characters
    Set vsoCharacters = Visio.Application.ActivePage.Shapes(i).Characters
'    Set vsoCharacters = Visio.Application.ActivePage.Shapes(1).Characters
    vsoCharacters.Begin = 0
    vsoCharacters.End = 99
    vsoCharacters.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
i = i + 1
Next shp
End Sub


gtfox писал(а):
ЮрийR писал(а):
Нет, поле Prop.Row_1 в текстовую строку.
gtfox писал(а):
Код:
...
        .Characters.Text = .Cells("Prop.Row_1").ResultStr(0)
...

Ну или так
Код:
vsoCharacters.Text =shp.Cells("Prop.Row_1").ResultStr(0)


А как будет правильнее? Мне ещё надо перенести старое содержимое, ну это наверное дело техники =)
Ну в общем что-то уже заработало это хорошо =) :roll:


Вложения:
TextRField.vsdx [17.88 Кб]
Скачиваний: 23


Последний раз редактировалось ЮрийR 24 янв 2022, 20:17, всего редактировалось 1 раз.
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:17 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
ЮрийR писал(а):
Фигура - текстовая строка, в неё записано "0" просто текстом, и у неё есть prop.row_1="1"
кстати говоря текст и поле разные вещи !
текст это
gtfox писал(а):
vsoCharacters.Text
поле это
gtfox писал(а):
vsoCharacters.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
фигура имеет свойство Text, в котором содержится то что написано. внутри этого текстового блока могут встречаться поля.
ЮрийR писал(а):
А как будет правильнее?

тут все зависит от ситуации что вы хотите использовать. если надо забить текстовый блок который не будет изменяться, то используйте текст.
если нужно чтобы информация можно было изменить не влезая в режим правки текста руками или обновлялась автоматически например номер или имя страницы, то используйте поля.
поля бывают разные.
Содержимое спрятано под спойлер ↓
Спойлер:

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:21 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
нужно чтобы информация можно было изменить не влезая в режим правки текста руками то используйте поля.

Именно вот! Мне надо удалить текст, который просто текст, и вставить его же назад но в виде полей, разбитых на текст и номер, чтобы потом запустить штатный нумератор! Я ж иду по плану


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:23 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
ЮрийR писал(а):
Мне надо удалить текст, который просто текст, и вставить его же назад но в виде полей, разбитых на текст и номер, чтобы потом запустить штатный нумератор!
ну тогда существующий текст можно не убивать. добавить пробел и после него поле
Код:
Sub Text1()
Dim shp As Visio.Shape, tl As Integer
' определяем переменную
Set shp = Visio.Application.ActivePage.Shapes(1)
' длина текста фигуры
tl = Len(shp.Text)
Dim vsoCharacters As Visio.Characters
   Set vsoCharacters = shp.Characters
' добавляем в конце пробел в конце текста / ставим курсор на последнем символе с номером tl
    vsoCharacters.Begin = tl
    vsoCharacters.End = tl
    vsoCharacters.Text = " " 
' вставляем поле после пробела / ставим курсор на последнем символе с номером tl+1
        Set vsoCharacters3 = shp.Characters
    vsoCharacters3.Begin = tl + 1
    vsoCharacters3.End = tl + 1
    vsoCharacters3.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:34 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
ну тогда существующий текст можно не убивать. добавить пробел и после него поле

А как не убирая существующий текст, извлечь из него старый номер? Номер то по-любому надо перенести.
Это я пока только учился поле в текст вставлять, следующим этапом мне надо научится эти поля создавать в шейпах, где нет ячеек Prop и User


Последний раз редактировалось ЮрийR 24 янв 2022, 20:39, всего редактировалось 1 раз.

Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:38 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
ЮрийR писал(а):
А как не убирая существующий текст, извлечь из него старый номер? Номер то по-любому надо перенести
тут все зависит от того, номер был текстом записан ? то что перед номером всегда постоянно, типа Клемма 1, Клемма 2, Клемма 100500 ?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:42 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
номер был текстом записан ? то что перед номером всегда постоянно, типа Клемма 1, Клемма 2, Клемма 100500 ?

Да, всё обычным текстом. Вот самое сложное это отделить текст от номера - его расположение относительно текста может отличаться от случая к случаю...
Может быть "Кл-1", или "1-я клемма" или "1к"
Придётся наверное делать ячейку, где вручную будет указываться текст без номера


Последний раз редактировалось ЮрийR 24 янв 2022, 20:44, всего редактировалось 1 раз.

Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:44 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
ЮрийR писал(а):
Вот самое сложное это отделить текст от номера - его расположение относительно текста может отличаться от случая к случаю...
тогда нужно понять как отлавливать поле ? возможно перед ним будет некий префикс ?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:47 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
тогда нужно понять как отлавливать поле ? возможно перед ним будет некий префикс ?

Да, должно быть приблизительно так: Если перед или после номером есть "-" или "." или ":" то это принимается разделителем, если нет или попадается больше одного - появляется окошко, куда надо что-то вбить


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 20:55 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
ЮрийR писал(а):
Может быть "Кл-1", или "1-я клемма" или "1к"
А если возможны варианты "1-я клемма в 101-ом ряду" ? в программировании надо учитывать все возможные варианты: поэтому и получаются коды по 700 строк, когда предусматриваются все варианты

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автонумерация тескта
СообщениеДобавлено: 24 янв 2022, 21:00 
Не в сети
Новичок

Зарегистрирован: 22 янв 2022, 21:35
Сообщений: 37
Использую Visio c: 2020
Отрасль: Электроэнергетика
Должность: Инженер РЗА
Уровнь квалификации: Язык проКраммирования - именно так
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
ЮрийR писал(а):
Может быть "Кл-1", или "1-я клемма" или "1к"
А если возможны варианты "1-я клемма в 101-ом ряду" ? в программировании надо учитывать все возможные варианты: поэтому и получаются коды по 700 строк, когда предусматриваются все варианты

Согласен, тут надо сообщение типа "что нумеруем то?"
Но это всё потом, сначала научусь чистые номера переносить


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 97 ]  На страницу Пред.  1, 2, 3, 4, 5  След.

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB