Вверх ↑
Этот топик читают: Гость
Ответов: 952
Рейтинг: 4
#1501: 2018-03-09 21:11:48 ЛС | профиль | цитата
На форме добавления\редактирования записи БД есть окошко Примечания. Туда заносятся заметки, события, данные и т.д.
Это окошко реализовано РичЭдитом, что бы строчки переносились в окне компонента. Обычный Edit не подходит т.к. строки не переносятся в нем.
Чем еще можно заменить Edit кроме РичЭдита?
CSV я получаю стандартным сохранением.

--- Добавлено в 2018-03-09 21:15:06

Tad писал(а):
А кто говорил про ";"?

Нууу так как сохранение в CSV идет именно с таблицы StringTable, а у неё разделить установлен ; я и предположил это.

--- Добавлено в 2018-03-09 21:46:41

Заменил РичЭдит на Мемо - ситуация не изменилась, по прежнему коверкает строки в CSV....
Однако если из строк
/ 2017-12-19 Договор возвращен /
/ 2018-01-12 Приостановлено /
/ 2018-01-29 предос документ /
/ 2018-01-04 Сдано /
/ 2018-02-02 Отказ /

убрать всё и оставить только первую
/ 2017-12-19 Договор возвращен /

сохранение в CSV идет корректно.

Редактировалось 2 раз(а), последний 2018-03-09 21:46:41
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#1502: 2018-03-09 21:50:58 ЛС | профиль | цитата
user_asm писал(а):
Чем еще можно заменить Edit кроме РичЭдита?

Add(Memo,8175145,98,112)
{
Left=95
Top=110
ScrollBars=2
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1503: 2018-03-09 21:52:42 ЛС | профиль | цитата
Не работает Мемо, уже попробовал...
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#1504: 2018-03-09 21:53:51 ЛС | профиль | цитата
Схемку в студию

Add(MainForm,2953706,35,112)
{
Height=179
}
Add(Memo,8175145,98,112)
{
Left=15
Top=15
Width=335
Strings=#33:/ 2017-12-19 Договор возвращен / |30:/ 2018-01-12 Приостановлено / |31:/ 2018-01-29 предос документ / |21:/ 2018-01-04 Сдано / |21:/ 2018-02-02 Отказ / |
ScrollBars=2
}
Add(DoData,2737834,98,182)
{
link(onEventData,3227607:doEvent,[])
link(Data,8175145:Text,[])
}
Add(Button,6611710,35,182)
{
Left=20
Top=110
link(onClick,2737834:doData,[])
}
Add(Debug,3227607,175,182)
{
}


Редактировалось 1 раз(а), последний 2018-03-09 22:03:32
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1505: 2018-03-09 22:23:44 ЛС | профиль | цитата
Щас попробую вышеиложенное, а пока поделюсь изысканиями.
Если в БД сохранено
/ 2017-11-21 Предоплата / / 2017-10-19 допол.к заявке / / 2017-10-29 Сдано /
/ 2018-02-22 Сдано /
/ В работе Мир /

то при экспорте в CSV строки будет сносить.

Если удалить часть и оставить только
/ 2017-11-21 Предоплата / / 2017-10-19 допол.к заявке / / 2017-10-29 Сдано /

экспорт в CSV пойдет корректно. Т.е. всё что начинается с новой строки ведёт к коверканию CSV.

--- Добавлено в 2018-03-09 22:26:52

Tad, не совсем удобный вариант. С нижней точки РичЭдита я забираю сразу в запрос форматирования строки в запрос к БД. Сейчас буду пробовать как-то..

П.С. Tad, не помогло. Проблема таки в строках начинающихся с новой строки.

Редактировалось 4 раз(а), последний 2018-03-09 22:52:46
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#1506: 2018-03-10 00:33:56 ЛС | профиль | цитата
А так:

Add(MainForm,1879637,140,126)
{
Height=179
}
Add(Memo,8175145,203,126)
{
Left=15
Top=15
Width=335
Strings=#33:/ 2017-12-19 Договор возвращен / |30:/ 2018-01-12 Приостановлено / |31:/ 2018-01-29 предос документ / |21:/ 2018-01-04 Сдано / |21:/ 2018-02-02 Отказ / |
ScrollBars=2
}
Add(Button,6611710,140,196)
{
Left=20
Top=110
link(onClick,16646364:doReplace,[])
}
Add(Debug,3227607,280,196)
{
}
Add(Replace,16646364,203,196)
{
SubStr="\r\n"
DestStr=" "
link(onReplace,3227607:doEvent,[])
link(Str,8175145:Text,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1507: 2018-03-10 09:42:11 ЛС | профиль | цитата
Да, так работает. Спасибо. Схема приросла дополнительными элементами.
Что это было? В чем причина кривой работы с новыми строками?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#1508: 2018-03-10 17:51:30 ЛС | профиль | цитата
user_asm писал(а):
Нууу так как сохранение в CSV идет именно с таблицы StringTable...
Содержимое StringTable-это готовый CSV-файл. Точка doSave.<имя.csv>
И зачем пудрить мозги себе и людям ????

Редактировалось 1 раз(а), последний 2018-03-10 17:58:05
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1509: 2018-03-10 22:31:05 ЛС | профиль | цитата
Остался вопрос почему криво обрабатываются новые строки.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#1510: 2018-03-11 00:04:23 ЛС | профиль | цитата
Netspirit тебе уже говорил.
Ещё я повторю:
1. Запусти Excel.
2. Вручную введи несколько своих строк, как ты их хочешь видеть.
3. Выгрузи их в csv-файл.
4. И сравни со своим.

Редактировалось 1 раз(а), последний 2018-03-11 00:07:01
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1511: 2018-03-11 10:40:39 ЛС | профиль | цитата
Вот файл CSV. Cоставлен вручную в экселе, сохранен. Открывается без проблем.
Вижу только, что действительно идет обрамление в "

Переименовать расширение в csv
карма: 0

0
файлы: 1000001.jpg [226B] [799]
Ответов: 16884
Рейтинг: 1239
#1512: 2018-03-11 11:37:33 ЛС | профиль | цитата
user_asm писал(а):
Переименовать расширение в csv
Извини, ты что-то можешь сделать не через жопу ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1513: 2018-03-11 11:42:10 ЛС | профиль | цитата
Могу, обменник отказывается принимать формат csv. Как только он будет настроен на любой формат - сразу исправлю ситуацию.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#1514: 2018-03-11 12:11:48 ЛС | профиль | цитата
user_asm писал(а):
обменник отказывается принимать формат csv
Есть rar, zip.
user_asm писал(а):
С нижней точки РичЭдита я забираю сразу в запрос форматирования строки в запрос к БД.

Выложи строку запроса из твоего FormatStr
user_asm, и какой вывод?

Редактировалось 2 раз(а), последний 2018-03-11 16:00:49
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#1515: 2018-04-24 08:02:48 ЛС | профиль | цитата
Немного не в тему, но близко.
Есть ли рабочий пример работы с БД Oracle через драйвер ODBC? Драйвер в системе установлен.
Мне в принципе надо не много от примера, выполнение запроса с получением результата. Возникла проблема на работе, хочется попробовать решить её средствами HiAsm.
карма: 0

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