mieki256's diary

; notesel, noteload, notesave のテスト
; .ini を読んで、値を少し変えて、また .ini に書き戻してみる

; #uselib "kernel32"
; #func GetModuleFileName "GetModuleFileNameA" int, int, int

#define INI_FILE    "notesel_test.ini"
#packopt name       "notesel_test"  ; exe filename
#packopt type       0               ; generate ".exe"

; ----------------------------------------
; load ini file

ini_filepath = INI_FILE
mes "Load " + ini_filepath + "\n"

buf = ""
notesel buf

exist ini_filepath      ; ファイル存在チェック
if strsize = -1 {
    ; not found ini file
    dialog "Not found " + ini_filepath, 0
    end
} else {
    ; iniファイルを読み込む
    noteload ini_filepath
    mes buf

    ; 1行ずつ内容を解析して記録
    sdim ld, 512
    repeat notemax
        noteget ld, cnt     ; 1行分を取得
        
        if instr(ld, 0, "test1=") >= 0 {
            split ld, "=", kind, cmd
            test1 = int(cmd)
        }
        if instr(ld, 0, "test2=") >= 0 {
            split ld, "=", kind, cmd
            test2 = int(cmd)
        }
    loop
}

noteunsel

mes "test1=" + test1
mes "test2=" + test2

; ----------------------------------------
; change value

wait 100

test1 += 1
test2 += 1

mes "\nAdd +1"
mes "test1=" + test1
mes "test2=" + test2

wait 100

; ----------------------------------------
; save ini file

buf = ""
notesel buf
noteadd "test1=" + test1
noteadd "test2=" + test2
notesave ini_filepath

dialog "Save " + ini_filepath, 0
mes "\nSave " + ini_filepath

wait 200
end

test1=17
test2=25