此主题相关图片如下：qq图片20160916212005.png
Dim db As new ADOXBuilder
db.Open()
Dim tb As ADOXTable
tb = db.NewTable("课表")
Dim xq() As String={"星期一","星期二","星期三","星期四","星期五"}
Dim rq() As String = {"一","二","三","四","五","六","七","八"}
tb.AddColumn("班级",ADOXType.String,6)
For i As Integer = 0 To 4
For j As Integer = 0 To 7
tb.AddColumn(xq(i) & "_" & rq(j),ADOXType.String,2)
Next
Next
db.AddTable(tb)
db.Close()
Syscmd.Project.Open(ProjectFile)
Dim txt As String = FileSys.ReadAllText("d:\1234.txt",Encoding.Default)
txt = txt.Replace(vblf,"")
Dim jh() As String = txt.Split(vbcr)
For i As Integer = 5 To jh.Length-1
Dim j() As String = jh(i).Split("│")
If j.Length= 43 Then
Dim dr As Row=Tables("课表").AddNew()
dr("班级")=j(1).trim()
For jj As Integer = 2 To j.Length-2
Dim str As String = j(jj).Trim()
dr(jj-1)=str
Next
End If
Next
[此贴子已经被作者于2016/9/16 21:20:31编辑过]
加好友 
发短信
Post By：2016/9/16 21:19:00 [显示全部帖子]
