asp读取txt文件并写入数据库
请问，asp如何将txt中的文件按行读取出来，并写到access数据库中的一个字段中。例如，txt文件为：123134133存入数据库中为：123，134，133在线等。...
请问，asp如何将txt中的文件按行读取出来，并写到access数据库中的一个字段中。
例如，txt文件为：
123
134
133
存入数据库中为：123，134，133
在线等。 展开
例如，txt文件为：
123
134
133
存入数据库中为：123，134，133
在线等。 展开
3个回答
展开全部
可以用fSO逐行读取
<body>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("text.txt"))
While Not txtFile.AtEndOfStream
Response.Write "<center>" & txtFile.ReadLine & "</center><br>"
。。写入数据库
Wend
txtFile.Close
%>
</body>
也可以 直接连接数据库，从文本中直接读取
insert into tbl select * OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Text;HDR=no;Delimited="::";DATABASE=d:\',tmp#txt)
另外还可以用BCP导入文本到数据库
类似的样式：
EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:“DT.txt -c -Sservername -Usa -Ppassword’
仅供参考，具体写法请查资料，注意路径和文件名
<body>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("text.txt"))
While Not txtFile.AtEndOfStream
Response.Write "<center>" & txtFile.ReadLine & "</center><br>"
。。写入数据库
Wend
txtFile.Close
%>
</body>
也可以 直接连接数据库，从文本中直接读取
insert into tbl select * OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Text;HDR=no;Delimited="::";DATABASE=d:\',tmp#txt)
另外还可以用BCP导入文本到数据库
类似的样式：
EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:“DT.txt -c -Sservername -Usa -Ppassword’
仅供参考，具体写法请查资料，注意路径和文件名
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
a = "xx.txt"
Sub Sread(a)
'===读数据
dlink=FSOFileRead(a)
dlink=Replace(dlink,Chr(13)&Chr(10),"#")
dlink_1=Split(dlink,"#")
dlink_2=UBound(dlink_1)
If dlink_2>=0 Then
Call Sconn()
For dlink_i=0 To dlink_2
Rs.Addnew
Rs("变量名") = dlink_1(dlink_i)
Rs.update
Next
End If
End Sub
Sub Sconn()
'====数据库连接
End Sub
'读取文件
Function FSOFileRead(Template_Name)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True)
If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
Sub Sread(a)
'===读数据
dlink=FSOFileRead(a)
dlink=Replace(dlink,Chr(13)&Chr(10),"#")
dlink_1=Split(dlink,"#")
dlink_2=UBound(dlink_1)
If dlink_2>=0 Then
Call Sconn()
For dlink_i=0 To dlink_2
Rs.Addnew
Rs("变量名") = dlink_1(dlink_i)
Rs.update
Next
End If
End Sub
Sub Sconn()
'====数据库连接
End Sub
'读取文件
Function FSOFileRead(Template_Name)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True)
If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%
path="text.txt"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath(path), 1)
do while f.AtEndOfStream = false
Response.Write("Line:" & f.Line & " ")
Response.Write(f.ReadLine)'数据添加操作
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
path="text.txt"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath(path), 1)
do while f.AtEndOfStream = false
Response.Write("Line:" & f.Line & " ")
Response.Write(f.ReadLine)'数据添加操作
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
