| Вопрос: Добовление симвоволв к строке | Добавлено: 08.05.08 18:49 |
Автор вопроса:  Андрей
|
|
Что имеем:
Два Microsoft Rich Textbox Control в первом несколько строк Нужно Что бы строки копировались из первого Microsoft Rich Textbox Control во второй и к каждой строке добавлялись определённые символы. Как сделать? Заранее спасибо. |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  PeterS Вопросов: 24 Ответов: 109 |
Профиль | | #1 | Добавлено: 09.05.08 10:39 |
| Разбиваете содержимое вашего Rich Textbox контрола в массив построчно и в цикле переносите во второй контрол одновременно добавляя нужные символы. | ||
|
Номер ответа: 2 Автор ответа: Андрей Вопросов: 12 Ответов: 18 |
Профиль | | #2 | Добавлено: 09.05.08 10:56 |
| Можно поподробнее? пример кода, напимер | ||
|
Номер ответа: 3 Автор ответа: PeterSВопросов: 24 Ответов: 109 |
Профиль | | #3 | Добавлено: 09.05.08 11:11 |
| Знаете оператор с помощью которого можно строковую переменную разбить в массив? | ||
|
Номер ответа: 4 Автор ответа: АндрейВопросов: 12 Ответов: 18 |
Профиль | | #4 | Добавлено: 09.05.08 11:25 |
| Нет, не знаю.. | ||
|
Номер ответа: 5 Автор ответа: PeterSВопросов: 24 Ответов: 109 |
Профиль | | #5 | Добавлено: 09.05.08 12:02 |
|
Очень плохо, как же вы программируете.
Это оператор split, найдите его синтаксис. |
||
|
Номер ответа: 6 Автор ответа: АндрейВопросов: 12 Ответов: 18 |
Профиль | | #6 | Добавлено: 09.05.08 12:12 |
| а я начинающий | ||
|
Номер ответа: 7 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #7 | Добавлено: 09.05.08 12:35 |
| Ну так и начинайте с книжек и простых примеров... | ||
|
Номер ответа: 8 Автор ответа: PeterSВопросов: 24 Ответов: 109 |
Профиль | | #8 | Добавлено: 09.05.08 13:50 |
| Андрей, нашли синтаксис оператора split? | ||
|
Номер ответа: 9 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #9 | Добавлено: 09.05.08 15:39 |
|
Dim LinesArray() As String Dim OneLine As Variant Dim tmpNewText As String LinesArray() = Split(RichTextBox1.Text, vbCrLf) For Each OneLine In LinesArray tmpNewText = tmpNewText & OneLine & твои_символы & vbCrLf Next RichTextBox2.Text = tmpNewText |
||
|
Номер ответа: 10 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #10 | Добавлено: 10.05.08 00:33 |
| Ага-ага. А если там форматированный текст, то все форматирование таким макаром слетит... | ||
|
Номер ответа: 11 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #11 | Добавлено: 10.05.08 02:45 |
|
Прав конечно, останется голый текст, а я разве писал что это панацея?
Простейший примерчик для ознакомления со сплит. Кстати Андрей, у Split есть компаньон, Join работает с точностью наоборот. А чтобы узнать синтаксис команд в VB, зачастую достаточно набрать их и нажать пробел |
||
|
Номер ответа: 12 Автор ответа: АндрейВопросов: 12 Ответов: 18 |
Профиль | | #12 | Добавлено: 10.05.08 06:36 |
| Да спасибо, разобрался... | ||
|
Номер ответа: 13 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #13 | Добавлено: 10.05.08 10:38 |
| Еще помогает Object Browser, который по F2 вызывается. | ||
Страница: 1 |