Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim ip as New
Importer
ip.SourcePath = "c:\Data\"
'指定目录
ip.SourceTableName = "订单"
'指定要导入的文件“订单.txt”
ip.NewTableName ="订单"
'导入后的表名
ip.Format = "Delimited"
'指定导入格式 ''这个好像都是以逗号来分列的,要以tab键分列或者不分列怎么来表达??
ip.Import()
土地使用者名称:张三
土地坐落:西北3号
土地等级:2
宗地面积:120
建筑占地面积:100
地籍号:1022001
:
@717,2
土地使用者名称:李四
土地坐落:中路1号
土地等级:2
宗地面积:101.5
建筑占地面积:101.5
地籍号:1022002
:
@712,3
土地使用者名称:王五
土地坐落:东路1号
土地等级:2
宗地面积:103.6
建筑占地面积:101.2
地籍号:1022003
:
--------------------------------------
用代码:
Dim ip as New Importer
ip.SourcePath = "C:\downloads\"
ip.SourceTableName = "1"
ip.NewTableName ="导入txt"
ip.Header = false
ip.Format = "Delimited" '指定导入格式
ip.Import()
可导入的总是分列的???结果 @717,1 这一行被按 逗号 分成两列了! 不爽啊~
Dim s As string = FileSys.ReadAllText("C:\downloads\1.txt")
Dim Values() As String = s.Split(chr(10))
tables("导入txta2").addnew(Values.length)
for i as integer = 0 to Values.length-1
tables("导入txta2").rows(i)("F1") = Values(i)
next
结果乱码了:::汉字怎么出来呢???
@717,1
?????????????:????
????????:????3??
??????:2
??????:120
??????????:100
?????:1022001
:
@717,2
?????????????:????
????????:??·1??
??????:2
??????:101.5
??????????:101.5
?????:1022002
:
@712,3
?????????????:????
????????:??·1??
??????:2
??????:103.6
??????????:101.2
?????:1022003