Iniread

[cyberdv3]

[b]Selamun aleyküm,[/b]

[b]Arkadaşlar $idface adında bir inputum var , program başlangıcında Ayarlar.ini'de bulunan [/b]
[b]kullanıcı K.adi'nı Okutmak İstiyorum[/b]

[b]Ayarlar.ini'yi Şöyle Hazırladım ;[/b]
[b]$exeyolu = @SCRIPTDIR & '\Ayarlar.ini'
$ayar = iniWrite ( $exeyolu, 'Bilgiler', 'K.adi', GUICtrlRead($idface))[/b]

[b]ini sorunsuz oluşuyor fakat programı tekrar açtığımda inideki veriyi alamıyorum alttaki kodda hata , hatalar nerede?? yardım bekliyorum.. şimdiden teşekkürler[/b]




[b]$idface = iniread(@Scriptdir & "\Ayarlar.ini","Bilgiler","K.adi","")[/b]

[asmazh]

[CODE]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
Global $IniDir = @DesktopDir & "\Deneme_123.ini"
If Not FileExists($IniDir) Then FileOpen($IniDir, 1)
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 269, 362, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 217, 21)
$Button1 = GUICtrlCreateButton("Ekle", 232, 8, 27, 21)
$List1 = GUICtrlCreateList("", 8, 40, 249, 175)
$Edit1 = GUICtrlCreateEdit("", 8, 224, 249, 129, BitOR($ES_READONLY, $ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("İnput" & Chr(39) & "a bir şeyler yaz. Listeye eklenecektir. \r\nProgramı kapat, sonra tekrar aç, eklediğini \r\nlistede bulacaksın. AsmazH.TM"))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
_IniRead_ListAdd()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Input_Read = GUICtrlRead($Input1)
If Not StringInStr($Input_Read, "|") And $Input_Read <> "" Then
GUICtrlSetData($Input1, "")
IniWrite($IniDir, "LİSTE", "1", IniRead($IniDir, "LİSTE", "1", "") & $Input_Read & "|")
_IniRead_ListAdd()
Else
MsgBox(0, "", "Lütfen '|' karakrerini kullanmayın." & @CRLF & "İnput'a bir şeyler gir!")
EndIf
EndSwitch
WEnd
Func _IniRead_ListAdd()

Local $Ini_Read = IniRead($IniDir, "LİSTE", "1", "")
ConsoleWrite($Ini_Read & @CRLF)
Local $IniRead_Split = StringSplit($Ini_Read, "|")

GUICtrlSetData($List1, "")

For $i = 1 To $IniRead_Split[0]
If $IniRead_Split[$i] <> "" Then GUICtrlSetData($List1, $IniRead_Split[$i])

Next
EndFunc ;==>_IniRead_ListAdd
[/CODE]

[cyberdv3]

koda açıklama ekleseydin keşke.

[asmazh]

Her şey açık ve net. Sen kafa yormasan ben sana dikte edemem. Programlama uğraşılarak öğrenilir. Hadi kolay gelsin.

[kamuran731]

listede seçili olan satırı kopyalaması için butona nasıl bir kod ekleyebilriz?

birde listedeki öğeler üzerinde aşağı yukarı girmesi için butona nasıl bir kod ekleyebliriz 

Edited September 11, 2013 by kamuran731