Question

我有两行文本在实际文本之前有很长的空格（更像是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

它完全搞砸了代码。对此有何想法？

Answer 1

你可以尝试：

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

Trim()的{p> MSDN说：

从中删除所有前导和尾随空白字符当前的String对象。

从网页替换文本中的空间

1 个答案: