当前位置: 代码迷 >> ASP >> asp怎么读取txt文件
  详细解决方案

asp怎么读取txt文件

热度:323   发布时间:2013-04-21 21:18:07.0
asp如何读取txt文件
如何读取txt文件内容,一行一行的读取,读取一行后添加到数据库,再读取下一行,可以实现吗

------解决方案--------------------

sConn = "Server=127.0.0.1;Database=db;User Id=xxx;Password=xxx;"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "SELECT xx FROM tbl WHERE 1=0", 1, 4

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile("c:\xxx\xxx.txt", 1, False)
Do While Not oFile.AtEndOfStream
   sLine = oFile.ReadLine()
   rs.AddNew
   rs("xx") = sLine
Loop
oFile.Close
Set oFile = Nothing
Set oFS = Nothing
rs.UpdateBatch
If rs.State<>0 Then rs.Close
conn.Close
Set conn = Nothing


------解决方案--------------------
利用FSO的ReadLine() 这个是读取一行的
------解决方案--------------------

sConn = "Server=127.0.0.1;Database=db;User Id=xxx;Password=xxx;"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "SELECT xx FROM tbl WHERE 1=0", 1, 4

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile("c:\xxx\xxx.txt", 1, False)
Do While Not oFile.AtEndOfStream
   sLine = oFile.ReadLine()
   rs.AddNew
   rs("xx") = sLine
Loop
oFile.Close
Set oFile = Nothing
Set oFS = Nothing
rs.UpdateBatch
If rs.State<>0 Then rs.Close
conn.Close
Set conn = Nothing

------解决方案--------------------
引用:
Set oFile = oFS.OpenTextFile(server.mapPath("xxx.txt"), 1, False)  这样写就解决了 唉  又是我自己解决啊

楼主。。⊙╊⊙b汗。。。。。
  相关解决方案