특정 문자열 출력 질문 instr
아란
이사진이 폼 모양이고요.
현재 까지 작성한 소스는 밑에 입니다. 첫번째 213-0077, 211-1234…………. 여기는 메모장에서 input에 온거고요.
제가 원하는것은 국번을 쓰고 검색을 누르면 밑에 text3에 출력되는건데 도움좀 주세요.
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
-
은새 2025-01-31
완전히 해결 됬네요. 감사합니다.
-
연다홍 2025-01-31
a as string은 a라는 string형 변수를 선언한 것이고,
a() as string은 a라는 string형 배열을 선언하되 그 크기를 지정하지 않은 상태에요.
크기는 Split에 의해 동적으로 정해지기에 UBound 함수를 이용하여 A의 크기를 구했어요.
Text3에 추가하시려면 아래와 같이 조건문을 다시 바꿔보세요.
If Instr(A(i), Text2.Text) Then Text3.Text = Text3.Text & A(i) & vbCr -
초롬 2025-01-31
위 소스를 작성해서 프로그램을 실행시키면 221을 넣고 실행시키면 text3에 211-1234외 2가지가 작성되는것이 아니라 text1 뒷 부분에 211-0077 하나가 추가되네요.
-
중독적 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
미안해요, 조건문을 C 형식으로 작성했어요.
If문을 아래와 같이 바꾸어 사용하세요.
If Instr(A(i), Text2.Text) Then Text1.Text = Text1.Text & A(i) & vbCrLf -
레나 2025-01-31
그대로 가져다가 붙여 넣었더니
If(Instr(A(i), Text2.Text)) Text1.Text = Text1.Text & A(i) & vbCrLf
에서 Then 이나 Go to를 넣으라는군요.
죄송하지만, 주석좀 부탁드릴수 있을까요? -
머슴밥 2025-01-31
두가지 어떻게가 빠졌어요.
어떻게 사용했더니 어떻게 안되었다. -
핑1크캣 2025-01-31
잘안되네요.
-
회전력 2025-01-31
Dim A() as String, i as Long
A = Split(Text1.Text, \
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2697433 | 리스트 개초보가 질문합니다.. | 지옥 | 2025-06-07 |
| 2697375 | 윈속 다중채팅방 말치는거 질문이여 | 가론 | 2025-06-07 |
| 2697342 | 프로그램의 텍스트를 파싱(?)하기 | 매화 | 2025-06-07 |
| 2697315 | SendMessage 함수에 대해서 | 가랑비 | 2025-06-06 |
| 2697294 | [VB6 Q&A] 멀티쓰래드 애러 질문 (1) | 겨슬 | 2025-06-06 |
| 2697265 | 비주얼 메세지박스질문 (1) | 하나 | 2025-06-06 |
| 2697236 | 윈도우 8 버젼에서의 일부 파일이 변경되지 않는 문제 (1) | 미투리 | 2025-06-06 |
| 2697208 | 비베 커멘드 버튼 변경법 (2) | 안토니 | 2025-06-05 |
| 2697183 | VB 어떤거부터 공부해야 좋을까요 ? | 민아 | 2025-06-05 |
| 2697130 | 두개 이상의 프로그램이 있을시 종료 | 슬아 | 2025-06-05 |
| 2697103 | 센드키는 알겟는데 keypress이거는머에요 (1) | 헛장사 | 2025-06-04 |
| 2697073 | 컴퓨터 끄기를 누르면 끄기가 아니라 대기모드가 되게 하는방법좀요 (2) | 플랜 | 2025-06-04 |
| 2697051 | shell문을 입력후에클릭을하면..내문서가 열리네요...? (1) | 사이 | 2025-06-04 |
| 2697024 | 타이머사용 | 나나 | 2025-06-04 |
| 2696970 | text형식으로 저장할때 언어셋설정 질문!!! | 핫팬츠 | 2025-06-03 |
| 2696917 | sys우회 하는법 아시는분. . (1) | 촉촉한 초코칩 | 2025-06-03 |
| 2696883 | 비쥬얼베이직 스튜디오 6.0 파일 | 콩알눈 | 2025-06-02 |
| 2696854 | 윈웹 렉이 너무 심하네요 (1) | 팬지 | 2025-06-02 |
| 2696825 | 메이플스토리로그인(접속기) 소스오류, 해결바랍니다! | 키다리 | 2025-06-02 |
| 2696800 | 그누보드 multipart 게시글작성 (3) | HotPink | 2025-06-02 |