#include <String.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <File.au3>
Global $adresy, $kody, $tel, $nazwy, $dane, $licznik
AutoItSetOption("SendKeyDelay", 0)

HotKeySet("{ESC}", "Zakoncz")

$plik = FileOpen("data3.txt")
$dane = FileRead($plik)
$adresy = _StringBetween($dane, "adres:", ";")
$tel = _StringBetween($dane, "tel:", ";")
$nazwy = _StringBetween($dane, "nazwa:", ";")
$kody = _StringBetween($dane, "kod:", ";")
FileClose($plik)

$plik=FileOpen("licznik.txt")
$licznik=FileRead($plik)
$licznik+=1
FileClose($plik)
$plik=FileOpen("licznik.txt", 2)
FileWrite($plik, $licznik)
FileClose($plik)

	MouseClick("primary", 1040, 744, 1, 0)
	MouseClick("primary", 810, 424, 1, 0)
	MouseClick("primary", 439, 179, 1, 0)
	Send($nazwy[$licznik])
	Sleep(50)
	MouseClick("primary", 384, 246, 1, 0)
	Send($tel[$licznik])
	MouseClick("primary", 605, 212, 1, 0)
	MouseClick("primary", 585, 462, 1, 0)
	MouseClick("primary", 299, 628, 1, 0)
	Send($adresy[$licznik])
	MouseClick("primary", 263, 661, 1, 0)
	Send($kody[$licznik])
	MouseClick("primary", 329, 695, 1, 0)
	Send("Poznań")
	MouseClick("primary", 523, 14, 1, 0)
	MouseClick("primary", 407, 46, 1, 0)
	Send("^a")
	Send($nazwy[$licznik])
	Send("{ENTER}")

ConsoleWrite($licznik & "piec")

#DodawanieTablicyNaKoncuLinii(GooglowanieKodow(64), "data3.txt")

Func GooglowanieKodow($ile)
	Local $tablica[$ile]
	For $i=0 To $ile-1
	MouseClick("primary", 292, 46, 1, 0)
	Send("^a")
	Send($adresy[$i] & " " & "Poznań", 1)
	Send("{ENTER}")
	MouseMove(216,622, 0)
	Sleep(1200)
	MouseDown("primary")
	MouseMove(170,623, 0)
	MouseUp("primary")
	Send("^c")
	$tablica[$i]=ClipGet()
	Sleep(200)
	ConsoleWrite($i & ': ' & $tablica[$i] & @CRLF)
	Next
	Return $tablica
EndFunc

Func DodawanieTablicyNaKoncuLinii($tablica, $plik)
	Local $tablica2
	_FileReadToArray($plik, $tablica2)
	FileMove($plik, $plik & '.old')
	For $i = 0 To 63
		$tablica2[$i+1] &= 'kod:' & $tablica[$i] & ';'
	Next
	_FileWriteFromArray($plik, $tablica2, 1)
EndFunc

Func UsuwanieTabulacji($plik)
	$pliczek = FileOpen($plik)
	$tekst = FileRead($pliczek)
	$tekst = StringReplace($tekst, @TAB, "")
	FileClose($pliczek)
	FileMove($plik, $plik & '.old')
	FileWrite($plik, $tekst)
EndFunc

Func DodawanieSrednikaNaKoncu($plik)
	Local $tablica
	_FileReadToArray($plik, $tablica)
	FileMove($plik, $plik & '.old')
	FileDelete($plik)
	For $i = 1 To $tablica[0]
		$tablica[$i] &= ";"
	Next
	_FileWriteFromArray($plik, $tablica, 1)
EndFunc

Func Zakoncz()
	Exit
EndFunc