Отсечение пустых строк

[V...a]

Есть Text, в котором могут быть в конце "пустые строки" (возможны только пробелы) - результат копирования Ctrl-C--Ctrl-V...
Помогите, плиз, с функцией удаления их.

[Cyrax]

Функция Trim
Trim(String)

Функция Trim объединяет действия двух функций LTrim и RTrim,удаляя пробелы как справа,так и слева

Возвращаемое значение
Возвращает исходную строку типа Variant(String) без начальных и завершающих пробелов.Если аргумент имеет значение Null,то возвращается Null

Параметры
String
Обязательный аргумент может представлять любое строковое выражение
Пример:

Код: Выделить всё

Dim retval
retval=Trim("  <-Русский_Проект->  ")
Print retval

Смотри также
LTrim, RTrim
Категория: Функции обработки строк


--------------------------------------------------------------------------------

© 1999-2001 А.Климов
Русский_Проект

[V...a]

Нет, имелось ввиду следующая ситуация:

...
Text
#13#10
#13#10#32#32#32
#13#10
#13#10#32
#13#10


....
И вот эти строки надо отсечь

[Cyrax]

чего-то не дошло...
если у тебя в конце строки символов идут управляющие символы (с кодом до 31 включительно), то просто с помощью Instr ищешь первый не отображаемый символ в строке и Mid$'ом выгребыешь все что стоит до этой позиции.

[V...a]

#13#10 - перенос строки
#32 - пробел
... Последние пять строк и надо отсечь.

[RayShade]

А replace ничем не поможет? В смысле что заменять #32 на ""

[V...a]

Есть текст:

Код: Выделить всё

[b]texttexttexttext[/b]#13#10
#13#10
#13#10#32#32#32
#13#10
#13#10#32
#13#10

Нужен текст:

Код: Выделить всё

[b]texttexttexttext[/b]#13#10


где:
#13#10 - перенос строки
#32 - пробел

[Cyrax]

ну примерно так

Код: Выделить всё

Dim str As String
Dim pos As Integer

str = <чего_там_у_тебя>

pos = Instr(str, vbCrLf) ' ищем первый перевод строки
str = Mid$(str, 1, pos - 1) ' обрезаем то, что не нужно

можно в цикле по-символьно пройти строку и определить, где действительно она кончается и начинается твоя лабуда.

[V...a]

в texttexttext - тоже могут быть переносы и пробелы.
Просто нужно отсечь "пустые" строки в конце...

[Cyrax]

ну тогда в цикле пробегись по строке начиная с конца считая сколко символов отработано, и как только появится первый нормальный символ отрезай хвост.

Код: Выделить всё

Dim str As String
Dim pos As Integer

str = <чего_там_у_тебя>

For pos = Len(str) To 1 Step -1
    If Mid$(str, pos, 1) > 32 Then
        str = Mid$(str, 1, pos)
        Exit For
    End If
Next pos

[MEMBER]

С конца бери по одному символу и удаляй их если код взятого символа = 10 13 32
Какая проблема-то?

[Vi]

Код: Выделить всё

  Dim s As String, ss() As String, i As Long

  ' Исходная строка в вопросе
  s = "texttexttexttext" & vbCrLf & vbCrLf & vbCrLf & "   " & vbCrLf & vbCrLf & " " & vbCrLf
 
  ss = Split(s, vbCrLf)
  For i = UBound(ss) To 0 Step -1
    If Trim(ss(i)) = "" And i <> 0 Then
      ReDim Preserve ss(i - 1)
    Else
      Exit For
    End If
  Next i
  s = Join(ss, vbCrLf) & vbCrLf


[V...a]

Код: Выделить всё

function StringCut(s)
Dim i, a
   ss = Split(s, vbCrLf)
   k = 0
   t = 0
   For i = 0 to UBound(ss)
      If Trim(ss(i)) = "" Then
         k = k + 1
      else
         if (k<>0)and(t<>0) then a = a + "<br>"
         k = 0
         a = a + ss(i)
         if i < UBound(ss) then a = a + "<br>"
         t = 1
      end if
   Next
   StringCut = a
end function