흑흑 아직도 해결이안됬어요 ㅜㅜ For문안에서 중복처리,,
겨울c
2024.04.27
Option Explicit
Dim a, b As IntegerPrivate Sub Command1_Click()a = Split(Text1, [)
For b = 1 To UBound(a)
Dim i
If List1.ListCount = 0 Then
List1.AddItem Split(a(b), ])(0)
Exit Sub
End If
For i = 0 To List1.ListCount - 1
If List1.List(i) = Split(a(b), ])(0) Then
Exit For
End If
Next i
List1.AddItem Split(a(b), ])(0)Next b
End Sub
text1
에다가
[a]
[b]
[c]
[d]
[e]
[f]
[a]
[g]
[b]
[h]
[d]
[g]
이렇게 하면, 중복된게 있잖아요
두개중복되든, 세개 중복되든, 쨋든 중복이되면 하나만 리스트에 추가하게 하고싶거든요
a
b
c
d
e
f
g
h
이렇게만나오게;;; 근데 ㅜㅜ 어떻게해야될지 모르겠네요;
-
Sweeety 2024-04-27
무슨말씀이신지 이해불가라,
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655524 | for문 좀 높이 올라가면 프로그램이 멈추네요.. (5) | 가욋길 | 2024-05-20 |
2655492 | 포함된 문자로 파일명 검색하기? (5) | 모아 | 2024-05-20 |
2655472 | winhttp를 이용해 네이버 로그인에 성공했을때... | 개구리 | 2024-05-20 |
2655417 | VB로 프로세스 어떻게잡아요?? settini 나오게 또어떻게하나요? (3) | 모해 | 2024-05-19 |
2655384 | 비베로 클래스파일 실행하기 (5) | 달달한캔디 | 2024-05-19 |
2655362 | 컴파일시 오류 ㅠㅠ | 맨삶이 | 2024-05-19 |
2655329 | 트레이너 질문. 핫키를누르면 적용됫다가풀림 (1) | SweetChoco | 2024-05-18 |
2655300 | 특정 프로그램 루프문으로 팅기게 하고싶은데 (2) | 애교 | 2024-05-18 |
2655272 | 강좌소스확인하는법좀요 | 말달리자 | 2024-05-18 |
2655243 | 파일크기비교 | 혜윤 | 2024-05-18 |
2655211 | 우엉~ Winhttp 겁나 급해요 ㅜㅜ (2) | 정훈 | 2024-05-17 |
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |