특정 문자열 출력 질문 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, \
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2690403 | 실행하면 자동로그인 | 검사 | 2025-04-04 |
| 2690345 | 비베 소리넣을수있나요? | 머슴밥 | 2025-04-04 |
| 2690315 | 덧글달기 질문 | 엄마몬 | 2025-04-03 |
| 2690293 | if문 으로하는건가? 다운로드가 완료되면 다음을 실행하라 라는 구문좀..ㅠㅠ | 달콤이 | 2025-04-03 |
| 2690270 | 텍스트 랜덤 출력 (3) | 푸른나무 | 2025-04-03 |
| 2690238 | 파싱에대해 자세히 알고싶습니다. (1) | 슬기 | 2025-04-03 |
| 2690184 | Winsock 질문 ! | 꽃봄 | 2025-04-02 |
| 2690155 | kernel32.dll 오류질문 (8) | 백합 | 2025-04-02 |
| 2690013 | 급해요 커맨드박스를누르면 다운로드하게해놧는데 잘되던게 403Forbidden떠요 일단글좀봐주세요 (2) | 에일린 | 2025-04-01 |
| 2689986 | 자동 다운 자동 실행 ..;;;; 도대체 뭐가 안되는거저??;; (3) | 조은 | 2025-03-31 |
| 2689935 | 레지삭제질문! | 물티슈 | 2025-03-31 |
| 2689914 | 비베체크박스핫키 | 남천 | 2025-03-31 |
| 2689802 | ImageSearchDll.dll (2) | 탄성 | 2025-03-30 |
| 2689741 | 타이머를이용한..트레이 | 헤벌심 | 2025-03-29 |
| 2689686 | [프르그래스바질문] -초보임 (10) | 콩알눈 | 2025-03-29 |
| 2689632 | 체크다운로드 (체크되어잇는것만) (3) | 얀별 | 2025-03-28 |
| 2689529 | 프메에관한건데..질문합니다! (1) | 파라나 | 2025-03-27 |
| 2689499 | PropBag.ReadProperty 질문 | 해사랑해 | 2025-03-27 |
| 2689474 | 비베6.0 Shell문 런타임오류 질문드립니다 (10) | 울트라 | 2025-03-27 |
| 2689388 | navigate로 안들어가지는 사이트있네요 (1) | 은별 | 2025-03-26 |