- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]有关TXT文本文件导入到表的问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75335)
-- 发布时间：2015/10/5 21:48:00
-- [求助]有关TXT文本文件导入到表的问题。
我有一个文本文件：
Pc 70 /cm
max 7.44 ?m
z 6.32 ?m
a 1.208 ?m
p 2.76 ?m
t 7.79 ?m
导入成图片中的效果: 每行文本大概24个字符吧。
此主题相关图片如下：新建位图图像.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.txt |
[此贴子已经被作者于2015/10/6 9:18:25编辑过]
-- 发布时间：2015/10/5 22:38:00
--
求助啊。。。
-- 发布时间：2015/10/6 9:38:00
--
把这个文本Copy到Excel里，然后利用转置将其转换成横排的方式。之后就可以直接导入了！
-- 发布时间：2015/10/6 10:42:00
--
我要完全用代码的方式实现，后台自动完成。。可有什么好办法？
-- 发布时间：2015/10/7 10:54:00
--
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
Dim strs As String = FileSys.ReadAllText(dlg.FileName)
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
Dim dr As DataRow = DataTables("表A").Addnew()
For i As Integer = 0 To rs.Length - 1
Dim cs() As String = rs(i).Split(" ")
Dim cname As String = ""
For Each s As String In cs
If s > "" Then
If cname = "" Then
cname = s
Else
dr(cname) = s
exit for
End If
End If
Next
Next
End If