Autoit – Janoš Šikloši

Konvertovanje selektovanog teksta iz latinice u ćirilicu

U procesu prevođenja jednog site-a sa latinice na ćirilicu brzinski sam napravio program koji pritiskom na F2 taster prevodi selektovani tekst iz Srpske latinice u ćirilicu (selektovani tekst se iskopira u clipboard emuliranjem ctrl+c, zatim se smešta u promenjivu, svako slovo se zameni, promenjiva se vraća u clipboard i simulira se slanje tastera ctrl+v odnosno paste). Program nema nikakva podešavanja pa ako nekom treba da se prevođenje izvrši pritiskom na neki drugi taster moraće da skine autoit promeni hotkey i iskompajlira program. Možda će još nekom biti koristan pa…

latucir

Program je pisan u autoit script-u na dnu članka se nalazi download link sa athivom koja sadrži autoit izvorni kod, kompajliran program i ikonu.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Downloads\Vdoconvertor-Circle.ico
#AutoIt3Wrapper_Outfile=latucir.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#NoTrayIcon
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <TrayConstants.au3> ; Required for the $TRAY_CHECKED and $TRAY_ICONSTATE_SHOW constants.
HotKeySet("{F2}", "Ffunkcija")
Opt("TrayMenuMode", 3)
 Local $idAbout = TrayCreateItem("About")
TrayCreateItem("") ; Create a separator line.
Local $idExit = TrayCreateItem("Exit")
TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu.

While 1
	Switch TrayGetMsg()
		case $idExit
			ExitLoop
		Case $idAbout
			MsgBox(0,"Zamena latinice u ćirilicu","Pritiskom na F2 konvertuje selektovani tekst iz latinice u ćirilicu")
	EndSwitch

WEnd

Func Ffunkcija()
	Send("{CTRLDOWN}c{CTRLUP}")
	$m = ClipGet()
	$m = StringReplace($m, "lj", "љ", 0, 1)
	$m = StringReplace($m, "dž", "џ", 0, 1)
	$m = StringReplace($m, "nj", "њ", 0, 1)
	$m = StringReplace($m, "dj", "ђ", 0, 1)
	$m = StringReplace($m, "Lj", "Љ", 0, 1)
	$m = StringReplace($m, "Dž", "Џ", 0, 1)
	$m = StringReplace($m, "Nj", "Њ", 0, 1)
	$m = StringReplace($m, "Dj", "Ђ", 0, 1)
	$m = StringReplace($m, "LJ", "Љ", 0, 1)
	$m = StringReplace($m, "DŽ", "Џ", 0, 1)
	$m = StringReplace($m, "NJ", "Њ", 0, 1)
	$m = StringReplace($m, "DJ", "Ђ", 0, 1)
	$m = StringReplace($m, "e", "е", 0, 1)
	$m = StringReplace($m, "r", "р", 0, 1)
	$m = StringReplace($m, "t", "т", 0, 1)
	$m = StringReplace($m, "z", "з", 0, 1)
	$m = StringReplace($m, "u", "у", 0, 1)
	$m = StringReplace($m, "i", "и", 0, 1)
	$m = StringReplace($m, "o", "о", 0, 1)
	$m = StringReplace($m, "p", "п", 0, 1)
	$m = StringReplace($m, "š", "ш", 0, 1)
	$m = StringReplace($m, "đ", "ђ", 0, 1)
	$m = StringReplace($m, "a", "а", 0, 1)
	$m = StringReplace($m, "s", "с", 0, 1)
	$m = StringReplace($m, "d", "д", 0, 1)
	$m = StringReplace($m, "f", "ф", 0, 1)
	$m = StringReplace($m, "g", "г", 0, 1)
	$m = StringReplace($m, "h", "х", 0, 1)
	$m = StringReplace($m, "j", "ј", 0, 1)
	$m = StringReplace($m, "k", "к", 0, 1)
	$m = StringReplace($m, "l", "л", 0, 1)
	$m = StringReplace($m, "č", "ч", 0, 1)
	$m = StringReplace($m, "ć", "ћ", 0, 1)
	$m = StringReplace($m, "ž", "ж", 0, 1)
	$m = StringReplace($m, "c", "ц", 0, 1)
	$m = StringReplace($m, "v", "в", 0, 1)
	$m = StringReplace($m, "b", "б", 0, 1)
	$m = StringReplace($m, "n", "н", 0, 1)
	$m = StringReplace($m, "m", "м", 0, 1)
	$m = StringReplace($m, "E", "Е", 0, 1)
	$m = StringReplace($m, "R", "Р", 0, 1)
	$m = StringReplace($m, "T", "Т", 0, 1)
	$m = StringReplace($m, "Z", "З", 0, 1)
	$m = StringReplace($m, "U", "У", 0, 1)
	$m = StringReplace($m, "I", "И", 0, 1)
	$m = StringReplace($m, "O", "О", 0, 1)
	$m = StringReplace($m, "P", "П", 0, 1)
	$m = StringReplace($m, "Š", "Ш", 0, 1)
	$m = StringReplace($m, "Đ", "Ђ", 0, 1)
	$m = StringReplace($m, "A", "А", 0, 1)
	$m = StringReplace($m, "S", "С", 0, 1)
	$m = StringReplace($m, "D", "Д", 0, 1)
	$m = StringReplace($m, "F", "Ф", 0, 1)
	$m = StringReplace($m, "G", "Г", 0, 1)
	$m = StringReplace($m, "H", "Х", 0, 1)
	$m = StringReplace($m, "J", "Ј", 0, 1)
	$m = StringReplace($m, "K", "К", 0, 1)
	$m = StringReplace($m, "L", "Л", 0, 1)
	$m = StringReplace($m, "Č", "Ч", 0, 1)
	$m = StringReplace($m, "Ć", "Ћ", 0, 1)
	$m = StringReplace($m, "Ž", "Ж", 0, 1)
	$m = StringReplace($m, "C", "Ц", 0, 1)
	$m = StringReplace($m, "V", "В", 0, 1)
	$m = StringReplace($m, "B", "Б", 0, 1)
	$m = StringReplace($m, "N", "Н", 0, 1)
	$m = StringReplace($m, "M", "М", 0, 1)
	ClipPut($m)
	Send("{CTRLDOWN}v{CTRLUP}")
EndFunc   ;==>Ffunkcija

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Icon=..\Downloads\Vdoconvertor-Circle.ico

#AutoIt3Wrapper_Outfile=latucir.exe

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#NoTrayIcon

#include <AutoItConstants.au3>

#include <MsgBoxConstants.au3>

#include <TrayConstants.au3> ; Required for the $TRAY_CHECKED and $TRAY_ICONSTATE_SHOW constants.

HotKeySet("{F2}", "Ffunkcija")

Opt("TrayMenuMode", 3)

Local $idAbout = TrayCreateItem("About")

TrayCreateItem("") ; Create a separator line.

Local $idExit = TrayCreateItem("Exit")

TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu.

While 1

Switch TrayGetMsg()

case $idExit

ExitLoop

Case $idAbout

MsgBox(0,"Zamena latinice u ćirilicu","Pritiskom na F2 konvertuje selektovani tekst iz latinice u ćirilicu")

EndSwitch

WEnd

Func Ffunkcija()

Send("{CTRLDOWN}c{CTRLUP}")

$m = ClipGet()

$m = StringReplace($m, "lj", "љ", 0, 1)

$m = StringReplace($m, "dž", "џ", 0, 1)

$m = StringReplace($m, "nj", "њ", 0, 1)

$m = StringReplace($m, "dj", "ђ", 0, 1)

$m = StringReplace($m, "Lj", "Љ", 0, 1)

$m = StringReplace($m, "Dž", "Џ", 0, 1)

$m = StringReplace($m, "Nj", "Њ", 0, 1)

$m = StringReplace($m, "Dj", "Ђ", 0, 1)

$m = StringReplace($m, "LJ", "Љ", 0, 1)

$m = StringReplace($m, "DŽ", "Џ", 0, 1)

$m = StringReplace($m, "NJ", "Њ", 0, 1)

$m = StringReplace($m, "DJ", "Ђ", 0, 1)

$m = StringReplace($m, "e", "е", 0, 1)

$m = StringReplace($m, "r", "р", 0, 1)

$m = StringReplace($m, "t", "т", 0, 1)

$m = StringReplace($m, "z", "з", 0, 1)

$m = StringReplace($m, "u", "у", 0, 1)

$m = StringReplace($m, "i", "и", 0, 1)

$m = StringReplace($m, "o", "о", 0, 1)

$m = StringReplace($m, "p", "п", 0, 1)

$m = StringReplace($m, "š", "ш", 0, 1)

$m = StringReplace($m, "đ", "ђ", 0, 1)

$m = StringReplace($m, "a", "а", 0, 1)

$m = StringReplace($m, "s", "с", 0, 1)

$m = StringReplace($m, "d", "д", 0, 1)

$m = StringReplace($m, "f", "ф", 0, 1)

$m = StringReplace($m, "g", "г", 0, 1)

$m = StringReplace($m, "h", "х", 0, 1)

$m = StringReplace($m, "j", "ј", 0, 1)

$m = StringReplace($m, "k", "к", 0, 1)

$m = StringReplace($m, "l", "л", 0, 1)

$m = StringReplace($m, "č", "ч", 0, 1)

$m = StringReplace($m, "ć", "ћ", 0, 1)

$m = StringReplace($m, "ž", "ж", 0, 1)

$m = StringReplace($m, "c", "ц", 0, 1)

$m = StringReplace($m, "v", "в", 0, 1)

$m = StringReplace($m, "b", "б", 0, 1)

$m = StringReplace($m, "n", "н", 0, 1)

$m = StringReplace($m, "m", "м", 0, 1)

$m = StringReplace($m, "E", "Е", 0, 1)

$m = StringReplace($m, "R", "Р", 0, 1)

$m = StringReplace($m, "T", "Т", 0, 1)

$m = StringReplace($m, "Z", "З", 0, 1)

$m = StringReplace($m, "U", "У", 0, 1)

$m = StringReplace($m, "I", "И", 0, 1)

$m = StringReplace($m, "O", "О", 0, 1)

$m = StringReplace($m, "P", "П", 0, 1)

$m = StringReplace($m, "Š", "Ш", 0, 1)

$m = StringReplace($m, "Đ", "Ђ", 0, 1)

$m = StringReplace($m, "A", "А", 0, 1)

$m = StringReplace($m, "S", "С", 0, 1)

$m = StringReplace($m, "D", "Д", 0, 1)

$m = StringReplace($m, "F", "Ф", 0, 1)

$m = StringReplace($m, "G", "Г", 0, 1)

$m = StringReplace($m, "H", "Х", 0, 1)

$m = StringReplace($m, "J", "Ј", 0, 1)

$m = StringReplace($m, "K", "К", 0, 1)

$m = StringReplace($m, "L", "Л", 0, 1)

$m = StringReplace($m, "Č", "Ч", 0, 1)

$m = StringReplace($m, "Ć", "Ћ", 0, 1)

$m = StringReplace($m, "Ž", "Ж", 0, 1)

$m = StringReplace($m, "C", "Ц", 0, 1)

$m = StringReplace($m, "V", "В", 0, 1)

$m = StringReplace($m, "B", "Б", 0, 1)

$m = StringReplace($m, "N", "Н", 0, 1)

$m = StringReplace($m, "M", "М", 0, 1)

ClipPut($m)

Send("{CTRLDOWN}v{CTRLUP}")

EndFunc ;==>Ffunkcija

latucir.zip

HotKeys – Vrući Dugmići

Obzirom da veoma često koristim par programa trebao mi je neki program koji će mi omogućiti da ih pokrećem koristeći prečicu na tastaturi. Tražio sam po internetu ali nisam našao ništa jednostavno što bi mi odgovaralo, pa sam odlučio da napravim jednostavan program koji bi omogućio dodavanje prečice za pokretanje programa.

Program je veoma jednostavan. Prilikom pokretanja pojavi se ikona programa u taskbar-u (pored sata) i desnim klikom na tu ikonu se otvara meni.

klikom na Edit Hotkeys se otvara prozor u kome možete izmeniti prečice.

Na slici se vidi jedna prečica za notepad. Ctrl je označen i za prečicu unet „1“ što znači da kada pritisnete kombinaciju Ctrl+1 na tastaturi otvoriće se notepad. Da bi sačuvali izmene kliknite na „Apply“ (ukoliko samo zatvorite prozor prečice neće biti snimljene). Program kreira .ini file u direktorijumu u kome se nalazi i u njemu su sačuvane sve prečice. Prilikom instalacije možete da izaberete jezik programa ili alternativno možete da preuzmete program bez instalacije. Ukoliko imate neki predlog/kritiku slobodno ostavite komentar ;).

HotKeys-install – Instalacija programa

HotKeys-sr – srpska verzija programa (samo exe file)

HotKeys-en – engleska verzija programa (samo exe file)

Hotkeys-src – source (autoitscript)

Arduino, LCD Keyboard Shield i LCD Smartie vremenska prognoza

Nakon što mi je stigao LCD Keyboard shield potražio sam gotove primere na internetu i naišao na LCD Smartie skeč za arduino koji omogućava da preko Arduina i LCD Keyboard Shield-a prikazujete tekst uz pomoć programa LCD Smartie. Kada se u arduino ubaci ovaj skeč na ekranu se pojavi tekst **LCD SMARTIE** on Arduino. Nakon toga je potrebno u LCD Smartie programu podesiti za plugin matrix.dll, COM port na kome se nalazi arduino i brzinu 19200bps recimo „COM11,19200“ i displey treba podesiti da bude 2×16.

Sve je proradilo iz prvog i na LCD-u je moguće prikazati razne informacije koje omogućava LCD Smartie. Vreme od kada je startovan računar, trenutno vreme i datum, podatke iz winamp-a… Dok sam se igrao sa raznim prikazima video sam i da postoji mogućnost da se prikaže tekst iz tekstualnog fajla i odmah mi je palo na pamet da bih mogao da iskoristim program koji sam pre koristio za prikaz vremenskih prilika na web strani. Hidro-metorološki zavod ima svoju wap stranu koja je zgodna jer nema puno html tag-ova i lako se sredi u čiste podatke. Prepravio sam program i napravio da snima u tekstualni fajl koji LCD Smarti očitava i prikazuje na LCD-u. Da bi pokrenuli program potreban je autoitscript koji je besplatan (kao i LCD Smartie).

#include <Array.au3>
Dim $stanica, $datum, $temperatura, $pritisak, $pravacv, $brzinav, $vlaznost, $opis

While 1
	$stanica = "13278" ;ID meteoroloske stanice izvor: http://www.hidmet.gov.rs/latin/wap/osmotreni_srbija.php
	InetGet("http://www.hidmet.gov.rs/latin/wap/osmotreni_stanica.php?mo_id=" & $stanica, @ScriptDir & "\temp.log") ;prezimanje podataka i upis u lokalnu datoteku
	read_data_file() ;pozivanje funkcije za obradu podataka
	write_data() ;funkcija za upis podataka
	Sleep(1800000) ;30minuta pauze do sledeceg preuzimanja (hidmet.gov.rs osvežava podatke na svakih sat vremena)
WEnd

Func read_data_file()
	$file = FileOpen(@ScriptDir & "\temp.log")
	While 1
		Local $line = FileReadLine($file)
		If @error = -1 Then ExitLoop
		$line = StringReplace($line, "Č", "C", 0, 1)
		$line = StringReplace($line, "č", "c", 0, 1);srpski karakteri nemogu da se ispšu na LCD-u
		$line = StringReplace($line, "Ć", "c", 0, 1)
		$line = StringReplace($line, "ć", "c", 0, 1)
		$line = StringReplace($line, "Đ", "Dj", 0, 1)
		$line = StringReplace($line, "đ", "dj", 0, 1)
		$line = StringReplace($line, "Ž", "Z", 0, 1)
		$line = StringReplace($line, "ž", "z", 0, 1)
		$line = StringReplace($line, "Š", "S", 0, 1)
		$line = StringReplace($line, "š", "š", 0, 1)
		$line = StringReplace($line, "Č", "C", 0, 1)
		If StringInStr($line, "stanice") Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringRight($line, StringLen($line) - 32)
			$stanica = $line
		EndIf
		If StringInStr($line, "vreme:") Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringReplace($line, "vreme: ", "")
			$line = StringReplace($line, " ", @CRLF)
			$datum = $line
		EndIf
		If StringInStr($line, "Temperatura:") Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringReplace($line, "Temperatura: ", "")
			$line = StringLeft($line, StringLen($line) - 3)
			$temperatura = $line
		EndIf
		If StringInStr($line, "Pritisak:") Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringReplace($line, "Pritisak: ", "")
			$line = StringLeft($line, StringLen($line) - 3)
			$pritisak = $line
		EndIf
		If StringInStr($line, "Pravac vetra:") Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringReplace($line, "tiho", "0")
			$line = StringReplace($line, "Pravac vetra: ", "")
			$pravacv = $line
		EndIf
		If StringInStr($line, "Brzina vetra:") Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")

			$line = StringReplace($line, "Brzina vetra: ", "")
			$line = StringLeft($line, StringLen($line) - 4)
			$brzinav = $line
		EndIf
		If StringInStr($line, "Vla", 1) Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringReplace($line, "Vlažnost: ", "")
			$line = StringLeft($line, StringLen($line) - 2)
			$vlaznost = $line
		EndIf
		If StringInStr($line, "Opis vremena:", 1) Then
			$line = StringReplace($line, "<b>", "")
			$line = StringReplace($line, "</b>", "")
			$line = StringReplace($line, "<br/>", "")
			$line = StringReplace($line, "Opis vremena: ", "")
			$opis = $line
		EndIf
	WEnd
	FileClose($file)
	FileDelete(@ScriptDir & "\temp.log")
EndFunc   ;==>read_data_file

Func write_data()
	$output = FileOpen(@ScriptDir & "\vreme.txt", 2) ;upis teksta u datoteku... , 2 briše prethondi sadržaj
	FileWriteLine($output, $stanica & @CRLF & $datum & @CRLF & $temperatura & @CRLF & $pritisak & @CRLF & $pravacv & @CRLF & $brzinav & @CRLF & $vlaznost & @CRLF & $opis)
	FileClose($output)
EndFunc   ;==>write_data

100

#include <Array.au3>

Dim $stanica, $datum, $temperatura, $pritisak, $pravacv, $brzinav, $vlaznost, $opis

While 1

$stanica = "13278" ;ID meteoroloske stanice izvor: http://www.hidmet.gov.rs/latin/wap/osmotreni_srbija.php

InetGet("http://www.hidmet.gov.rs/latin/wap/osmotreni_stanica.php?mo_id=" & $stanica, @ScriptDir & "\temp.log") ;prezimanje podataka i upis u lokalnu datoteku

read_data_file() ;pozivanje funkcije za obradu podataka

write_data() ;funkcija za upis podataka

Sleep(1800000) ;30minuta pauze do sledeceg preuzimanja (hidmet.gov.rs osvežava podatke na svakih sat vremena)

WEnd

Func read_data_file()

$file = FileOpen(@ScriptDir & "\temp.log")

While 1

Local $line = FileReadLine($file)

If @error = -1 Then ExitLoop

$line = StringReplace($line, "Č", "C", 0, 1)

$line = StringReplace($line, "č", "c", 0, 1);srpski karakteri nemogu da se ispšu na LCD-u

$line = StringReplace($line, "Ć", "c", 0, 1)

$line = StringReplace($line, "ć", "c", 0, 1)

$line = StringReplace($line, "Đ", "Dj", 0, 1)

$line = StringReplace($line, "đ", "dj", 0, 1)

$line = StringReplace($line, "Ž", "Z", 0, 1)

$line = StringReplace($line, "ž", "z", 0, 1)

$line = StringReplace($line, "Š", "S", 0, 1)

$line = StringReplace($line, "š", "š", 0, 1)

$line = StringReplace($line, "Č", "C", 0, 1)

If StringInStr($line, "stanice") Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringRight($line, StringLen($line) - 32)

$stanica = $line

EndIf

If StringInStr($line, "vreme:") Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "vreme: ", "")

$line = StringReplace($line, " ", @CRLF)

$datum = $line

EndIf

If StringInStr($line, "Temperatura:") Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "Temperatura: ", "")

$line = StringLeft($line, StringLen($line) - 3)

$temperatura = $line

EndIf

If StringInStr($line, "Pritisak:") Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "Pritisak: ", "")

$line = StringLeft($line, StringLen($line) - 3)

$pritisak = $line

EndIf

If StringInStr($line, "Pravac vetra:") Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "tiho", "0")

$line = StringReplace($line, "Pravac vetra: ", "")

$pravacv = $line

EndIf

If StringInStr($line, "Brzina vetra:") Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "Brzina vetra: ", "")

$line = StringLeft($line, StringLen($line) - 4)

$brzinav = $line

EndIf

If StringInStr($line, "Vla", 1) Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "Vlažnost: ", "")

$line = StringLeft($line, StringLen($line) - 2)

$vlaznost = $line

EndIf

If StringInStr($line, "Opis vremena:", 1) Then

$line = StringReplace($line, "", "")

$line = StringReplace($line, "", "")

$line = StringReplace($line, " ", "")

$line = StringReplace($line, "Opis vremena: ", "")

$opis = $line

EndIf

WEnd

FileClose($file)

FileDelete(@ScriptDir & "\temp.log")

EndFunc ;==>read_data_file

Func write_data()

$output = FileOpen(@ScriptDir & "\vreme.txt", 2) ;upis teksta u datoteku... , 2 briše prethondi sadržaj

FileWriteLine($output, $stanica & @CRLF & $datum & @CRLF & $temperatura & @CRLF & $pritisak & @CRLF & $pravacv & @CRLF & $brzinav & @CRLF & $vlaznost & @CRLF & $opis)

FileClose($output)

EndFunc ;==>write_data

da bi izabrali svoj grad potrebno je da $stanica = 13278 (Kragujevac) promenite u ID Vašeg grada. U trenutku pisanja ovo su bili aktuelni podaci

13180=B. Karlovac
13274=Beograd
13289=Crni Vrh
13384=Ćuprija
13397=Dimitrovgrad
13174=Kikinda
13378=Kopaonik
13278=Kragujevac
13376=Kraljevo
13383=Kruševac
13382=Kuršumlija
13389=Leskovac
13262=Loznica
13295=Negotin
13388=Niš
13168=Novi Sad
13067=Palić
13370=Požega
13266=S. Mitrovica
13279=S. Palanka
13369=Sjenica
13160=Sombor
13285=V. Gradište
13269=Valjevo
13489=Vranje
13392=Zaječar
13367=Zlatibor
13173=Zrenjanin

Kada pokrenete program će napraviti tekstualni fajl vreme.txt.

Kragujevac
CETVRTAK
19.06.2012
14:00
31
995.6
SE
4
35
Vedro

Kragujevac

CETVRTAK

19.06.2012

14:00

995.6

Vedro

Nakon toga je potrebno da u LCD Smartie-u dodate podatak iz tog teksta. $File(C:\kg.txt,5) će pročitati vrednost iz petog reda i u ovom slučaju to će biti trenutna temperatura odnosno 18. Podaci su 1.Naziv stanice 2.Dan merenja 3.Datum merenja 4.Čas merenja 5.Temperatura 6. Pritisak vazduha 7. Pravac Vetra 8.Brzina vetra u m/s 9.Vlažnost vazduha u % 10.Opis vremena. Moj ekran izgleda ovako:

T:$File(C:\vreme.txt,5)C    P:$File(C:\vreme.txt,6)
   $File(C:\vreme.txt,10) Vetar:$File(C:\vreme.txt,8)m/s $File(C:\vreme.txt,7)

1 2	T:$File(C:\vreme.txt,5)C P:$File(C:\vreme.txt,6) $File(C:\vreme.txt,10) Vetar:$File(C:\vreme.txt,8)m/s $File(C:\vreme.txt,7)

na snimku možete videti kako to izgleda na ekranu