主题：字幕文件内容如何导入数据库？

CurrentTable.DataTable.DeleteFor("")
CurrentTable.AddNew(10)
Dim str As String = FileSys.ReadAllText(ProjectPath & "s.txt")
str=str.Replace(vblf,"")
Dim rs() As String = str.Split(vbcr)
Dim 行 As Integer = 0
Dim 列 As Integer =0
Dim 列2 As Integer =0
For i As Integer = 0 To rs.Length -1
    If rs(i).Length > 0 Then
        列2 +=1
        If 列2>3 Then
            CurrentTable.Value(行,列) = CurrentTable.Value(行,列) & "||" & rs(i)
            Continue For
        End If
        CurrentTable.Value(行,列) = rs(i)
        If 列 < 2 Then
            列 +=1
        End If
    Else
        列=0
        列2=0
        行 = 行+1
    End If
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:s.txt