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

엑셀 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)

}

쉽지 않은 것 같네요ㅠㅠ

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

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

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