Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Работа со строками

Автор: Wanderer2019 28.11.2006, 15:29

Здравствуйте!
Подскажите пожалуйста...
Как сделать из строки вида:

Код


"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-ке сделать не получилось =(

Автор: Naghual 28.11.2006, 15:41

Код


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

Автор: Wanderer2019 28.11.2006, 15:49

как то слишком закручено...
а нет ли стандартных функций для этих целей?
что нить вроде Insert и т.п.

Автор: Naghual 28.11.2006, 15:58

Тут вообще все проще простого

Автор: Wanderer2019 28.11.2006, 16:02

да я вижу что проще простого.. просто код будет работать из макроса... и для большого объема информации... поэтому думаю для него это сложно...
...
Спасибо!

Автор: cardinal 28.11.2006, 19:34

Есть еще функция Split...

Автор: BUGOR 29.11.2006, 11:40

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)

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