반응형
와....xml 을 했더니 이제는 텍스트가 날 괴롭히네...
일반 적인 형식으로 읽으면 문자가 다 깨져서 objStream 으로 읽어야 한다..
Private Sub Read()
filename = "c:\text.txt"
Dim objStream As Object '읽어올 objStream 을 만들고
Set objStream = CreateObject("ADODB.Stream") 'objStream 을 ADODB.Stream으로 생성
objStream.Open ' 열고
objStream.Type = 2 'adTypeText '텍스트 타입
objStream.Charset = "UTF-8" '캐릭터셋을 utf-8로
objStream.LoadFromFile filename '오브젝트 스트림에 파일을 로드
Do Until objStream.EOS '오브젝트 스트림이 종료시까지 반복
strLine = objStream.ReadText(-2) ' strLine에 한줄씩 넣기
Loop
End Sub
별거 아닌데 은근 꽤 찾아야 나오더라는..;;
반응형