소프트웨어 모든 경우 도출하기

엑셀 vb 편집기(alt + F11) 을 이용해서 하드코딩식으로 하면 할수는 있으나

모든 경우의 수를 하기에는 개발고수님이 등장하셔야 합니다.

Sub AddString()

    Dim Rng As Range

    Dim WorkRng As Range

    On Error Resume Next

    xTitleId = "test"

    Set WorkRng = Application.Selection

    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

    For Each Rng In WorkRng

        Rng.Value = VBA.Left(Rng.Value, 1) & "." & VBA.Mid(Rng.Value, 2)

        Rng.Value = VBA.Left(Rng.Value, 3) & "." & VBA.Mid(Rng.Value, 4)

        Rng.Value = VBA.Left(Rng.Value, 5) & "." & VBA.Mid(Rng.Value, 6)

    Next

End Sub

실행 F5

데이타 : 1234

결과 : 1.2.3.4

제가 프로그래밍을 안해본지 너무 오래되서 어떻게 작성하는지 다 까먹었는데 알고리즘은 간단해보이는데요..

int str_length

str_length = 숫자의 자릿수 << 이거는 아예 모르겠네요

var_texture_var =  입력된 숫자를 문자화한 값을 대입하는 변수... 

for(i=0, i=str_length, i++) {

포인터나 배열 선언하고 그 숫자까지의 문자만 출력하고 그 다음에 점 출력하고 그리고 나머지 출력하고

말은 쉬운데 작성법은 모르겠네요 ^^; 답변 안하느니만 못한건가 ㅠ.ㅠ 죄송합니다.

 printf("i", \n)

}

쉽지 않은 것 같네요ㅠㅠ

기본적으로 비트연산에 해당되네요.

각 점을 0과 1로 생각하고

abc 3개인 경우 2^(3-1) = 4 개의 경우의 수.

즉, 비트값믈 가져올수만 있으면 볼 수 있겠네요.

0~2^(n-1) - 1 까지 숫자를 순서대로 읽어 이진수로 변환 후 0일땐 안찍고 1일땐 찍고 이런식으로 해야죠.

이 경우엔 0~3까지

00

01

10

11

값을 읽고 그 포인트에 따라 사이사이 찍으면 될듯.

설명은 되지만 막상 짤려고 하니까 헷갈리네요.

이진수 변환은

https://suninara.tistory.com/72

이거 이용하면 될듯.

근데 30개 정도 되면 결국 조합 갯수가 5억여개가 출력되어야하는데,

정확하게 어떤걸 원하시는건지 모르겠네요.

TXT파일로 출력하면 대강 어림잡아봐도 30GB 바이트짜리 TXT가 요구됩니다.

큰만큼 메모리에도 못 올려요.

정말 그걸 원하시는 건가요?

파이썬에 경우의 수를 뽑아주는 모듈이 있어서 파이썬으로 코드를 짜서 텍스트 파일에 저장하도록 했습니다.

중복되는 문자는 고려를 하지 않았습니다. 예를 들어, "ABCA",,,이런식으로 A가 2번 들어갈 경우는 예상한 결과와 다르게 출력됩니다.

중복되는 문자도 고려하려면 코드를 수정해야겠지요?