Помогите советом
Обработка мультилинейных Text...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- Nataliak
- Начинающий
- Сообщения: 21
- Зарегистрирован: 10.03.2004 (Ср) 0:10
Обработка мультилинейных Text...
Nataliak » 24.03.2004 (Ср) 15:28
Когда я заканчиваю заполнять Text со свойством MultiLine=True, то мне нужно нажать Enter для перехода в след. поле. При этом в место нажатия добавляются для лишних символа Chr(10)+Chr(13). Пробовала подменять на "пробел", а потом делать Trim - работает, пока юзер не нажимает Enter середине слова, дальше уже мне пробел мешает и убрать его проблематично.
Помогите советом
Помогите советом
- Nataliak
- Начинающий
- Сообщения: 21
- Зарегистрирован: 10.03.2004 (Ср) 0:10
Мой вариант
Nataliak » 24.03.2004 (Ср) 15:59
Сделала в итоге обычным перебором строки. Правда, немного "мультипликация" на экране, но в целом результат достигнут.
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) <> 13 And Asc(Mid(s, i, 1)) <> 10 Then
itog = itog + Mid(s, i, 1)
End If
Next
А других вариантов никто не подскажет?
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) <> 13 And Asc(Mid(s, i, 1)) <> 10 Then
itog = itog + Mid(s, i, 1)
End If
Next
А других вариантов никто не подскажет?
- Rainbow
- Человек-радуга
- Сообщения: 543
- Зарегистрирован: 13.05.2003 (Вт) 14:16
Rainbow » 25.03.2004 (Чт) 10:42
А зачем мультилайновый контрол, если все равно одна строчка нужна?
Учиться - значит открывать для себя то, что уже знаешь. <...> Учить - значит напоминать другим о том, что они знают это также хорошо, как и ты. <...> Лучше всего ты учишь тому, чему тебе самому больше всего надо научиться. (Р. Бах)
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: С.Т., Google-бот и гости: 10