텍스트 파일읽기 Line Input , split, replace, ubound

[프랭크핀]

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이렇게 하면 읽으면서 추가되네요.

[강현우]

아,...ㅠㅠ

[앗싸]

비주얼베이직으로 프로그램 첨 공부할라는데 조언좀요...

[tong]

잘 보았습니다. 감사!