在最後一行刪除CRLF

Question

如何刪除下面的最後一個crlf代碼？

Dim fh As StreamReader 
    Dim temp as string 
    Dim temp1 as string 
    fh = new StreamReader("haggis.txt") 
    Dim s As String = fh.ReadLine() 
    While not s Is Nothing 

    temp = temp & s & Vbcrlf 

    Console.WriteLine(temp) 

    End While 
    fh.Close() 

haggis.txt

AAAA 
BBBB 


'Return 
AAAA 
BBBB 
crlf <---- I want to remove this. 

Answer 1

你不應該這樣做的直接String串聯在一個循環。我意識到上面的代碼也只是一個例子，但是你永遠不會更新你的循環內部的s，因此如果它進入它將是一個無限循環。

假設你解決這個問題，要使用一個StringBuilder爲String串聯：

Dim temp As New System.Text.StringBuilder() 

While s IsNot Nothing 

    temp.Append(s).Append(vbCrLf) 

End While 

Dim answer As String = "" 

' avoid trying to get a substring if it's blank 
If temp.Length <> 0 Then 

    answer = temp.ToString(0, temp.Length - vbCrLf.Length) 

End If 

爲了得到它沒有最後vbCrLf，乾脆砍掉它就像我上面做的。

Answer 2

試試這個：使用File.ReadAllLines()，這樣你就不必使用vbCrLf在所有。它將所有行加載到一個字符串數組中。

Dim readText() As String = File.ReadAllLines("haggis.txt") 
Dim s As String 
For Each s In readText 
    Console.WriteLine(s) 
Next 

Answer 3

這可能是一個簡單的解決方案

For Each 
     Do 
      If (String.IsNullOrEmpty(strline)) Then 
       strline = strline & objSR.ReadLine() 
      Else 
       strline = vbCrLf & objSR.ReadLine() 
      End If 
      objwriteline.strline() 
     Loop 
    Next