[vb6.0/vba] [vb6.0/vba] 특정 패턴으로 더하고 빼기(자화자찬)
하나를하더라도최선을
2019-10-20 23:24
3,821
0
본문
지식인에 아래와 같은 질문이 올라왔다.
심각한 난독증르로 글 내용은 모르겠고...
+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 잘 나온다. 프로그램은 재미있다. == ? |
댓글목록0