Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2017-05-16 05:58:18 ЛС | профиль | цитата
Очень давно, я изучал знаминитую среду программирования "Алгоритм", и делал большие программы на нем , и программы долго загружались на моем прошлом совсем старом пк, и я придудумал в программе оставить только: кнопки, текстовые поля и т.д. а все остальное загружать по необходимости. Все хранится в нескольких текстовых файлах: условия, циклы, время и действия и в алгоритме это легко можно сделать и я даже просто писал текстовые, файлы без редактора и все работало когда без ошибок.
Давно думал, как это сделать на хайясм. В "Алгоритме" нужно все писать по русски и если условия или циклы, то (скобочки в нужных местах и знаки).

Постер.Название новостиТекст.Текст = _Полезные объекты._Текст._Заменить(Постер.Название новостиТекст.Текст, "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]")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "&#58;"">", "[/u]¶")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "&quot;", """")

ПОВТОРЯТЬСЯ ПОКА _Полезные объекты._Текст._Поиск в тексте(Постер.Полная новостьТекст.Текст, "<", 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 ")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "ё", "е")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "выпуска", "выхода")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "Дата", "Год выхода")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "®", "")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "™", "&trade;")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "–", "&#8211;")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "—", "&#8212;")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "№", "&#8470;")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "•", "&#8226; ")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "»", "&#187;")

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Заменить все(Постер.Полная новостьТекст.Текст, "«", "&#171;")

Постер.Полная новостьТекст.Начало выделения = 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]"

Постер.Полная новостьТекст.Текст = _Полезные объекты._Текст._Убрать пробелы в начале(Постер.Полная новостьТекст.Текст)

А очень интересно было делать в тексте (цикл в цикле цикла, цикла с условием) и вручную писать и проверять, пробелы и скобки.
Хайясм крут, но он не так пластичен.
карма: 4

0
Редактировалось 2 раз(а), последний 2017-05-16 06:56:38