教你在VB.NET Read 制定的Line

goodhermit95

streamreader.readtoend
streamreader.readline ，怎么只Read一个Line？但是不能【streamreader.readline(制定行数)】

1. 
   
2. Imports System
   
3. Imports System.IO
   
4.   Public Class ReadALine
   
5.     Private Sub ReadOneLine()
   
6.       Dim sr As New Streamreader("C:\Test.Txt")
   
7.       Dim textdata As String
   
8.       textdata = sr.ReadToEnd
   
9.       Dim line As String() = textdata.Split(vbCrLf)
   
10.       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
11.       For i As Integer = 0 To line.Count - 1
    
12.         If i = 5 Then'5 = 要读的行数
    
13.         textdata = line(i)
    
14.         End If
    
15.       Next
    
16.       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
17.       For i As Iteger = 0 To line.Count - 1
    
18.         If line(i).ToString.Contains("Text") Then
    
19.         textdata = line(i)
    
20.         End If
    
21.         Next
    
22.       End Sub
    
23.     End Class
    

复制代码

看不懂在这里问~~

Super-Tomato

原帖由 goodhermit95 于 2008-11-1 11:37 PM 发表
streamreader.readtoend
streamreader.readline ，怎么只Read一个Line？但是不能【streamreader.readline(制定行数)】

[Copy to clipboard] [ - ]CODE:
Imports System
Imports System.IO
  Public Class ReadALine
    Private Sub ReadOneLine()
      Dim sr As New Streamreader("C:\Test.Txt")
      Dim textdata As String
      textdata = sr.ReadToEnd
      Dim line As String() = textdata.Split(vbCrLf)
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      For i As Integer = 0 To line.Count - 1
        If i = 5 Then'5 = 要读的行数
        textdata = line(i)
        End If
      Next
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     For i As Iteger = 0 To line.Count - 1
        If line(i).ToString.Contains("Text") Then
        textdata = line(i)
        End If
        Next
      End Sub
    End Class

看不懂在这里问~~

1. 因為你的 for 是從 0 開始, 那麼 i = 5 應該是第六行才對吧?
2. 如果只是要列出指定行數, 另一個 for 即是多餘的了. 那個 for 是要搜索行數中只包含 "Text" 字眼

~Zero

Imports System
Imports System.IO
  Public Class ReadALine
    Private Sub ReadOneLine()
      Dim sr As New Streamreader("C:\Test.Txt")
      Dim textdata As String
      textdata = sr.ReadToEnd
      Dim line As String() = textdata.Split(vbCrLf)
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      For i As Integer = 0 To line.Count - 1
        If i = 5 Then    '5 = 要读的行数
        textdata = line(i)
        End If
      Next
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      For i As Iteger = 0 To line.Count - 1
        If line(i).ToString.Contains("Text") Then
        textdata = line(i)
        End If
        Next
      End Sub
    End Class

if i = 5 当然只 read 第 5/6 行.
如果是要 read 前面 5/6 行, 用 小于/ 小于等于 "if i <= 5".

不过在 for loop 里面放个 if 是多余的,
直接 for i=0 to 4 就好了.

goodhermit95

1. 
   
2. Imports System
   
3. Imports System.IO
   
4.   Public Class ReadALine
   
5.     Private Sub ReadOneLine()
   
6.       Dim sr As New Streamreader("C:\Test.Txt")
   
7.       Dim textdata As String
   
8.       textdata = sr.ReadToEnd
   
9.       Dim line As String() = textdata.Split(vbCrLf)
   
10.       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
11.       For i As Integer = 0 To 6
    
12.               textdata = line(i).tostring
    
13.       Next
    
14.       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
15.       For i As Iteger = 0 To line.Count - 1
    
16.         If line(i).ToString.Contains("Text") Then
    
17.         textdata = line(i)
    
18.         End If
    
19.         Next
    
20.       End Sub
    
21.     End Class
    

复制代码