Вверх ↑
Этот топик читают: Гость
Ответов: 19
Рейтинг: 0
#1: 2015-04-02 18:11:17 ЛС | профиль | цитата
Файл в кодировке UTF-8 имеет такой вид:
строка 1
<пустая строка>
строка 2
<пустая строка>
строка 3
<пустая строка>
...

Простая задача: к каждой строчке (кроме пустых) добавляем что-то спереди и сзади. Когда вывожу в окно, всё нормально, а когда в файл, — все строки, во-первых, слепляются в одну, во-вторых, непонятно, как вставить пустые строки.

code_35440.txt

Понимаю, что такую элементарную задачу можно было бы сделать достаточно просто практически любым инструментом, но любопытно всё же разобраться с HiAsm. Времени убил уже весь сегодняшний день. Идеи исчерпались. На форуме тоже ничего не нашёл (может, плохо искал).
карма: 0

0
файлы: 1code_35440.txt [1.7KB] [183]
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2015-04-02 18:25:56 ЛС | профиль | цитата
Перед загрузкой в StrList надо перекодировать из UTF-8 в ASCII с помощью Charset, т.к. программы, сделанные в пакете Delphi, работают только с ASCII
карма: 10
0
Ответов: 19
Рейтинг: 0
#3: 2015-04-02 18:35:37 ЛС | профиль | цитата
Представим, что файл в кодировке 1251. Все мои вопросы остаются в силе.
карма: 0

0
Ответов: 8960
Рейтинг: 824
#4: 2015-04-02 18:44:19 ЛС | профиль | цитата
VadimM
1. Приводим схему в удобочитаемый вид;
2. Схему копируем с рабочего поля HiAsm в теги "code";
3. Для разделения строк к каждой справа добавляем символы

code_35441.txt
карма: 19

0
файлы: 1code_35441.txt [1.3KB] [225]
Ответов: 19
Рейтинг: 0
#5: 2015-04-02 18:54:13 ЛС | профиль | цитата
Была у меня такая попытка — вставить
, но не таким простым способом, сцеплял помудрёнее, оно и не работало. Благодарю за помощь.

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2015-04-03 08:39:34 ЛС | профиль | цитата
VadimM писал(а):
Была у меня такая попытка — вставить
Зачем ?
Можно было и так решить :

Add(ODialog,12900011,175,112)
{
link(onExecute,4838462:doEvent1,[])
}
Add(Button,10542969,126,112)
{
Left=25
Top=25
Width=100
Height=25
Caption="Выбрать файл"
link(onClick,12900011:doExecute,[])
}
Add(StrList,8982454,448,133)
{
FileName="mytext.txt"
}
Add(If_else,2864856,329,126)
{
Op2=String()
link(onTrue,16769151:doWork1,[(424,132)])
link(onFalse,10274204:doString,[])
}
Add(FormatStr,10274204,378,133)
{
DataCount=1
Mask="{{Выступ|%1}}"
link(onFString,16769151:doWork2,[])
}
Add(Hub,4838462,217,112)
{
link(onEvent1,8982454:doClear,[(433,118)(433,146)])
link(onEvent2,15652489:doSearch,[])
}
Add(HubEx,16769151,420,133)
{
link(onEvent,8982454:doAdd,[])
}
Add(SearchInFile,15652489,266,119)
{
Sensitive=1
Point(onEnd)
link(onSearch,2864856:doCompare,[])
link(onEnd,8982454:doSave,[(315,139)(315,174)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2015-04-03 08:54:32 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 22:56:51
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#8: 2015-04-03 13:33:27 ЛС | профиль | цитата
А так vadim.rar файл результата mytext.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1vadim.rar [638B] [168]
Ответов: 19
Рейтинг: 0
#9: 2015-04-03 13:49:20 ЛС | профиль | цитата
А так vadim.rar файл результата mytext.txt


И так нулевой длины. А Вас работает правильно?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#10: 2015-04-03 14:27:10 ЛС | профиль | цитата
VadimM писал(а):
А Вас работает правильно?

vadim.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1vadim.png [8.3KB] [373]
Ответов: 19
Рейтинг: 0
#11: 2015-04-03 14:35:19 ЛС | профиль | цитата
Так в чём же дело? Разные версии HiAsm? У меня v4.04 build 184. Компилятор delphi.
карма: 0

0
Ответов: 8960
Рейтинг: 824
#12: 2015-04-03 15:27:59 ЛС | профиль | цитата
VadimM, на палитре элементов на SearchInFile правой кнопкой и выбрать "Обновить", перезапустить HiAsm.
карма: 19

0
Ответов: 19
Рейтинг: 0
#13: 2015-04-03 15:42:14 ЛС | профиль | цитата
VadimM, на палитре элементов на SearchInFile правой кнопкой и выбрать "Обновить", перезапустить HiAsm.




Это нормально? Или нужно что-то настраивать для доступа к репозиторию?
карма: 0

0
Ответов: 8960
Рейтинг: 824
#14: 2015-04-03 18:28:53 ЛС | профиль | цитата
VadimM, это не нормально Прилагаю архив с этим файлом, по пути "...hiasmElementsDelphiconf" замените *.ini, а "...hiasmElementsDelphicode" *.pas
карма: 19

0
файлы: 1searchinfile123.rar [2.4KB] [173]
Ответов: 19
Рейтинг: 0
#15: 2015-04-03 19:25:11 ЛС | профиль | цитата
Моя вина, забыл: у меня всё, что приходит из интернета виртуализируется. Во избежание, так сказать... Поэтому hiasm и не смог обновить.

Теперь с обновлённым компонентом всё работает, как задумано (Tad'ом).

Попутно возник вопрос: существует где-нибудь список истории обновления компонентов? Чтобы не попадать больше в такие ситуации.
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)