Çözüldü - ConsolWrite Aynı Yazıları Liste Aktarmak

darendeli · Mesaj gönderen **darendeli** » 07 Mar 2019, 00:38

BOŞ
1
1X
2
1X
1X
BOŞ

Gibi Yazılar Var Bunları ListBox Aktarmaya Çalısıyorum Ama Aynılarını Yazmıyor Sadece 1 kere Aktarıyor.. Mesela 1X 3 tane var ama 1 Tane Listeye Aktarıyor Hepsini Consolda Yazdıgı Sırayla Nasıl Aktarabilirim...

@BlueLife Katkılarından Dolayı Tesekkürler Sorun Çözülmüstür

anxious · Mesaj gönderen **anxious** » 07 Mar 2019, 03:21

Şöyle yap diyecektim ama GUICtrlSetData($List2 ,$hostteam1 & @CRLF,1) denedim olmadı umarım BlueLife yardımcı olur sana ve bir çözüm üretir :)

Mesaj gönderen **BlueLife** » 07 Mar 2019, 11:37

@darendeli

Separator karakterini kullanıyorduk. Basit bir örnek vermem gerekirse;

Kod: Tümünü seç

Opt("MustDeclareVars", 1) ;Tanımlanmamış variablelerde hata verdirtiyor!
Global Const $Separator = Chr(124)
Global Const $Space = Chr(32)

Opt("GUIDataSeparatorChar", $Separator)

GUICreate("My GUI list",350,250) ; will create a dialog box that when displayed is centered
Local $mylist = GUICtrlCreateList("", 0, 0, 350, 250,BitOR(0x00100000,0x00200000, 0x0800, 0x1000, 0x0080,0x0100))

GUISetState()
GUICtrlSetData($mylist, @CRLF & $Separator) ;$Space de olabilir.
GUICtrlSetData($mylist, "1" & $Separator)
GUICtrlSetData($mylist, "1x" & $Separator)
GUICtrlSetData($mylist, "2" & $Separator)
GUICtrlSetData($mylist, "1x" & $Separator)
GUICtrlSetData($mylist, "1X" & $Separator)
GUICtrlSetData($mylist, "1X" & $Separator)
GUICtrlSetData($mylist, @CRLF & $Separator)

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
WEnd

darendeli · Mesaj gönderen **darendeli** » 08 Mar 2019, 21:58

@BlueLife
Yok Yine Programa Ekleyemedim Consoldaki Yazıları aktarmam gerek siteden cektigi icin siteden consola duzgun yazdırıyor ama listeye alamıyorum

Kod: Tümünü seç

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include "_UskinLibrary.au3"





Global $Obj_Error = ObjEvent("AutoIt.Error", "_Obj_Error") ;Obj hataları...
Global $hostteam,$hostteam1
Global Const $Separator = Chr(124)
Global Const $Space = Chr(32)
Opt("GUIDataSeparatorChar", $Separator)
_Uskin_LoadDLL()
_Uskin_Init(@ScriptDir&"\MX5.msstyles")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darendeli İddaa Analiz ARACI", 785, 554, 308, 137)

$Label3 = GUICtrlCreateLabel("Program Analizi Yaparken Neleri Dikkate Alıyor", 440, 16, 335, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("✔ Takımlar arasındaki tüm maçlar", 440, 56, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label5 = GUICtrlCreateLabel("✔ Ev sahibi takımın son maçları", 440, 96, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label6 = GUICtrlCreateLabel("✔ Konuk takımın son maçları", 440, 136, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label7 = GUICtrlCreateLabel("✔ Ev sahibi takımın avantajı", 440, 176, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label8 = GUICtrlCreateLabel("✔ Şampiyonada takımların puan durumu", 440, 216, 295, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label9 = GUICtrlCreateLabel("✔ Ülke liginin derecesi (farklı takım ülkeleri)", 440, 256, 375, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label10 = GUICtrlCreateLabel("✔ Takımların sıralaması", 440, 296, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label11 = GUICtrlCreateLabel("✔ Bahisçiler katsayısı (varsa)", 440, 336, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)


$Checkbox2 = GUICtrlCreateCheckbox("Herzaman Üstte", 155, 0, 100, 19)
GUICtrlSetState(-1, $GUI_CHECKED)
WinSetOnTop($Form1, "", 1)
$herzamanustte = 0 ;herzaman üstte Secenegi icin Gerekli Bölüm
$List1 = GUICtrlCreateList("", 8, 40, 209, 318 , BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetLimit(-1, 1000)
$List2 = GUICtrlCreateList("", 224, 40, 209, 318, BitOR($WS_BORDER, $WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("EVSAHİBİ TAKIMLAR", 32, 16, 110, 17)
$Label2 = GUICtrlCreateLabel("DEPLASMAN TAKIMLARI", 256, 16, 130, 17)
$Button1 = GUICtrlCreateButton("Maçkolik Geniş İDDAA", 626, 368, 149, 41)
$Button2 = GUICtrlCreateButton("Statarea", 8, 368, 149, 41)
$Button3 = GUICtrlCreateButton("Footballplatform", 164, 368, 149, 41)
$Button5 = GUICtrlCreateButton("Clevertips", 320, 368, 149, 41)
$Button4 = GUICtrlCreateButton("IY/MS", 472, 368, 149, 41)
$Button6 = GUICtrlCreateButton("TempoBet", 472, 420, 149, 41)
$Button7 = GUICtrlCreateButton("JojoBet", 626, 420, 149, 41)
$Button8 = GUICtrlCreateButton("TempoBet Twitter", 472, 472, 149, 41)
$Button9 = GUICtrlCreateButton("Bahsine Twitter", 626, 472, 149, 41)
$Input1 = GUICtrlCreateInput("", 12, 424, 209, 21)
$Input2 = GUICtrlCreateInput("", 254, 424, 209, 21)
$Button10 = GUICtrlCreateButton("MAÇI ANALİZ ET", 8, 465, 460, 49)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetParts($StatusBar1, "ANALİZ SONUCU..")
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 35)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_EvsahibiTakimlariListele()
_DeplasmanTakimlariListele()


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

		Case $List1
                GUICtrlSetData($Input1, StringTrimLeft(GUICtrlRead($List1),1))
		Case $List2
                GUICtrlSetData($Input2, StringTrimLeft(GUICtrlRead($List2),1))
		Case $Button1
			ShellExecute("http://www.mackolik.com/Genis-Iddaa-Programi")
		Case $Button2
			ShellExecute("http://www.statarea.com/predictions")
		Case $Button3
			ShellExecute("https://footballplatform.com/football-predictions/")
		Case $Button4
			ShellExecute("https://www.forebet.com/en/football-tips-and-predictions-for-today")
		Case $Button5
			ShellExecute("https://www.clevertips.net/")
		Case $Button6
			ShellExecute("https://www.73tempobet.com/")
		Case $Button7
			ShellExecute("https://www.jojobet80.com/tr/sports/")
		Case $Button8
			ShellExecute("https://twitter.com/tempobet")
		Case $Button9
			ShellExecute("https://twitter.com/bahsinecom")


	Case $Checkbox2
			If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
            $herzamanustte = Not $herzamanustte
			 WinSetOnTop( $Form1, '', $herzamanustte )
           Else
           WinSetOnTop( $Form1, '',$herzamanustte)
           EndIf

	EndSwitch
WEnd



Func _EvsahibiTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags = _IETagNameGetCollection($oIE, "td")
For $oTag In $oTags
     If String ($oTag.GetAttribute("class")) == "column-2" Then
   If not @error then	$hostteam = $oTag.innerTEXT
		 If $hostteam <> '' Then
		ConsoleWrite ($hostteam & @CRLF)
  GUICtrlSetData($List1 ,$hostteam)
		 EndIf

EndIf
Next
_IEQuit($oIE)
EndFunc

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags1 = _IETagNameGetCollection($oIE, "td")
For $oTag1 In $oTags1
     If String ($oTag1.GetAttribute("class")) == "column-3" Then
	  If not @error then	$hostteam1 = $oTag1.innerTEXT
	  If $hostteam1 <> '' Then
  ConsoleWrite ($hostteam1& @CRLF)
	GUICtrlSetData($List2 ,$hostteam1)
 Else
Global $hostteam1 = 'BOŞ'
For $i = 0 to UBound($List2) -1
   $hostteam1 = $hostteam1 & "," & $List2[$i]
Next
ConsoleWrite($hostteam1 & @CRLF)
 If($hostteam1 = GUICtrlRead($Separator)) Then
GUICtrlSetData($List2, $hostteam1)

EndIf
EndIf
 EndIf
Next
_IEQuit($oIE)
EndFunc




Func _Obj_Error()
	;Obj hatalarında burdaya ek kodlar girebilirsin.
EndFunc   ;==>_Obj_Error

Mesaj gönderen **BlueLife** » 09 Mar 2019, 10:05

@darendeli

Programın benim sistemimde çalışmıyor. Yani kontrol etme şansım yok. Farkettiğim hatalara gelirsek, $Separator eklememişsin. Ayrıca list için belirlediğin sitil eksik olabilir BitOR($WS_BORDER, $WS_VSCROLL).

Örnek olarak aşağıdaki gibi bir kısımı el alalım.
ConsoleWrite ($hostteam & @CRLF)
GUICtrlSetData($List1 ,$hostteam)

Aşağıdaki gibi olmalı.
GUICtrlSetData($List1 ,$hostteam & $Separator)

Eğer boş yazı gelme ihtimali varsa aşağıdaki gibi ek olabilir. Tabi bunlar sadece örnek.
If StringLen($hostteam) = 0 Then $hostteam = @CRLF
GUICtrlSetData($List1 ,$hostteam & $Separator)

Ayrıca list için kullandığın değişkeni ($List2) aşağıdaki gibi bir yerde kullandığın kısım hatalı! Çok fazla incelemedim!

For $i = 0 to UBound($List2) -1
$hostteam1 = $hostteam1 & "," & $List2[$i]
Next

darendeli · Mesaj gönderen **darendeli** » 09 Mar 2019, 19:11

Benim Yapamadıgım Yer Burası Sizin Dediginiz Gibi Düzenledim Yinede Aynı Olanları Ekletemedim...Stilide Kaldırdım

Kod: Tümünü seç

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags1 = _IETagNameGetCollection($oIE, "td")
For $oTag1 In $oTags1
     If String ($oTag1.GetAttribute("class")) == "column-3" Then
	  If not @error then	$hostteam1 = $oTag1.innerTEXT
	  If $hostteam1 <> '' Then
  ConsoleWrite ($hostteam1& @CRLF)
	GUICtrlSetData($List2 ,$hostteam1)
 Else
ConsoleWrite($hostteam1 & @CRLF)
If StringLen($hostteam1) = 0 Then $hostteam1 = "BOŞ"
GUICtrlSetData($List2 ,$hostteam1 & $Separator)
EndIf
 EndIf

Next
_IEQuit($oIE)
EndFunc

Mesaj gönderen **BlueLife** » 10 Mar 2019, 10:10

ConsoleWrite komutları düzgün çıkıyorsa GUICtrlCreateList için kullandığın sitil eski olabilir. Misal deneme olarak
$List2 = GUICtrlCreateList("", 224, 40, 209, 318, BitOR(0x00100000,0x00200000, 0x0800, 0x1000, 0x0080,0x0100))

Kod: Tümünü seç

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
	Local $oTags1 = _IETagNameGetCollection($oIE, "td")
	For $oTag1 In $oTags1
		If String ($oTag1.GetAttribute("class")) == "column-3" Then
		If not @error then	$hostteam1 = $oTag1.innerTEXT
			If $hostteam1 <> '' Then
				ConsoleWrite ($hostteam1& @CRLF)
				GUICtrlSetData($List2 ,$hostteam1 & $Separator)
			Else
				ConsoleWrite($hostteam1 & @CRLF)
				If StringLen($hostteam1) = 0 Then $hostteam1 = "BOŞ"
				GUICtrlSetData($List2 ,$hostteam1 & $Separator)
			EndIf
		EndIf
	Next
	_IEQuit($oIE)
EndFunc

Tabi GUICtrlCreateList yerine GUICtrlCreateEdit te kullanabilirsin. Scitedeki ilgili kısım zaten edit alanı! Kolay gelsin...

darendeli · Mesaj gönderen **darendeli** » 10 Mar 2019, 18:49

@BlueLife Yardımların icin Sagol Sonunda Tamamlayabildim Sorun Çözüldü

darendeli · Mesaj gönderen **darendeli** » 18 Mar 2019, 00:40

GUICtrlSetData($List2 ,$hostteam1 & $Separator) <===== Bu Bolumde $hostteam1 ile cektigim veriler 2 bolumden olusuyor IY ve MS olarak aynı veriyi cektigi icin alt alta sıralanıyor bunu 1. veriyi cekti &"/"& ayrıldı ve 2. Veriyi Cekti Seklinde Nasıl kodlamamız Gerekli $hostteam1&"/"&$hostteam1 Denedim Aynı Yazıları Ayırarak Ekliyor Yapamadım 1. veri ve 2. veri Ayrı aslında

Kod: Tümünü seç

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
	Local $oTags1 = _IETagNameGetCollection($oIE, "td")
	For $oTag1 In $oTags1
		If String ($oTag1.GetAttribute("class")) == "column-3" Then
		If not @error then	$hostteam1 = $oTag1.innerTEXT
			If $hostteam1 <> '' Then
				ConsoleWrite ($hostteam1& @CRLF)
				GUICtrlSetData($List2 ,$hostteam1 & $Separator)
			Else
				ConsoleWrite($hostteam1 & @CRLF)
				If StringLen($hostteam1) = 0 Then $hostteam1 = "BOŞ"
				GUICtrlSetData($List2 ,$hostteam1 & $Separator)
			EndIf
		EndIf
	Next
	_IEQuit($oIE)
EndFunc

Mesaj gönderen **BlueLife** » 18 Mar 2019, 17:58

@darendeli

Anlatmak istediğini malesef anlamadım

GUICtrlCreateList konusunda veriler alfebetik olarak sıralanıyor diyorsan, list için stiller eksiktir. Ilk mesajımda örnek vardı. Sistemimde verdiğin ie komutları düzgün çalışmıyor. Verdiğin kod bloklarını deneme şamsım yok. Farklı bir şeyden bahsediyorsan string (misal test 123) örneği vererek yapmak istediğini anlatmalısın

darendeli · Mesaj gönderen **darendeli** » 18 Mar 2019, 22:58

Örnek vererek anlatayım burda $hostteam1 siteden verileri cekiyor Verilerin Hepsi Aynı Clasa baglı Yani Hepsini Alt alta Listeliyor Ama Benim istedigim 1. i cekti / ile ayırıp 2. yanına Yazmak Yani X/X gibi sonra Alt Satıra gecmek ve bu hep boyle gidecek ilk bastaki sorunları cozdum sadece bu sorun kaldı
GUICtrlSetData($List2 ,$hostteam1 & $Separator)

Mesaj gönderen **BlueLife** » 19 Mar 2019, 10:42

@darendeli

Yapmak istediğini tam anlamadım lakin aşağıdakini bir dene. Böyle bir şey mi yapmak istiyordun.

Kod: Tümünü seç

Func _DeplasmanTakimlariListele()
	Local $StoreData = "",$hostteam1,$oTag1
	Local $oIE = _IECreate("http://slybet.net/",0,0)
	Local $oTags1 = _IETagNameGetCollection($oIE, "td")
	For $oTag1 In $oTags1
		If String ($oTag1.GetAttribute("class")) == "column-3" Then
		If not @error then	$hostteam1 = $oTag1.innerTEXT
		
			If StringLen($hostteam1) = 0 Then $hostteam1 = "BOŞ"
			If StringLen($StoreData) = 0 Then
				$StoreData = $hostteam1
			Else
				$StoreData &= " / " & $hostteam1
				
				ConsoleWrite($StoreData & @CRLF)				
				GUICtrlSetData($List2 ,$StoreData & $Separator)				
				$StoreData = ""
			EndIf		
		EndIf
	Next
	_IEQuit($oIE)
EndFunc

darendeli · Mesaj gönderen **darendeli** » 19 Mar 2019, 17:21

@BlueLife Çok dogru Anlamışşınız Teşşekkürler Sorun Çözüldü

darendeli · Mesaj gönderen **darendeli** » 22 Mar 2019, 01:51

Biliyorum Fazla Soru oldu Ama bu son simdi Bunları cozduk bir sıkıntı daha var
If String ($oTag1.GetAttribute("class")) == "type1" Or $oTag1.GetAttribute("class") == "type3" Or $oTag1.GetAttribute("class") == "type4" Or $oTag1.GetAttribute("class") == "type5" Then
X/X cekecegi veri adları 5 tane oldugundan boyle duzenledim bundan dolayımı oldu anlamadım....
örnek
1. veri ve 2. ceriyi cekti X/X yazdıgı listeye 2 kere ekliyor aynı sonucu

Mesaj gönderen **BlueLife** » 22 Mar 2019, 10:53

@darendeli

Ilgili _IE komutları sistemimde çalşmadığı için deneme şansım yok. Lakin listede tıpatıp aynı veriler varsa ve aynı verilerin eklenmesini istemiyorsan aşağıdaki örneği denersin.

Kod: Tümünü seç

Func _DeplasmanTakimlariListele()
	Local $StrAll = @CRLF
	Local $StoreData = "",$hostteam1,$oTag1
	Local $oIE = _IECreate("http://slybet.net/",0,1)
	Local $oTags1 = _IETagNameGetCollection($oIE, "td")
	For $oTag1 In $oTags1
		If String ($oTag1.GetAttribute("class")) == "column-3" Then
		If not @error then	$hostteam1 = $oTag1.innerTEXT

			If StringLen($hostteam1) = 0 Then $hostteam1 = "BOŞ"
			If StringLen($StoreData) = 0 Then
				$StoreData = $hostteam1
			Else
				$StoreData &= " / " & $hostteam1
				If StringInStr($StrAll,@CRLF & $StoreData & @CRLF) = 0 Then
					$StrAll &= $StoreData & @CRLF

					ConsoleWrite($StoreData & @CRLF)
					GUICtrlSetData($List2 ,$StoreData & $Separator)
				EndIf
				$StoreData = ""
			EndIf
		EndIf
	Next
	_IEQuit($oIE)
EndFunc

Çözüldü - ConsolWrite Aynı Yazıları Liste Aktarmak

Çözüldü - ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: ConsolWrite Aynı Yazıları Liste Aktarmak

Re: Çözüldü - ConsolWrite Aynı Yazıları Liste Aktarmak

Re: Çözüldü - ConsolWrite Aynı Yazıları Liste Aktarmak