Вверх ↑
Этот топик читают: Гость
Ответов: 432
Рейтинг: 13
#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]"

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

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

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

0
vip
#1.1контекстная реклама от партнеров
Ответов: 165
Рейтинг: 6
#2: 2017-05-16 07:58:16 ЛС | профиль | цитата
Sersey, если вы про основной пакет четвертой версии - Windows, то программы в нём весят мало и сразу компилируются, что не даёт программам тормозить, в случае их правильной разработки.

Для самостоятельного написания кода вы можете воспользоваться следующими компонентами из вкладки Tools (Инструменты): VBScript (Visual Basic), InlineCode (Object Pascal), VBJScript (JavaScript), Gentee (Gentee).
Для загрузки и интерпретации кода во время исполнения существуют компоненты не из стандартной поставки: PascalScript (Pascal), InLineDelphiScriptGUI (Delphi + VCL), PythonEx (Python).

Программы на HiAsm работают быстро, а значит надобность из вашего примера отпадает. А уж визуальная разработка таких простых вещей здесь в разы быстрее, чем вы бы написали.

Добавлю, что для хранения функционала отдельно от программы можно использовать DLL, в том числе созданные в HiAsm.

Редактировалось 1 раз(а), последний 2017-05-16 07:58:46
карма: 4

0
Ответов: 432
Рейтинг: 13
#3: 2017-05-16 11:10:18 ЛС | профиль | цитата
Я говорил о другой программе, которую пока не знаю как сделать на хайясм, а на алгоритме есть просто возможности.
Просто наверно тему нужно закрыть.
карма: 4

0
Ответов: 1816
Рейтинг: 165
#4: 2017-05-16 13:06:54 ЛС | профиль | цитата
Sersey писал(а):
Хайясм крут, но он не так пластичен.

Несовсем верно. HiAsm пластичен. Кто мешает сделать элемент, который формирует программу управления геостационарными спутниками Земли? Это ведь тоже HiAsm будет.
Здесь это относится к пакету Windows. И у него есть возможность подгружать скрипты снаружи. Точно помню, andrestudio выкладывал элемент для интерпретации Pascal-кода. Да и в целом, может ошибаюсь, но можно было загружать VBScript из строки. Но это не совсем правильно. Как минимум из-за двух причин:
- Смысла выносить такой крошечный функционал нет, поскольку он будет на порядки быстрее работать нативно.
- Если уж совсем хочется модульности, то это делается, как сказал пользователь выше, через DLL.
Вообще, раз уж делать модульность, то нормально делать. Применять её только когда она востребована, и, если уж использовать, то с правильно спроектированной архитектурой, а то запутаетесь потом с модулями

Редактировалось 2 раз(а), последний 2017-05-16 13:08:41
карма: 5

0
Ответов: 432
Рейтинг: 13
#5: 2017-05-16 14:15:07 ЛС | профиль | цитата
И вам спасибо
карма: 4

0
Администрация
Ответов: 15293
Рейтинг: 1515
#6: 2017-05-16 15:51:35 ЛС | профиль | цитата
Sersey, судя по первому посту вы написали текст программы на неком языке, который Алгоритм может интерпретировать. Говорить о том, что HiAsm менее пластичен только потому, что он не может напрямую интерпретировать текст вашей программы ну согласитесь крайне странно. Все тоже самое можно написать на любом языке, который указан во втором сообщении этой темы и HiAsm будет исполнять это напрямую. Однако это очень далеко от задач, которые призван решать как HiAsm, так и Алгоритм.

Редактировалось 1 раз(а), последний 2017-05-16 15:52:09
карма: 26
0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)