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에서 컬럼에 맞게 값을 넣으시면 됩니다.
%*>
'asp' 카테고리의 다른 글
엑셀(CSV) 파일 DB에 입력하기 (2) | 2010.07.09 |
---|---|
asp로 화일업로드 형태를 취해 csv아니면 excel화일을 ms-sql db로 저장하기 (0) | 2010.07.09 |
BASE64 인코딩 디코딩 함수 (0) | 2010.06.28 |
ASP - 정규식을 이용한 html 태그 제거 함수 (0) | 2010.06.28 |
Visual Basic 또는 VBA에서 Excel 데이터에 ADO를 사용하는 방법 (0) | 2010.06.28 |