add ninteiList

src/module/Common_File_Utils.bas

@@ -82,6 +82,7 @@ Sub WriteCSVFromArray( _
                 ' Escape double quotes: "" represents a single "
                 field = """" & Replace(field, """", """""") & """"
             End If
+            field = GetCode(field)
             
             fields(j - LBound(data, 2) + 1) = field
         Next j

src/module/Common_Global_Cache.bas

@@ -30,6 +30,7 @@ Private oufukuList As Object
 Private koutaiList As Object
 Private higaitouList As Object
 Private kenshuList As Object
+Private ninteiKbnList As Object
 
 Private sheetConfDict As Object
 
@@ -396,6 +397,24 @@ RefreshError:
     Err.Raise 1001, "RefreshKenshuList", "Failed to load Enum lookup cache: " & Err.Description
 End Sub
 
+' ============================================================
+' ninteiKbnList
+' ============================================================
+Private Sub RefreshNinteiKbnList()
+    On Error GoTo RefreshError
+    Set ninteiKbnList = LoadLookup("Enum", keyCol:=15, valueCols:=Array(16), startRow:=3)
+    On Error GoTo 0
+
+    If ninteiKbnList Is Nothing Or ninteiKbnList.Count = 0 Then
+        Err.Raise 1003, "RefreshNinteiKbnList", "Enum reference data is empty"
+    End If
+
+    Exit Sub
+
+RefreshError:
+    Err.Raise 1001, "RefreshNinteiKbnList", "Failed to load Enum lookup cache: " & Err.Description
+End Sub
+
 Private Sub RefreshSheetDict()
     Set sheetConfDict = CreateObject("Scripting.Dictionary")
     Dim sheetConf As Object
@@ -411,8 +430,8 @@ Private Sub RefreshSheetDict()
     sheetConf("RefreshCacheName") = ""
     sheetConf("CSV_Encoding") = "shift_jis"
     sheetConf("HasHeader") = True
-    sheetConf("ExpectedColumnCount") = 54
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
+    sheetConf("ExpectedColumnCount") = 41
+    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "W", "X", "Y", "Z", "AD", "AE", "AF", "AG", "AK", "AL", "AM", "AN", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC")
     sheetConf("AlwaysQuote") = False
     sheetConf("FilterRow") = 7
 
@@ -636,4 +655,9 @@ End Function
 Public Function GetKenshuList() As Object
     If kenshuList Is Nothing Then Call RefreshKenshuList
     Set GetKenshuList = kenshuList
+End Function
+
+Public Function GetNinteiKbnList() As Object
+    If ninteiKbnList Is Nothing Then Call RefreshNinteiKbnList
+    Set GetNinteiKbnList = ninteiKbnList
 End Function