수다닷컴

VB에서 특정 문자열 검색해 출력하는 방법이 궁금해요

가지 2025.01.31 댓글 10

폼에 전화번호 목록을 불러오고, 국번을 입력해 검색하면 일치하는 번호가 Text3에 나오게 하고 싶어요.
현재 InStr를 사용하려고 하는데 어떻게 작성하면 좋을까요?
아래는 지금까지 작성한 코드입니다.
Private Sub Command1_Click()
If InStr(Text1.Text, Text2.Text) Then
End If
End Sub
Private Sub Form_Load()
Dim A As String
Open App.Path & "\1.txt" For Input As #1
Line Input #1, A
Text1.Text = A
End Sub

댓글 10

  • 적송 2025.01.31

    완전히 해결됐네요. 감사합니다!

  • 후유 2025.01.31

    A As String은 문자열 변수 하나를 선언한 거고, A() As String은 문자열 배열을 선언한 거예요.
    Split으로 배열을 만들고 UBound로 크기를 확인하면 됩니다. Text3에 추가하려면 조건문에서 일치하는 항목을 이어 붙이면 돼요.

  • 아이돌 2025.01.31

    코드를 실행하고 221을 입력했더니 Text3에 결과가 나오는 대신 Text1 뒤에 번호 하나가 추가돼요.

  • 동백 2025.01.31

    Dim A As String과 Dim A() As String은 뭐가 다른가요?

  • 해까닥 2025.01.31

    Dim A() As String, i As Long
    A = Split(Text1.Text, "
    ")

  • 새나 2025.01.31

    제가 조건문을 잘못 적었네요.
    If문에서 검색 결과를 Text1에 붙이지 말고 Text3에 넣도록 바꾸면 됩니다.

  • Isolation 2025.01.31

    그대로 붙여 넣었더니 Then이나 Go To를 넣으라는 오류가 나요.
    죄송하지만 주석도 부탁드려도 될까요?

  • 가온길 2025.01.31

    어떤 방식으로 사용했는지와 어떤 문제가 생겼는지 설명이 빠진 것 같아요.

  • 핫팬츠 2025.01.31

    잘 안 되네요.

  • 우람늘 2025.01.31

    Dim A() As String, i As Long
    A = Split(Text1.Text, "
    ")