vb6.0/vba [vb6.0/vba] 특정 패턴으로 더하고 빼기(자화자찬)
페이지 정보
본문
지식인에 아래와 같은 질문이 올라왔다.
심각한 난독증르로 글 내용은 모르겠고...
+aaa-aaa-aaa+++aaaaaa--aaa 이렇게 입력된것은 +값3-값2-값1+++값4값4--값2 이렇게 나오면 되고...
|
결과:)
+값3-값2-값1+++값4값4--값2값2
뭐가 하나 더 나온다."+값3-값2-값1+++값4값4--값2" 이렇게 나와야 하는데...
버그?
생각해보니 aaa로 나눈 배열중 마지막 배열은 사용하면 안되는 배열이다.
Sub program1472_com()
Dim V As Variant
V = Split(Selection.Value, "aaa")
Dim i As Integer, n As Integer
n = 2
For i = 0 To UBound(V) - 1
n = n - UBound(Split(V(i), "-"))
n = n + UBound(Split(V(i), "+"))
V(i) = V(i) & "값" & n
Next
MsgBox Join(V, vbnellstring)
End Sub
결과:)
| +aaa-aaa-aaa+++aaaaaa--aaa -> +값3-값2-값1+++값4값4--값2 |
-aaaaaa+aaa++aaaaaa---aaa -> -값1값1+값2++값4값4---값1 잘 나온다. 프로그램은 재미있다. == ? |
- 이전글[vb6.0/vba] 네이버 뉴스 xml로 긁어오기 19.10.24
- 다음글[vba] vba를 이용한 롯데택배 로그인 및 로그아웃 19.10.02
댓글목록
등록된 댓글이 없습니다.