vb.net2008 如何读取txt文件，文件里是一行一行的，每一行是一个邮箱，有的时候行是空格， 去掉空格读取所有行， 再循环写到数据库中string[] Lines=File.ReadAllLines(@"C:\1.txt",Encoding.GetEncoding("gb2312"))
删除Lines中的空行，再写到数据库
你可以一行一行的读，当发现readline值为空时不要写入即可。
Dim fileContents As String
     Dim arrText As New ArrayList()

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                strFileName = OpenFileDialog1.FileName
                fileContents = My.Computer.FileSystem.ReadAllText(strFileName, System.Text.Encoding.GetEncoding("GB2312"))
            Catch ex As Exception
                MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If

        Dim strReader As New StringReader(fileContents)
       Dim sLine As String = ""
       Dim i As Integer

       Do
           sLine = strReader.ReadLine()
           If Not sLine Is Nothing Then
                arrText.Add(sLine)
            End If
        Loop Until sLine Is Nothing
        strReader.Close()
Imports System.IO
Imports System.Web

Public Class EmailList

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
        '是system.io方法读取
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(Application.StartupPath & "\files\user_email.Txt", System.Text.Encoding.Default)

        Dim line As String
        ListBox1.Items.Clear()
        line = "test" '随便赋一个初值
        '添加到控件中
        Do While sr.Peek() >= 0
            line = sr.ReadLine
            ListBox1.Items.Add(line)
        Loop
        Label1.Text = "总共读取" & ListBox1.Items.Count

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim newList As New ArrayList

        With ListBox1
            For i = 0 To .Items.Count - 1
                If Not newList.Contains(.Items(i)) Then
                    newList.Add(.Items(i))
                End If
            Next i
            .Items.Clear()
            For i = 0 To newList.Count - 1
                Dim StrA As String = newList(i)
                Dim StrB As String = "@"
                Dim Stu As Boolean = InStr(StrA, StrB)
                If Stu = True Then
                    .Items.Add(newList(i))
                Else

                End If

            Next i
        End With
        Label2.Text = " 整理后，总共" & ListBox1.Items.Count
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFileName As String
        Dim myStreamWriter As StreamWriter
        SaveFileName = Application.StartupPath + "\files\ok.txt"
        myStreamWriter = File.CreateText(SaveFileName)
        Dim MyOutput As String

        '循环写入TXT

        With ListBox1

            For i = 0 To ListBox1.Items.Count - 1
                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(MyOutput)
            Next i
        End With

        myStreamWriter.Close()
        Label5.Text = "写入成功"
    End Sub
End Class