Option Explicit
Private Sub Command1_Click()
Dim fn As Integer
Dim strTmp As String
Text1.Text=""
fn = FreeFile
Open "C:\sample.txt" For Input As #fn 'c:\sample.txt 파일을 염
Do While Not EOF(fn) '파일 끝을 만날때 까지 Loop를 돔..
Line Input #fn, strTmp '한줄을 읽어서 strTmp에 넣음..
Text1.Text = Text1.Text & strTmp & vbCrLf '읽어온 strTmp를 Text1에 넣음..
Loop
Close #fn '파일을 닫음
Dim a As Integer
Dim arrTmp() As String
strTmp = Text1.Text
strTmp = Replace(strTmp, vbCrLf, " ") '엔터를 스페이스로 바꿈.. 그래야 스페이스 단위로 자를때.. 같이 잘림
strTmp = Replace(strTmp, " ", " ") '스페이스 두개는 하나로 바꿈..
strTmp = Trim(strTmp) '문장의 앞뒤에 있는 스페이스는 제거..
arrTmp = Split(strTmp, " ",-1) 'strTmp를 스페이스 기준으로 잘라서 arrTmp에 넣음..-1은 전체를 반환
For a = 0 To UBound(arrTmp) 'a가 0에서 배열의 크기만큼 루프를 돌면서.. 메시지 보여줌..
MsgBox arrTmp(a)
Next
End Sub
출처:네이버
첫댓글 이걸 폼으로 읽어오기는 안되나요..?? 콤보박스에서두요........
읽은값 strTmp를 combo.additem strTmp이렇게 하면 읽으면서 추가되네요.
아,...ㅠㅠ
비주얼베이직으로 프로그램 첨 공부할라는데 조언좀요...
잘 보았습니다. 감사!