JBTALKS.CC

标题: 教你在VB.NET Read 制定的Line [打印本页]
作者: goodhermit95    时间: 2008-11-1 11:37 PM
标题: 教你在VB.NET Read 制定的Line
streamreader.readtoend
streamreader.readline ，怎么只Read一个Line？但是不能【streamreader.readline(制定行数)】


  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    时间: 2008-11-2 03:24 AM
原帖由 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    时间: 2008-11-2 11:31 AM
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    时间: 2008-11-4 11:46 AM

  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
复制代码






欢迎光临 JBTALKS.CC (https://jbtalks.my/) Powered by Discuz! X2.5