請問以asp程式撈取CSV檔內容, 並儲存至excel檔內

sql asp 設計

linyt 2010-03-18 16:56:37 ‧ 12947 瀏覽

分享至

各位高手大大們有無寫過使用ASP程式撈取csv檔之內容值, 並把數值儲存到excel檔內,
是寫了一部份程式, 但還是一直有bug!! 麻煩各位高手幫幫忙, 謝謝! (或是有其他寫法也能提供的話也可以)

&lt;meta http-equiv="Content-Type" content="text/html; charset=big5">
&lt;meta name="GENERATOR" content="Microsoft FrontPage 4.0">
&lt;meta name="ProgId" content="FrontPage.Editor.Document">
&lt;title>撈取csv檔&lt;/title>

&lt;% 
   '連結 DataBase
   Set DBConnection = Server.CreateObject("ADODB.Connection")
%>

&lt;%
'底下三行固定
  a = Request.TotalBytes
  b = Request.BinaryRead(a)
  Set obj = Server.CreateObject("basp21")

' 底下接收檔案
  f1 = obj.FormFileName(b,"CSVfile")
  newf1 = split(Mid(f1,InstrRev(f1,"\")+1),".")

' 檔案長度
  fsize = obj.FormFileSize(b,"CSVfile")   

'檔案名稱
  fname = Mid(f1,InstrRev(f1,"\")+1)    

'存檔，儲存位置為硬碟上之絕對路徑。將上傳檔案存在c:\aaa資料夾
  l1 = obj.FormSaveAs(b,"CSVfile","C:\aaa\" & fname) 

  If l1>0 then    ' 若成功，傳回大於0之值
'   rs.addnew
'   rs("file1")=fname   '檔名
   response.write "Success !! ~~&lt;BR>Upload File Name&nbsp:&nbsp" & fname &"&nbsp&nbsp&nbsp&nbsp&nbsp"& "&nbsp File Size&nbsp:&nbsp" & fsize &"&lt;BR>"
  Else
    response.write "Bad~~~Upload Error!!"   
  End if

' 取得文字檔在硬碟上的真實位置
 txtfile = "C:\aaa\" & fname     
 Response.Write "txtfile = "
 Response.Write txtfile & "&lt;BR>&lt;BR>" 
 
'如果確實上傳檔案的話，這個檔案的大小（fsize）將會大於 0 才對
 If fsize>0 then
 temp_SQL = ""
 
'解析 CSV 檔之內容，並組成 SQL 字串 
  Set fs=CreateObject("Scripting.filesystemobject")
  Set fm=fs.OpenTextfile(txtfile,1,true)

  do while not fm.AtEndOfStream
' 將文字列讀出來
    txt=fm.ReadLine    
    Response.write txt & "&lt;br>"
 loop
  
   Set rscheck = Server.CreateObject("ADODB.Recordset")
   Do While Not (rscheck.EOF)
     sqlnew = "insert into sharepath (share_name,share_path) values (" & txt & ")"
     Response.Write sqlnew & "&lt;BR>&lt;BR>" 
     Conn.Execute(sqlnew)
     rscheck.MoveNext
   Loop 
  else   
 End If
  fm.close
%>