ini Den Veri okutup inputa Yazdırmak

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
darendeli
Byte3
Byte3
Mesajlar: 147
Kayıt: 06 Haz 2016, 16:55

ini Den Veri okutup inputa Yazdırmak

Mesaj gönderen darendeli » 08 Ağu 2018, 21:52

Yapmaya Calıstıgım ini Dosyasında Diyelim Ahmet-Mehmet-Osman diye 3 veri var
bunları Mesela Ben O harfini 1 İnputa Yazınca osmanı oto Yazsın istiyorum 2. inputa A ile Basliyorum diyelim Tamamlasın

Kod: Tümünü seç

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 455, 145, 192, 124)
$Input1 = GUICtrlCreateInput("", 72, 40, 121, 21)
$Input2 = GUICtrlCreateInput("", 240, 40, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..



Kullanıcı avatarı
BlueLife
Byte4
Byte4
Mesajlar: 158
Kayıt: 29 Ağu 2014, 20:42

Re: ini Den Veri okutup inputa Yazdırmak

Mesaj gönderen BlueLife » 09 Ağu 2018, 09:49

@darendeli

Autoit forumlarında benzeri bir çok konu mevcut. Önce ilgili konulardaki örnekleri incelersin.
https://www.google.com/search?q=site%3A ... tocomplete

darendeli
Byte3
Byte3
Mesajlar: 147
Kayıt: 06 Haz 2016, 16:55

Re: ini Den Veri okutup inputa Yazdırmak

Mesaj gönderen darendeli » 09 Ağu 2018, 12:30

Biraz inceledimde Tam Aradıgımı Bulamadım Su biraz uyuyor Ama Buda Array Elle Tek tek Yazmak istiyor ini Dostasından okusa Daha iyi Olacak Ve yazılan ismi buluyor Altta Kalıyor Yazdıgım kelimenin Yerine Gelse Daha iyi Olurdu Bu Eklemelerde Yardımcı Olabilirmisiniz

Kod: Tümünü seç

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiComboBox.au3>
#include <ComboConstants.au3>


$sInitial_Data = "dog|doggy|dodger|kittens"

$aInitial_Array = StringSplit($sInitial_Data, "|")

$hGUI = GUICreate("Test", 500, 500)

$hCombo = GUICtrlCreateCombo("", 10, 30, 200, 20)
GUICtrlSetData(-1, $sInitial_Data)

GUISetState()

Global $sCurrent_ComboText = ""

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $sActual_ComboText = _GUICtrlComboBox_GetEditText($hCombo)
    If $sActual_ComboText <> $sCurrent_ComboText Then

        Local $sCurrent_Data = ""
        For $i = 1 To $aInitial_Array[0]
            If StringInStr($aInitial_Array[$i], $sActual_ComboText) Then
                $sCurrent_Data &= "|" & $aInitial_Array[$i]
            EndIf
        Next

        GUICtrlSetData($hCombo, $sCurrent_Data)
        _GUICtrlComboBox_SetEditText($hCombo, $sActual_ComboText)

        $sCurrent_ComboText = $sActual_ComboText

    EndIf

WEnd
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

Kullanıcı avatarı
BlueLife
Byte4
Byte4
Mesajlar: 158
Kayıt: 29 Ağu 2014, 20:42

Re: ini Den Veri okutup inputa Yazdırmak

Mesaj gönderen BlueLife » 10 Ağu 2018, 09:47

@darendeli

Verdiğin örnekte bazı değişiklikler yaptım. Incelersin. Kolay gelsin...

Kod: Tümünü seç

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiComboBox.au3>
#include <ComboConstants.au3>

Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &=  "\"
Global $IniFile = $ScriptDir & "inifile.ini"

Global $sInitial_Data = IniRead($IniFile,"Main","List","")
If StringLen($sInitial_Data) = 0 Then ;liste yoksa örnek liste yazalım
	$sInitial_Data = "dog|doggy|dodger|kittens"
	IniWrite($IniFile,"Main","List",$sInitial_Data)
EndIf
Global $aInitial_Array = StringSplit($sInitial_Data, "|",1)

Global $hGUI = GUICreate("Test", 500, 500)
Global $hCombo = GUICtrlCreateCombo("", 10, 30, 200, 20)
GUISetState()

Local $CurrentStr,$ActualStr,$CurrentList, $DefaultStr
While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $ActualStr = GUICtrlRead($hCombo)
    If $ActualStr <> $CurrentStr Then
		$CurrentStr = $ActualStr

		$CurrentList = ""
		$DefaultStr = ""
		If Stringlen($ActualStr) > 0 Then
			For $i = 1 To $aInitial_Array[0]
				If StringLeft($aInitial_Array[$i], Stringlen($ActualStr)) = $ActualStr Then
					$CurrentList &= "|" & $aInitial_Array[$i]
					If $aInitial_Array[$i] = $ActualStr Then $DefaultStr = $aInitial_Array[$i]
				EndIf
			Next
		EndIf

        GUICtrlSetData($hCombo, $CurrentList,$DefaultStr)

		If Stringlen($CurrentList) = 0 Then
			GUICtrlSendMsg($hCombo, 335, False, 0)
		Else
			GUICtrlSendMsg($hCombo, 335, True, 0)
		EndIf
		If Stringlen($DefaultStr) = 0 Then
			_GUICtrlComboBox_SetEditText($hCombo, $CurrentStr)
		Else
			_GUICtrlComboBox_SetEditSel($hCombo, -1, 0)
		EndIf
    EndIf
WEnd
Yardım dosyasındaki _GUICtrlComboBox_AutoComplete örneğinide bak istersen. Sonradan aklıma geldi.

Cevapla