在最后一行删除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