asp VB NET如何将文本文件转换为SQL插入语句

Question

我将上载一个文本文件，它将把每一行转换成一个SQL插入语句，因此它可以插入数据库中。

我尝试过，这里有3个问题：

1. 它将一次插入值的5倍
2. 应跳过所有编号
3. 作为strSQL，我需要一一插入arrayOutput以全部插入它们

这是我的文本文件

    No  Subject Code    Subject Name    Student ID  Student Name    Student Email   Lecturer Name   Lecturer Email
1   BSOA011 COMPUTERIZED PAYROLL    1751234-BSOA    WONG QI YI  [email protected]  LIM BEE HUI [email protected]
2   SEMD008 COMPUTER NETWORKING 1851234-SEMD    LIM FENG FENG   [email protected]  NG WAI KONG [email protected]
3   ITIN015 DISASTER RECOVERY MANAGEMENT    1851234-ITIN    HO DENG DENG    [email protected]  SZE CHEN NEE @ SOO CHEN NEE [email protected]
4   ECOM004 WEB DEVELOPMENT SKILLS: WEB PROGRAMMING (PHP & MYSQL)   1851234-ECOM    KONG JIA WEN    [email protected]  TAN MING MING   [email protected]
5   CGDD002 PRACTICAL ICT SKILLS    1951234-CGDD    CHONG SIAO YU   [email protected]  NG WAI KONG [email protected]

这是我的代码

 Private Sub ReadAndReplace()

    Dim file_contents As String = ""

    locationPath = Server.MapPath("~") & "File\" & filename

    If File.Exists(locationPath) Then
        Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(locationPath)
        reader.ReadLine() 'skip first line


        Do While reader.Peek() <> -1
            file_contents += reader.ReadLine

            Dim arrayOutput As String() = Split(file_contents, vbTab)


            Dim errMessage As String = ""
            Dim strConn As String = "server=localhost;port=3306; user id=root;" _
                             & "password=;database=school;SslMode=none"
            Dim oDBCon As New MySqlConnection(strConn)
            Try
                oDBCon.Open()

                'INSERT RECORD
                Dim strSQL As String = "INSERT INTO studentinfo(subject_code, subject_name, student_id,
                                        student_name, student_email, lecturer_name, lecturer_email)VALUES('" _
                                        & arrayOutput(1) & "','" & arrayOutput(2) & "','" & arrayOutput(3) _
                                        & "','" & arrayOutput(4) & "','" & arrayOutput(5) _
                                        & "','" & arrayOutput(6) & "','" & arrayOutput(7) & "');"


                Dim oCommand2 As New MySqlCommand(strSQL, oDBCon)
                oCommand2.ExecuteNonQuery()

            Catch ex As Exception
                errMessage = ex.Message
            Finally
                oDBCon.Close()
            End Try
        Loop
        reader.Close()
    End If

End Sub

我的输出

Answer 1

注意此行：

file_contents += reader.ReadLine

它正在添加到初始file_contents变量中，因此在拆分以创建arrayOutput时，前7个数组元素始终相同。

也许尝试file_contents = reader.ReadLine，所以每次迭代只分割一行。