以下示例一次从文件中读取一行，然后将每行文本打印到控制台。
成都创新互联成立与2013年，是专业互联网技术服务公司，拥有项目成都网站制作、成都做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元施甸做网站,已为上家服务,为施甸各地企业和个人服务,联系电话:028-86922220
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub
Public Class Form1
Private Sub 写入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写入文件.Click
FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.
WriteLine(1, "想只保留文件为一行 那你就写一行好了") ' Print blank line to file.
FileClose(1) ' Close file.
End Sub
Private Sub 读取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取文件.Click
Dim TextLine As String
FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.
TextLine = LineInput(1) '读取一行就了
MsgBox(TextLine)
FileClose(1)
End Sub
End Class
最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你
dataset中的数据是以DataTable（表）为单位存储的,DataTable中才是以DataRow（行）为单位存储的。
如果你要从Dataset中读取某一行数据，必须先知道Datatable的名称或者index，然后才可以读取。
例：
dim cDataSet as DataSet = nothing
...
/* DataSet的赋值操作 */
...
if (not cDataSet is nothing) then
for each cRow as DataRow in cDataSet.Tables(0).rows
....
Next
end if
这里循环中的cRow就是对应的cDataSet.Tables(0)里的每一行数据
Using Txtreader As System.IO.TextReader = System.IO.File.OpenText("C:\1.txt")
Dim line As String = Txtreader.ReadLine()
Do Until line Is Nothing
If Trim(line) "" Then
For Each CM In Split(line, ",")
....
Next CM
End If : line = Txtreader.ReadLine()
Loop
End Using
第一个问题有个简单的方法，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如：
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量
textbox1.text=a ‘赋值
message.show(textbox1.lines(2).tostring) ‘显示第三行内容。
第二个问题结合第一个问题，用循环逐行查找，就可知道字符串第一次出现在哪行。
