2011-12-01 49 views
0

我有兩行文本在實際文本之前有很長的空間(更像是14-15個空格)。我試過簡單的替換來拆分和合並,但沒有任何工作。我也嘗試過修剪,最糟糕的是ASCII提供了32的代碼。但是沒有任何工作。以下是全文:從網頁中替換文本中的空格

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

(BTW它不喜歡它看起來它是在我的實際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

你可以嘗試:

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

MSDNTrim()說:

刪除所有開頭和結尾的空白字符從 當前String對象。

+0

lolollolol。這該死的工作怎麼樣?我覺得這是一個小菜。我的意思是我曾嘗試用個別線修剪,但沒有奏效。 Iam錯過了什麼?是的,謝謝一個xD – xhammer

+0

對不起。我點擊了投票而不是tickmark。接受它。 :) – xhammer