Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

из Memo в Excel


Страницы:   1 2

vvrz ©   (2008-09-02 15:34:00) 

Добавляю текст в Мемо, в конце каждой строки добавляю  #10.
При переносе в Excel, #10 становится видимым и отображается в виде гадких черных палочек, типа "|".
Как избавиться от черных палочек или сделать их невидимыми?


Anatoly Podgoretsky   (2008-09-03 09:40:00) [1]

> vvrz  (03.09.2008 9:07:21)  [21]

Красные строки давно используются только маргиналами. Но не про это спрашивали., а о том какие еще абзацы в МЕМО?


Сергей М.   (2008-09-03 09:25:00) [2]


> vvrz ©   (03.09.08 09:07) [21]


Абзац в Ворде маркируется спецсимволом.

Этот спецсимвол игнорируется при вставке текста с абзац-разметкой в ячейку раб.листа Excel.

Приведенный пример не имеет отношения к механизму абзацев Ворда, это просто отступы, искуственно сформированные пробельными символами.

Т.е. маркер абзаца в док-те Ворда не имеет ничего общего с пробельными символами в обычном текстовом документе.


vvrz   (2008-09-03 09:14:00) [3]


> Сергей М. ©   (03.09.08 08:52) [20]
> "Палочки" вижу - перенос по словам работает.
> Убираю все "палочки" из текста - перенос как работал, так
> и продолжает работать, никаких видимых изменений.

Посмотри повнимательней на последнее предложение, войди в режим редактирования и сравни.

Еще раз спасибо за StringReplace, помогло.


vvrz   (2008-09-03 09:07:00) [4]


> Сергей М. ©   (03.09.08 08:30) [17]
>
>
> Какие могут быть абзацы в Мемо ?

 Самые обычные
Абзац (нем. Absatz - красная строка, буквально - уступ), 1)отступ в начальной строке печатного или рукописного текста.
Пример:
   ааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
ааааааааааааааааааааааааааааааааааааааа.
    Абзац_аааааааааааааааааааааааааааааааааааааааааааааааааааааа
ааааааааааааааааааааааааааааааа и т.д.

> > как убрать #13
>
>
> StringReplace


Спасибо огромное, это и искал, заменил #13 на #10 и О ЧУДО работает как надо


Сергей М.   (2008-09-03 08:52:00) [5]


> Пример http://files.mail.ru/8DVP7H


"Палочки" вижу - перенос по словам работает.
Убираю все "палочки" из текста - перенос как работал, так и продолжает работать, никаких видимых изменений.

Вывод - никакие дополнительные телодвижения не нужны.


Сергей М.   (2008-09-03 08:45:00) [6]


> достаточно большой фрагмент текста
> вставить .. в .. ячейку


Если мне не изменяет память, Ёхель97 позволяет записать в текстового формата ячейку не более 256 символов.


evvcom   (2008-09-03 08:38:00) [7]


> даже если стоит гала в формате ячейки

какая гала? "Переносить по словам"? Странно, у меня переносится. А файл твой не качается.


Сергей М.   (2008-09-03 08:30:00) [8]


> блокнот или тот же Мемо, если взять достаточно большой фрагмент
> текста, с несколькими абзацами


Какие могут быть абзацы в Мемо ?


> как убрать #13


StringReplace


vvrz   (2008-09-03 08:11:00) [9]


> Сергей М.

Ворд, блокнот или тот же Мемо, если взять достаточно большой фрагмент текста, с несколькими абзацами и вставить его в объединенную ячейку Excel, то перенос слов работать не будет, даже если стоит гала в формате ячейки. Пример http://files.mail.ru/8DVP7H

Но главный вопрос у меня, как убрать #13, при передачи текста из Мемо в Excel, чтоб не было черных палок.


Сергей М.   (2008-09-02 17:03:00) [10]


> vvrz ©   (02.09.08 16:43) [13]


Как ни странно у меня работает)

А ты, кстати, не путай божий дар с яичницей - Ворд при копировании вставляет в буфер не только данные в формате CF_TEXT. Так что сравнение с копированием из мемо тут неуместно, тем паче что целью для вставки является Ёхель, который может запростио плюнуть на CF_TEXT, взять из буфера данные в другом вормате, например, CF_RICHTEXT и при этом споткнуться (это вполне возможно в версияз Офиса ниже 2000-й)


vvrz   (2008-09-02 16:48:00) [11]


> Сергей М. ©   (02.09.08 16:39) [11]
>
> > Добавляю текст в Мемо, в конце каждой строки добавляю
>  #10
>
>
> В результате вставляемый в буфер обмена текст из Memo.Lines.
> Text выглядит так:
>
> 'Строка1'#10#13#10''Строка2'#10#13#10'Строка3'
>
> #13 - это и есть та самая "палка")


И как его оттуда убрать? Перед переносом в Еxcel проверять посимвольно и вырезать?


vvrz   (2008-09-02 16:43:00) [12]


> Сергей М. ©   (02.09.08 16:33) [9]
>
> > в Excel-е не работает автоматический перенос слов для
> объединенных
> > ячеек
>
>
> А у меня работает.
> Что я не так делаю ?


Объедини в Ехсel-e 10 строк и 10 столбцов в одну ячейку, и вставь туда кусок текста из Ворда несколько абзацев, и у тебя работать не будет.


Johnmen   (2008-09-02 16:40:00) [13]


> vvrz ©   (02.09.08 16:38) [10]

Тогда #13#10 врезать.


Сергей М.   (2008-09-02 16:39:00) [14]


> Добавляю текст в Мемо, в конце каждой строки добавляю  #10


В результате вставляемый в буфер обмена текст из Memo.Lines.Text выглядит так:

'Строка1'#10 #13#10''Строка2'#10 #13#10'Строка3'

#13- это и есть та самая "палка")


vvrz   (2008-09-02 16:38:00) [15]


> Т.е. тебе надо самому сделать разбивку на строки (помимо
> существующей в мемо)?

Совершенно верно. И вставить текст в Excel.


Сергей М.   (2008-09-02 16:33:00) [16]


> в Excel-е не работает автоматический перенос слов для объединенных
> ячеек


А у меня работает.
Что я не так делаю ?


Johnmen   (2008-09-02 16:32:00) [17]


> vvrz ©   (02.09.08 16:23) [7]

Т.е. тебе надо самому сделать разбивку на строки (помимо существующей в мемо)?


vvrz   (2008-09-02 16:23:00) [18]


> Johnmen ©   (02.09.08 16:02) [5]
>
> > В моем случае
>
> Твой случай - в студию (с)


Если в кратце: в Excel-е не работает автоматический перенос слов для объединенных ячеек, из-за этого нужно регулировать длину строки в Мемо до переноса текста в Excel.
У меня текст в Мемо попадает через буфер обмена, и все хорошо пока не наступает пара формировать отчет в Excell, и там было бы все хорошо если бы не эти черные палки.
Как сделать этот символ в Excel-е невидимым?


Сергей М.   (2008-09-02 16:11:00) [19]


> Мне нужно в конце каждой строки ОБЯЗАТЕЛЬНО добавить перевод
> строки


Он там уже есть - взгляни внимательно на строку, полученную при чтении св-ва Memo.Lines.Text и удивись.


Johnmen   (2008-09-02 16:02:00) [20]


> В моем случае

Твой случай - в студию (с)


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо