Давно думал, как это сделать на хайясм. В "Алгоритме" нужно все писать по русски и если условия или циклы, то (скобочки в нужных местах и знаки).
Постер.Название новостиТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Название новостиТекст.Текст, "font-weight: bold"">", "")
Постер.Название новостиТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Название новостиТекст.Текст, "amp;", "")
Постер.Название новостиТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Название новостиТекст.Текст, "<span style=""font-family: Georgia"">", "")
Постер.Название новостиТекст.Текст = _Полезные объекты._Текст._Убрать пробелы(Постер.Название новостиТекст.Текст)
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "<hr />", "")
Постер.Память1.Значение = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "</var><span style=""font-weight: bold"">", 1)
Постер.Полная новостьТекст.Начало выделения = Постер.Память1.Значение
Постер.Полная новостьТекст.Длинна выделения = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<span style=""font-weight: bold"">Скриншоты:</span>", 1) - Постер.Память1.Значение
Постер.Полная новостьТекст.Текст = Постер.Полная новостьТекст.Выделенный текст
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "<br /><br />", "¶¶")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "<br />", "¶")
ПОВТОРЯТЬСЯ ПОКА _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<span style=""text-decoration: underline"">", 1) <> 0
Постер.Память1.Значение = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<span style=""text-decoration: underline"">", 1)
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Вставить символы в текст(Постер.Полная новостьТекст.Текст, _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "</span>", Постер.Память1.Значение), "[/u]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Полная новостьТекст.Текст, "<span style=""text-decoration: underline"">", "[u]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Полная новостьТекст.Текст, "[/u]</span>", "[/u]")
Конец цикла
ПОВТОРЯТЬСЯ ПОКА _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<span style=""font-weight: bold"">", 1) <> 0
Постер.Память1.Значение = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<span style=""font-weight: bold"">", 1)
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Вставить символы в текст(Постер.Полная новостьТекст.Текст, _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "</span>", Постер.Память1.Значение), "[/b]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Полная новостьТекст.Текст, "<span style=""font-weight: bold"">", "[b]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Полная новостьТекст.Текст, "[/b]</span>", "[/b]")
Конец цикла
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "<li>", "• ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "<div class=""hide spoiler-body"" title=""", "¶¶[u]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, ":"">", "[/u]¶")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, """, """")
ПОВТОРЯТЬСЯ ПОКА _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<", 1) <> 0
ЕСЛИ _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, ">", 1) = 0 ТОГДА
_Полезные объекты._Прерывания._Завершить цикл
Конец условия
Постер.Память1.Значение = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<", 1)
Постер.Полная новостьТекст.Начало выделения = Постер.Память1.Значение
Постер.Полная новостьТекст.Длинна выделения = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, ">", Постер.Память1.Значение) - Постер.Память1.Значение
Постер.Полная новостьТекст.Выделенный текст = ""
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Полная новостьТекст.Текст, ">", "")
Конец цикла
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Дата ", "Год ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "архива", "файла")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Мб", "Mb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "мб", "Mb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "MB", "Mb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "МБ", "Mb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "mb", "Mb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Mb /", "/")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "GB", "Gb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Гб", "Gb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "ГБ", "Gb")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "ОС", "Система")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "OC", "Система")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Операционная система", "Система")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Операционая система", "Система")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Платформа", "Система")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Рус. язык", "Язык")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Язык:", "Язык интерфейса:")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Интерфейс", "Язык интерфейса")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Языки", "Язык интерфейса")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "RuS", "Русский")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "русский", "Русский")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Рус.", "Русский")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Российский", "Русский")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "русификатор", "+ Русификатор")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "английский", "English")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Английский", "English")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "англ.", "English")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Англ. ", "English")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "english", "English")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Украинский", "Український")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "украинский", "Український")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Multilanguage", "Multi")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "multilanguage", "Multi")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Multilingual", "Multi")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "multilingual", "Multi")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "[/b]:", ":[/b]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " [/b] ", "[/b] ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "[/b] :", ":[/b]")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, ": [/b]", ":[/b] ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "не требуется", "He требуется")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "не надо", "He требуется")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "нужно", "требуется")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "присутствует", "Присутствует")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "есть", "Присутствует")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Есть", "Присутствует")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Имеется", "Присутствует")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "имеется", "Присутствует")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "в комплекте", "Присутствует")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Таблэтка", "Лекарство")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Таблетка", "Лекарство")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Лечение", "Лекарство")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Вакцина", "Лекарство")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Лицензия", "Лекарство")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Активация", "Лекарство")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "хорошее", "Хорошее")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "встроено", "Встроено")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "вылечено", "Встроено")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "ВШИТО", "Вшито")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "pdf", "PDF")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "djvu", "DJVU")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "serial", "Serial")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "|", "/")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "®", "")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " & ", "/")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " ", " ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " ", " ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " ", " ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " :[/b] ", ":[/b] ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Дом. страница", "Разработчик")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Адрес официального сайта", "Разработчик")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "32bit+64bit", "(32/64 bit)")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "both 32-bit and 64-bit", "32/64 bit")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "32bit/64bit", "32/64 bit")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " 32/64 bit", "(32/64 bit)")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " 32-64 bit", "(32/64 bit)")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "-бит", " bit")
#Далее заменялка
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "А ", "A ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " а ", " a ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " а,", " a,")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "В ", "B ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Вас ", "Bac ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "вас ", "Bac ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Во ", "Bo ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Все ", "Bce ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "С ", "C ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " с ", " c ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Со ", "Co ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "З ", "3 ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "За ", "3a ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " К ", " K ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, " у ", " y ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "её ", "ee ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Ее ", "Ee ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Её ", "Ee ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Не ", "He ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "На ", "Ha ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Но ", "Ho ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "ё", "е")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "выпуска", "выхода")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Дата", "Год выхода")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "®", "")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "™", "™")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "–", "–")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "—", "—")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "№", "№")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "•", "• ")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "»", "»")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "«", "«")
Постер.Полная новостьТекст.Начало выделения = 1
Постер.Полная новостьТекст.Длинна выделения = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "[b]Описание:[/b]", 1) + 15
Постер.Полная новостьТекст.Текст = Постер.Полная новостьТекст.Текст & "¶¶" & Постер.Полная новостьТекст.Выделенный текст & "¶¶"
Постер.Полная новостьТекст.Начало выделения = 1
Постер.Полная новостьТекст.Длинна выделения = _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "[b]Описание:[/b]", 1) + 15
Постер.Полная новостьТекст.Выделенный текст = ""
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "[b]Описание:[/b]", "")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "¶¶¶¶¶¶¶¶", "¶¶")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "¶¶¶¶¶¶", "¶¶")
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "¶¶¶¶", "¶¶")
Постер.Полная новостьТекст.Текст = Постер.Полная новостьТекст.Текст & "[b]Год выхода:[/b] 2015¶[b]Система:[/b] Windows XP/Vista/7 / 8 / 8.1 (32/64 bit)¶[b]Язык интерфейса:[/b] Multi / Русский¶[b]Лекарство:[/b] Не требуется¶[b]Размер файла:[/b] 15,1 Mb¶¶[center][b]Скачать {title}[/b][/center]¶[quote][center][b][url={File}]Скачать c File-space.org[/url]¶¶[url={hitfile}]Скачать c HitFile.net[/url]¶¶[url={Born}]Скачать c BornCash.org[/url]¶¶[url={Turbo}]Скачать c TurboBit.net[/url][/center][/b][/quote]"
Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Убрать пробелы в начале(Постер.Полная новостьТекст.Текст)
А очень интересно было делать в тексте (цикл в цикле цикла, цикла с условием) и вручную писать и проверять, пробелы и скобки.
Хайясм крут, но он не так пластичен.