vb解析文本文件

　　1.在工业软件中上位机软件和分析设备的通讯是最常见的，通讯方式也有很多，例如socket，文本文件等等，今天讲解文本文件下传到分析设备和从分析设备上采集结果文件的方法：
　　1）.文件的下传，在VB中给分析设备下传文件，是最简单的一行代码搞定：
　　例如：
　　My.Computer.FileSystem.WriteAllText(＂G:log123.txt＂, TextBox1.Text & vbCrLf, My.Computer.FileSystem.FileExists(＂G:log123.txt＂))
　　2）解析文本文件，并存入mysql:
　　Sub test_data02()
　　Dim mySql_Connection As MySqlConnection
　　Dim data_i As Integer = 1
　　mySql_Connection = mysql_net.Mysql_command
　　While True
　　mySql_Connection.Open()
　　If My.Computer.FileSystem.FileExists(＂D:	estokupload.txt＂) Then
　　Dim fileReader = My.Computer.FileSystem.ReadAllText(＂D:	estokupload.txt＂)
　　Dim dt As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, 0)
　　＂My.Computer.FileSystem.MoveFile(＂D:	estupload.txt＂, ＂D:	estok＂ & ＂upload_＂ & (Now().Ticks - dt.Ticks) / 100 & ＂.txt＂)
　　Dim fileallline As String() = fileReader.Split(vbCrLf)
　　＂注释
　　＂＂mySql_Connection
　　＂If mySql_Connection.State = ConnectionState.Open Then
　　＂ mySql_Connection.Open()
　　＂ ＂Dim sqlSelect As String = ＂select * from Buffer＂
　　＂ ＂Dim sql_str = ＂Insert Into l2testordersend (SampleId,MatLocalID)
　　＂ ＂Values(@parm2,@parm4)＂
　　＂ Dim sql_str = ＂Insert Into Manual (钢卷号,委托号,取样位置,委托时间)
　　＂ Values(@parm1 ,@parm2,@parm3,@parm4)＂
　　＂ ＂Dim dt As DataTable = New DataTable()
　　＂ Dim mySqlCommand2 As MySqlCommand = New MySqlCommand(sql_str, mySql_Connection)
　　＂ mySqlCommand2.Parameters.AddWithValue(＂parm1＂, ＂1＂)
　　＂ mySqlCommand2.Parameters.AddWithValue(＂parm2＂, ＂3234fs＂)
　　＂ mySqlCommand2.Parameters.AddWithValue(＂parm3＂, ＂werwr＂)
　　＂ mySqlCommand2.Parameters.AddWithValue(＂parm4＂, Format(Now(), ＂yyyy/MM/dd HH:mm:ss＂))
　　＂ Dim i1 As Integer = mySqlCommand2.ExecuteNonQuery()
　　＂End If
　　＂解析文件
　　If fileallline.Length > 0 Then
　　Dim i0 As Integer
　　Dim j As Integer
　　For i0 = 0 To fileallline.Length - 1
　　If fileallline(i0).Length > 10 Then
　　＂Invoke(New Job_L2(AddressOf l2_logname), ＂解析的数据：＂, ＂ 数据＂ & fileallline(i0).Length & ＂长度＂ & fileallline(i0))
　　Dim filealallvalue As String() = fileallline(i0).Split(＂;＂)
　　For j = 0 To filealallvalue.Length - 1
　　Invoke(New Job_L2(AddressOf l2_logname), ＂解析的数据：＂, ＂ 数据:＂ & Trim(filealallvalue(j).Replace(＂＂＂＂, ＂＂)))
　　Next
　　If mySql_Connection.State = ConnectionState.Open Then
　　Dim sql_str = ＂replace Into data_log (钢卷号,委托号,取样位置,钢种,开始时间)
　　Values(＂＂ & Trim(filealallvalue(0).Replace(＂＂＂＂, ＂＂)) & ＂＂ ,＂＂ & Trim(filealallvalue(1).Replace(＂＂＂＂, ＂＂)) & ＂＂,＂H＂,＂＂ & data_i.ToString & ＂＂,＂＂ & Format(Now(), ＂yyyy/MM/dd HH:mm:ss＂) & ＂＂)＂
　　Dim mySqlCommand2 As MySqlCommand = New MySqlCommand(sql_str, mySql_Connection)
　　＂mySqlCommand2.Parameters.AddWithValue(＂parm1＂, ＂H＂)
　　＂mySqlCommand2.Parameters.AddWithValue(＂parm2＂, Trim(filealallvalue(1).Replace(＂＂＂＂, ＂＂)))
　　＂mySqlCommand2.Parameters.AddWithValue(＂parm3＂, data_i.ToString)
　　＂mySqlCommand2.Parameters.AddWithValue(＂parm4＂, Format(Now(), ＂yyyy/MM/dd HH:mm:ss＂))
　　Dim i1 As Integer = mySqlCommand2.ExecuteNonQuery()
　　End If
　　End If
　　Next i0
　　End If
　　End If
　　data_i = data_i + 1
　　Thread.Sleep(1000)
　　mySql_Connection.Close()
　　End While
　　分析设备的数据采集，减少了人工的工作量，也可以为实验室的无纸化提供了解决方案，可以按模板导出想要的数据；