안녕하세요...텍스트파일에서 검색해서 텍스트창에 보이는 프로그램을 짜려고 하는데 잘 안됩니다.

[아-사달]

안녕하세요.

비주얼베이직 책한권 사서 뭐가뭔지 이해를 못하고 있는 초보입니다.

제가 교회에서 영상을 담당하고 있는데

교회주보가 나오면

성경구절을 인터넷 홀리바이블(www.holybible.or.kr)에서 찾아서 복사(Ctrl+C), 붙이기(Ctrl+V) 방법으로

파워포인트 슬라이드를 준비해서 예배때 사용하고 있습니다.

준비작업하는데 1시간정도 걸리고 있습니다.

그런데 성경구절을 바로 검색해서 파워포인트로 바로 보여줄수 없을까 하는 고민끝에

비주얼베이직이 해답이라고 생각하고 책을 하나 사서 보고 있는데

조언자 없이 진도 나가려고 하니 잘 안됩니다.

그래서 선배님들의 귀한시간 내어달라고 조언을 구합니다.

(참고로 제가 백지상태라 보시고 쉽게 설명을 주시면 고맙겠습니다.)

성경파일(bibletext.txt)이 있습니다.

창,1,1,"태초에 하나님이 천지를 창조하시니라"

창,1,2,"땅이 혼돈하고 공허하며 흑암이 깊음 위에 있고 하나님의 신은 수면에 운행하시니라"

....

화면에 보시는데로

텍스트1에 "창"

텍스트2에 "1"

텍스트3에 "1"

을 입력하고 찾기를 누르면

text4창에

태초에 하나님이 천지를 창조하시니라

이렇게 표시되는 프로그램을 만들려고 합니다.

(최종 목표는 파워포인트가 실행되어서  바로 보이게 하는것입니다.)

제가 허접한 코딩한거를  아래에 올려놓았는데

책을 봐도 텍스트파일에서 검색하는게 자세히 안나와서 선배님들께 조언을 구합니다.

어찌하면 될찌 몇일동안 끙끙거리는 코딩을 수정해 주시면 감사하겠습니다.

Private Sub command1_click()

    Dim i As String
    Dim j As Integer
    Dim k As Integer
   
    Dim b1 As String
    Dim b2 As Integer
    Dim b3 As Integer
    Dim txt As String
   
    On Error Resume Next
   

    i = Text1.Text
    j = Text2.Text
    k = Text3.Text
   
       
       
    Close
   
   
    Open "c:\bibletext.txt" For Input As #1
       
    Do While Not EOF(1)
   
        Input #1, b1, b2, b3, txt
       
    Text4.Text = Text4.Text & "b1" & "b2" & "b3" & txt & vbCrLf
       
    Loop
       
    Close
    
        
        
End Sub

[고칼슘우유]

bibletext.txt 은 직접 작성하시는건가요??