Замена пробела в тексте с веб-страницы - PullRequest
0 голосов
/ 01 декабря 2011

У меня есть две строки текста, которые имеют длинный пробел (более 14-15 пробелов) перед фактическим текстом.Я попытался простой заменить разделить и объединить, но ничего не работает.Я также пробовал обрезать, и хуже всего то, что ASCII дает код 32. Но ничего не работает.Вот текст:

                                                              your heartburn symptoms
                    Certain foods, such as fat, chocolate, caffeine and alcohol can aggravate heartburn symptoms 1
                    Certain foods

(Кстати, это не так, как выглядит. В моем собственном текстовом поле richtextbox, когда я выбираю пространство, оно выделяется как один большой фрагмент пространства, например, вкладка, и у меня такжепопытался заменить vbtab, но безрезультатно)

То, что я хочу:

your heartburn symptoms
Certain foods, such as fat, chocolate, caffeine and alcohol can aggravate heartburn symptoms 1
Certain foods

Поверьте, я пробовал почти 7-8 различных функций, но теперь я схожу с ума.Часть моей логики:

Dim lineArray As String() = rtfArticle.Lines

        For z As Integer = 0 To lineArray.Length - 1
            Dim w As String() = lineArray(z).Split(" ")
            MsgBox(lineArray(z))
            Dim tmp As String = ""

            For Each s34 As String In w
                If (s34 <> " ") Then
                    temp = temp & " " & s34
                End If
            Next
            lineArray(z) = temp
        Next

Это полностью испортило код.Есть идеи по этому поводу?

1 Ответ

1 голос
/ 01 декабря 2011

Вы можете попробовать:

Dim lineArray As String() = rtfArticle.Lines
For z As Integer = 0 To lineArray.Length - 1
    lineArray(z) = lineArray(z).Trim()
Next

MSDN для Trim() говорит:

Удаляет все начальные и конечные пробельные символы из текущегоСтроковый объект.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...