手扑球 批发:有一TXT文件要导入到ACCESS中,TXT中只有一条记录,如何导入到ACCESS的某一字段中?

如果TXT文件的内容不多,你可以把里面的内容用符号分隔,比如:字符串123456789,想把123放在一个字段里,45放一个字段,6789放一个字段,则可以先把123456789编辑成123|45|6789,把这个字符串用"|"分开,然后用ASP去取值,ASP取TXT可以用FSO和ADODB.Stream,我喜欢用后者,以下是ADODB.Stream代码,已经写在function中了,直接调用就可以了!
Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write " 非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
If Err.Number<>0 Then
Response.Write " 文件"&File&"无法被打开，请检查是否存在!"
Err.Clear
Response.End
End If
.Charset = "GB2312"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function

调用:ss="*.txt"
LoadFile(ss)
这样就要可以了!!
接下来取TXT中的内容,
sjtxt=LoadFile(ss)'调用loadfile
sjtxtsz=split(sjtxt,"|")'转成数组--取得每个数据组
'然后循环取值
'for i =0 to Ubound(sjtxtsz)'UBOUND是取数组的下标界
'response.write sjtxtsz(i)'这样就能显示出内容
'如果你要写入数据库,可以不用循环,打开表:
set rs=server.createobject("adodb.recordset")
sql="select * from 表"
rs.open sql,conn,1,3
rs.addnew
字段1=sjtxtsz(0)
字段2=sjtxtsz(1)
字段3=sjtxtsz(2)
rs.update
'next
前面加单引号的都是注释掉的,这是一例子，根据你的具体情况，再改一下存入数据库部分就行了,临时写的，不知道能不能帮你解决你的问题!
如果不明白，就给我留言吧~~~

用正则表达式匹配，同时可以支持多条数据插入

一条的话，复制粘贴