애프터 이펙트 프리셋 한/영 전환

 최근에 XdobeFixGUI를 만들면서 프리셋 이름의 한/영 전환이 쉽도록 리네이밍 프로그램을 만들려고 계획중이다.

 기본 제공되는 프리셋 파일이 564개^[각주:1]인데, 그 파일들을 일일이 대조해서 비교하는건 힘들 것 같아서 내부 파일 바이너리를 비교해서 일치하는 파일 목록을 만들면 되겠구나! 했다.

 일단, 파일 데이터가 같은지 프로그램 만들기 전에 예시로 몇개를 비교해봤다.

왼쪽(←)은 영문 버전, 오른쪽(→)은 한글 버전, 간단히 살펴봐도 동일함을 알 수 있다^[각주:2].

 육안 테스트를 통과하니 이제 프로그램을 만들었다. 비교적 잘 다루기도 하고 제공되는 기본 파일관련 함수들도 많아서 언어는 VB.NET을 사용했다.

 1:1 매칭 데이터만 뽑으면 되니까 무식하게 일일이 대조하는 방법을 사용했다.

    Sub Main()

        Dim listHan As List(Of String) = My.Computer.FileSystem.GetFiles($"{Loc}Presets\",
                                                                         FileIO.SearchOption.SearchAllSubDirectories, "*.*").ToList
        Dim listEng As List(Of String) = My.Computer.FileSystem.GetFiles($"{Loc}Preset_Eng\Presets",
                                                                         FileIO.SearchOption.SearchAllSubDirectories, "*.*").ToList

        Dim hanData As Byte()
        Dim engData As Byte()
        For i = 0 To listHan.Count - 1
            hanData = My.Computer.FileSystem.ReadAllBytes(listHan(i))
            For k = 0 To listEng.Count - 1
                engData = My.Computer.FileSystem.ReadAllBytes(listEng(i))
                If listEng(i) Is Nothing Then
                    Continue For
                End If
                If CompareData(hanData, engData) Then
                    Console.WriteLine($"{Replace(listHan(i), $"{Loc}Presets\", "")}")
                    Console.WriteLine($"{t}{Replace(listEng(i), $"{Loc}Preset_Eng\Presets\", "")}")
                    listEng(i) = Nothing
                    Exit For
                End If
            Next

            Console.WriteLine($"대상을 찾을 수 없음 : {Replace(listHan(i), $"{Loc}Presets\", "")}")

        Next
        Console.WriteLine($"{w}{w}{w}")
        For i = 0 To listEng.Count - 1
            If listEng(i) IsNot Nothing Then
                Console.WriteLine(listEng(i))
            End If
        Next

    End Sub

    Public Function CompareData(ByVal c1 As Byte(), ByVal c2 As Byte()) As Boolean
        If c1.Count <> c2.Count Then
            Return False
        End If
        For i = 0 To c1.Count - 1
            If c1(i) <> c2(i) Then
                Return False
            End If
        Next
        Return True
    End Function

 이렇게 코드를 구성하고, 대조 작업을 진행해보니 문제가 발생했다.

논리대로라면 이름이 다르다고 내부 데이터가 다르지는 않을테니 모든 대상을 1:1로 찾을 수 있어야하는데, 대상을 찾을 수 없음. 즉, 매칭되는 데이터가 발견되지 않는 경우가 발생한것이다.

 혹시라도 한글 버전과 영어 버전의 애프터이펙트 기본 제공 프리셋 수가 다르나 싶어서 봐도 똑같았다.

 한 두개 정도면 그래도 수작업 해서 하면 될텐데, 매칭 데이터를 못찾은 것들이 대다수라서 한/영 이름 전환해주는 프로그램 개발은 좀 더 두고 봐야겠다.

++

 파일 이름이 다르다고 해서 데이터가 다를 이유가 없으니 계속 의문이 생겨서 다시 해보니 이번엔 다 찾더라. 뭐가 문제였나 이전 코드(올려놓은 코드)를 살펴보니 데이터 인덱싱을 잘 못 했다. 조만간 한/영 전환 프로그램도 만들어볼 예정이다.

1. CC2019, 19.01.27. 기준 [본문으로]
2. 사진을 클릭한 후, 좌우로 넘겨보면 더 쉽게 비교 가능 [본문으로]