2025년 5월 19일 (월) 21:21에 Devcafe님의 편집

2025-05-19T21:21:43Z

← 이전 판		2025년 5월 20일 (화) 06:21 판
129번째 줄:		129번째 줄:

	</source>		</source>
			[[category:autoit]]

Devcafe: 새 문서: == autoit json 파일 이용 == #include #include #include #include #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, 3...

2025-03-13T12:32:06Z

새 문서: == autoit json 파일 이용 == <source lang=autoit> #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, 3...

새 문서

== autoit json 파일 이용 ==
<source lang=autoit>
#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

</source>

Autoit json - 편집 역사

2025년 5월 19일 (월) 21:21에 Devcafe님의 편집