특정 문자열 출력 질문 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, \
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2704558 | 전체 변수 선언 방법? (1) | 사자자리 | 2025-08-11 |
| 2704530 | 여러분 급해요.. | 시윤 | 2025-08-11 |
| 2704498 | 위대한 수다님들 질문하나할게요 (운영체제관련) (3) | 아리에스 | 2025-08-10 |
| 2704474 | 사용자명 확인하기 | 예님 | 2025-08-10 |
| 2704446 | 블랙리스트 (3) | 마루한 | 2025-08-10 |
| 2704392 | 비베 책 추천점해주세요~ | 이플 | 2025-08-09 |
| 2704366 | 정말 궁금해서 물어봅니다 . | agine | 2025-08-09 |
| 2704339 | 서버on off 질문 (1) | 2gether | 2025-08-09 |
| 2704312 | Microsoft Tabbed Dialog Control 6.0 질문 | 영미 | 2025-08-09 |
| 2704256 | 사이트 접속자... (1) | 계획자 | 2025-08-08 |
| 2704228 | 채팅방 사이트 로그인소스하고 채팅방 접속소스좀.. (1) | 초롱꽃 | 2025-08-08 |
| 2704197 | 커맨더 버튼 색깔변경 | 여자 | 2025-08-08 |
| 2704170 | winhttp로 웹연동을 할수 있나요? (4) | 나길 | 2025-08-07 |
| 2704063 | 고수분들 답변좀요 ~~~ | 볼수록매력 | 2025-08-06 |
| 2704036 | 커맨드버튼 입체감 살리는법 | 알찬바로 | 2025-08-06 |
| 2704006 | msgbox 내용 텍스트 박스로 출력하기 (2) | 조으다 | 2025-08-06 |
| 2703955 | 네크워크 어댑터관련 질문입니당. | 별햇님 | 2025-08-05 |
| 2703925 | 지금 매우 비효율적인 방법을 쓰고있는데요 쉬운방법 없을까요? (2) | 리네 | 2025-08-05 |
| 2703870 | 리스트에있는것을클릭하고다운하기.... | 핫자두 | 2025-08-05 |
| 2703838 | 어떻게 해야되나요? | 환히찬 | 2025-08-04 |