#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <FileConstants.au3>
#include "Json.au3" ; Json.au3 UDF 필요
; GUI 생성
Global $hGUI = GUICreate("JSON Manager", 600, 400)
Global $hListView = _GUICtrlListView_Create($hGUI, "Key|Value", 10, 10, 580, 300)
Global $btnAdd = GUICtrlCreateButton("Add", 10, 320, 80, 30)
Global $btnEdit = GUICtrlCreateButton("Edit", 100, 320, 80, 30)
Global $btnDelete = GUICtrlCreateButton("Delete", 190, 320, 80, 30)
Global $btnSave = GUICtrlCreateButton("Save to File", 280, 320, 80, 30)
Global $inputKey = GUICtrlCreateInput("", 10, 360, 120, 20)
Global $inputValue = GUICtrlCreateInput("", 140, 360, 120, 20)
; ListView 설정
_GUICtrlListView_SetColumnWidth($hListView, 0, 200)
_GUICtrlListView_SetColumnWidth($hListView, 1, 350)
; JSON 파일 경로
Global $sJsonFile = @ScriptDir & "\data.json"
Global $oJson = ObjCreate("Scripting.Dictionary") ; JSON 데이터를 저장할 객체
; JSON 파일 로드
LoadJson()
GUISetState(@SW_SHOW)
; 메인 루프
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $btnAdd
AddItem()
Case $btnEdit
EditItem()
Case $btnDelete
DeleteItem()
Case $btnSave
SaveJson()
EndSwitch
WEnd
GUIDelete($hGUI)
; 함수들
Func LoadJson()
_GUICtrlListView_DeleteAllItems($hListView)
If FileExists($sJsonFile) Then
Local $sJsonData = FileRead($sJsonFile)
$oJson = Json_Decode($sJsonData)
If Not @error And IsObj($oJson) Then
Local $aKeys = $oJson.Keys()
For $sKey In $aKeys
_GUICtrlListView_AddItem($hListView, $sKey)
_GUICtrlListView_AddSubItem($hListView, _GUICtrlListView_GetItemCount($hListView) - 1, String($oJson.Item($sKey)), 1)
Next
Else
$oJson = ObjCreate("Scripting.Dictionary")
EndIf
EndIf
EndFunc
Func AddItem()
Local $sKey = GUICtrlRead($inputKey)
Local $sValue = GUICtrlRead($inputValue)
If $sKey <> "" And $sValue <> "" Then
If Not $oJson.Exists($sKey) Then
$oJson.Add($sKey, $sValue)
_GUICtrlListView_AddItem($hListView, $sKey)
_GUICtrlListView_AddSubItem($hListView, _GUICtrlListView_GetItemCount($hListView) - 1, $sValue, 1)
GUICtrlSetData($inputKey, "")
GUICtrlSetData($inputValue, "")
Else
MsgBox(48, "Warning", "이미 존재하는 키입니다.")
EndIf
Else
MsgBox(48, "Warning", "키와 값을 모두 입력해주세요.")
EndIf
EndFunc
Func EditItem()
Local $iSelected = _GUICtrlListView_GetSelectedIndices($hListView)
If $iSelected <> "" Then
Local $sKey = _GUICtrlListView_GetItemText($hListView, $iSelected, 0)
Local $sNewValue = GUICtrlRead($inputValue)
If $sNewValue <> "" Then
$oJson.Item($sKey) = $sNewValue
_GUICtrlListView_SetItemText($hListView, $iSelected, $sNewValue, 1)
GUICtrlSetData($inputKey, "")
GUICtrlSetData($inputValue, "")
Else
MsgBox(48, "Warning", "새 값을 입력해주세요.")
EndIf
Else
MsgBox(48, "Warning", "수정할 항목을 선택해주세요.")
EndIf
EndFunc
Func DeleteItem()
Local $iSelected = _GUICtrlListView_GetSelectedIndices($hListView)
If $iSelected <> "" Then
Local $sKey = _GUICtrlListView_GetItemText($hListView, $iSelected, 0)
$oJson.Remove($sKey)
_GUICtrlListView_DeleteItem($hListView, $iSelected)
Else
MsgBox(48, "Warning", "삭제할 항목을 선택해주세요.")
EndIf
EndFunc
Func SaveJson()
Local $sJsonData = Json_Encode($oJson, $JSON_PRETTY_PRINT)
Local $hFile = FileOpen($sJsonFile, $FO_OVERWRITE)
If $hFile <> -1 Then
FileWrite($hFile, $sJsonData)
FileClose($hFile)
MsgBox(64, "Success", "JSON 파일이 저장되었습니다.")
Else
MsgBox(16, "Error", "파일을 저장할 수 없습니다.")
EndIf
EndFunc
