asp
csv파일을 asp를 이용해 db에 저장하는 방법
duraboys
2010. 7. 9. 14:22
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에서 컬럼에 맞게 값을 넣으시면 됩니다.
%*>
하나는 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에서 컬럼에 맞게 값을 넣으시면 됩니다.
%*>