Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вставка символа {Enter} в строку 
V
    Опции темы
RussianHero
  Дата 30.10.2007, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет



Всем привет! Прошу прощения, что давно не появлялся... Учеба, работа, волейбол 8) время просто исчезает...
Ну так вот, по делу:
У меня есть 
Код

Dim Str As String

Я этот стринг должен заполнить обозначениями, причем каждое из них должно отделяться от другого Энтером. Потомучто после того, как я "напихаю" это строку всем, чем надо, я отправляю ее в ворд и вывожу ее в ячейку таблицы
Код

ZIPRezult.ValueAsString("KolVizdelii", i) = Str
myTable.Cell(i+1,7).Range.Text = ZIPRezult.ValueAsString("Kol", i)

должна получитсья красота типа:
ХХХХ ХХХХХХ ХХ Х
ХХХХ ХХХХХХ ХХ Х
ХХХХ ХХХХХХ ХХ Х
ХХХХ ХХХХХХ ХХ Х

Но в том-то и дело, чтоникак не могу в эту строку засунуть этот Энтер. Такое вообще возможно?
Перепробовал уже много чего:
Str = Str & "{Enter}" & ZIPobj.Value("CN_CODE")
и
Str = Str & "#13" & ZIPobj.Value("CN_CODE")
и без кавычек....
Вобщем без кавычек компилятор ругаеться, а с кавычками, он тупо конкотенирует мне нужные строки с тем добром, что в кавычках.... 8(
Вобщем, если сможете, посоветуйте что-нибудь...
зааранее благодарствую!

Добавлено @ 15:53
Было бы вообще замечательно, если бы Вы еще подсказали, как отсортировать слова в этой строке по возрастанию }8)

Это сообщение отредактировал(а) RussianHero - 30.10.2007, 15:56
PM MAIL WWW ICQ   Вверх
kapbepucm
Дата 30.10.2007, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12



Код
Str = "ХХХХ ХХХХХХ ХХ Х" & Chr(13) & Chr(10) & "ХХХХ ХХХХХХ ХХ Х" & Chr(13) & Chr(10) & "ХХХХ ХХХХХХ ХХ Х" & Chr(13) & Chr(10) & "ХХХХ ХХХХХХ ХХ Х"


Это сообщение отредактировал(а) kapbepucm - 30.10.2007, 16:44


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
RussianHero
Дата 31.10.2007, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет



Спасибо, Карьерист.... Все теперь гуд 8)
Тока зачем Chr(10)?
если тока Цшр(13) то все норм... зачем еще 10-то?
PM MAIL WWW ICQ   Вверх
kapbepucm
Дата 31.10.2007, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12



Не помню точно, но вроде там что-то признак конца строки, а что-то перевод каретки. Могу ошибаться.


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Akina
Дата 31.10.2007, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Код

Str = "String1" & vbNewLine & "String2"

Можно использовать и vbCR - но только в случае, если все ограничится выводом на экран. То же касается и прямого ввода - одиночного CHR(13) вместо пары CHR(13) & CHR(10).

Добавлено через 5 минут и 37 секунд
Цитата(RussianHero @  30.10.2007,  16:44 Найти цитируемый пост)
как отсортировать слова в этой строке по возрастанию 

Готовых функций/процедур нет. но если у вас есть, например, готовая процедура сортировки массива строк Sort(Str() As String), то:
Код

Dim arrStr() As String
Dim Multiline As String
' ...
Multiline = "String1" & vbNewLine & "String2"
' ...
arrStr = Split(Multiline, vbnewLine)
Call Sort(arrStr())
Multiline = Join(arrStr(), vbnewLine)

Написание (или поиск) процедуры сортировки строк не должно вызывать проблем.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 31.10.2007, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Я обычно использую vbCrLf...

А вообще-то поиском нужно пользоваться.
Тема неоднократно поднималась.

Помечаю тему решённой!!!



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
RussianHero
Дата 2.11.2007, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет



Миханик, честно заявляю, что поиск - не дал ничего путного, кроме темы, в которй кому-то надо было сделать поиск позиции конца строки...
З.ы. Я нашел в мане по Ворду описание некоторых методов и свойств, там испоользовалось это vbCrLf... А самого его описания - нету. Не подскажите, что это и как работает? 8)
Заранее преблагодарствую..
PM MAIL WWW ICQ   Вверх
Akina
Дата 2.11.2007, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Код

Public Const vbCR As String = CHR(13)
Public Const vbLF As String = CHR(10)
Public Const vbCrLf As String = vbCR & vbLF
Public Const vbNewLine As String = vbCrLf
Так понятно?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
RussianHero
Дата 7.11.2007, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет



Понятнее понятного, Акина!  smile 
Спасибо.
PM MAIL WWW ICQ   Вверх
kapbepucm
Дата 7.11.2007, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12



Пользуюсь именно парой Chr(13) & Chr(10), так как не надо напрягаться при переносе на(из) другой(другого) язык(а). smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0707 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.