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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа со строками, найти заданную позицию в строке 
:(
    Опции темы
Wanderer2019
Дата 28.11.2006, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: нет
Всего: 17
Здравствуйте!
Подскажите пожалуйста...
Как сделать из строки вида:
Код

"bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla"

Строку вида 
Код

"bla bla bla bla bla bla 
 bla bla bla bla bla bla 
 bla bla bla bla bla bla "

Т.е. по сути как найти заданную позицию и подставить туда перенос строки?

в 6-ке сделать не получилось =(
PM ICQ MSN   Вверх
Naghual
Дата 28.11.2006, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Код

Public Function String_WordWrap(strSource As String, CharsPerLine As Integer) As String
    Dim txtOut As String
    Dim txtIn As String
    
    txtOut = ""
    txtIn = strSource
    Do While Len(txtIn) > CharsPerLine
        txtOut = txtOut & vbCrLf & Mid$(txtIn, 1, CharsPerLine)
        txtIn = Mid$(txtIn, CharsPerLine + 1)
    Loop
    If Len(txtIn) > 0 Then
        txtOut = txtOut & vbCrLf & Mid$(txtIn, 1, CharsPerLine)
    End If
    String_WordWrap = txtOut
End Function



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Wanderer2019
Дата 28.11.2006, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: нет
Всего: 17
как то слишком закручено...
а нет ли стандартных функций для этих целей? 
что нить вроде Insert и т.п.
PM ICQ MSN   Вверх
Naghual
Дата 28.11.2006, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Тут вообще все проще простого


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Wanderer2019
Дата 28.11.2006, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: нет
Всего: 17
да я вижу что проще простого.. просто код будет работать из макроса... и для большого объема информации... поэтому думаю для него это сложно...
...
Спасибо!
PM ICQ MSN   Вверх
cardinal
Дата 28.11.2006, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Есть еще функция Split...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
BUGOR
Дата 29.11.2006, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 3
Всего: 16
Wanderer2019, что-то я не понял, ну допустим вот этот код:

Код

s = "bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla"
s = Replace(s, "bla bla bla bla bla bla ", "bla bla bla bla bla bla " & vbCrLf)


На выходе даст нужную тебе строку. Пойдёт? Если нет, то сформулируй задачу чётче, указав дополнительные условия.


--------------------
Живу недоумевая, всё время хочу понять...
http://hunger.ru 
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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