http://www.partner114.com/bbs/board.php?bo_table=B01&wr_id=139


csv파일을 디비에 저장하려면 2가지 방법이 있습니다. 

하나는 mssql에 보시면 데이타 가져오기기능이 있는데 이것을 이용하는 방법과 다 

른 하나는 질문하신 분처럼 파일을 읽어 mssql에 저장하는 방법이 있습니다. 

위의 소스를 보면 당연히 한줄만을 읽습니다. 

이유는 strTemp = objFile.ReadLine() 때문입니다. 

ReadLine는 한줄만을 읽어 옵니다. 

ReadLine를 ReadAll로 바꾸어 주시면 문서안의 내용을 모두 읽어 옵니다. 

바꾼 소스를 올립니다. 

<*% 
Dim objFSO, objFile, strTemp, arrTemp 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile= objFSO.OpenTextFile("D:/tt.csv") 

strTemp = objFile.Readall '문서 전체를 읽어옴 

objFile.Close() 
Set objFile = Nothing 
Set objFSO = Nothing 


strTemp = replace(strTemp, chr(13), " 
/") 

strTemp = split(strTemp, "/",-1) 

for i=0 To UBound(strTemp) 
subtemp = split(strTemp(i), ",",-1) '라인별 값 산출 
for j=0 to UBound(subtemp) 
Response.Write subtemp(j) & " " 컬럼별 값을 찍는다. next 
next 

'strTemp가 row별 값이 들어가 있고 subtemp에는 컬럼의 값이 들어가게 됩니다. 
'즉 디비에 저장을 하려면 subtemp에서 컬럼에 맞게 값을 넣으시면 됩니다. 

%*>

+ Recent posts