Wątek: [MortScript] Przydatne skrypty, rozwiązania.

[mobi]

jest jakaś pozioma wersja, ale nie próbowałem jej.

[globalbus]

dałoby się zrobić, tylko moim zdaniem trochę bez sensu, czas załączania się tego wynalazku jest za długi raczej.

[Chester]

nom niestety...

[globalbus]

Pierwsza wersja konfiguratora dla bsweather, przydałoby się jeszcze wczytywanie ustawień (tylko korekta, bez wpisywania wszystkiego od nowa), wybór ścieżki zapisu (która byłaby zapamiętywana)

Kod: [Zaznacz]

number = Input("Wpisz liczbę obsługiwanych miast","BSWeather",Yes,NO,1)
if(number>0)
for licznik = 1 to number
city[licznik] = Input("Wpisz nazwę miasta numer "&licznik, "BSWeather",NO,NO)
id[licznik] = Input("Wpisz kod miasta numer "&licznik, "BSWeather",NO,NO)
Next
header = "<?xml version=""1.0"" encoding=""utf-8"" ?><BSWeather>"
footer = "<Error>Show</Error><Proxy>0</Proxy></BSWeather>"
details=""
for licznik = 1 to number
details=details&"<City><Name>"&city[licznik]&"</Name><Code>"&id[licznik]&"</Code><Unit>metric</Unit></City>"
Next
output=header&details&footer

WriteFile("bsweather.xml",output, NO, "utf-8")
else
exit
endif

[mobi]

 

[globalbus]

hmm, mortscript obsługuje tablice n wymiarowe, o czym manual nie wspomina. To otwiera nowe możliwości, lubię tworzyć takie abstrakcyjne konstrukcje

[mr_deimos]

hmm, mortscript obsługuje tablice n wymiarowe, o czym manual nie wspomina. To otwiera nowe możliwości, lubię tworzyć takie abstrakcyjne konstrukcje

No tak, jedni lubią sobie strzelić piwko albo pograć przed snem, a inni wolą stworzyć n-wymiarowe tablice
http://piosenka.o.smutnym.programiscie.patrz.pl

Sorry za ale nie mogłem się powstrzymać

[globalbus]

cóż, zawsze byłem uważany za dziwaka
kontynuując druga wersja konfiguratora dla bsweather (bardziej inteligentna)

Kod: [Zaznacz]

tryb = Choice("BSWeather","Wybierz tryb","Edycja",0,"Edycja", "Nowy")
If(tryb=1)
If(RegValueExists("HKLM","Software\BSWeather","path" ))
dir = RegRead("HKLM","Software\BSWeather","path" )
else
dir = SelectDirectory( BSWeather, "wybierz ścieżkę zapisu pliku konfiguracyjnego")
endif
input = ReadFile( dir&"\bsweather.xml")
split1 = Split( input, "City>")
coe1a = ElementCount(split1)
number = (coe1a-1)/2
for index=1 to number
loop = index*2
split[1] = Split( split1[loop], "Name>")
length = length(split[1][2])
name[index] = substr(split[1][2], 0, length-2)
split[2] = Split( split1[loop], "Code>")
length = length(split[2][2])
code[index] = substr(split[2][2], 0, length-2)
Next
name[0] = ""
code[0] = ""
elseif(tryb=2)
dir = SelectDirectory( BSWeather, "wybierz ścieżkę zapisu pliku konfiguracyjnego")
coe1a=1
number=1
else
exit
endif
number = Input("Wpisz liczbę obsługiwanych miast","BSWeather",Yes,NO,number)
if(number>0)
for licznik = 1 to number
if(licznik > (coe1a-1)/2)
index = 0
else
index = licznik
endif
city[licznik] = Input("Wpisz nazwę miasta numer "&licznik, "BSWeather",NO,NO,name[index])
id[licznik] = Input("Wpisz kod miasta numer "&licznik, "BSWeather",NO,NO, code[index])
Next
header = "<?xml version=""1.0"" encoding=""utf-8"" ?><BSWeather>"
footer = "<Error>Show</Error><Proxy>0</Proxy></BSWeather>"
details=""
for licznik = 1 to number
details=details&"<City><Name>"&city[licznik]&"</Name><Code>"&id[licznik]&"</Code><Unit>metric</Unit></City>"
Next
output=header&details&footer
RegWriteString("HKLM","Software\BSWeather","path",dir)
WriteFile(dir&"\bsweather.xml",output, NO, "utf-8")
else
exit
endifSugestie, zgłoszenie błędu mile widziane.

[mobi]

dojrzewam powoli do nowego tematu dla HS++, i wtedy nie omieszkam tego użyć.

[globalbus]

zastanawiam się nad możliwością użycia podobnego algorytmu do edycji startapp z tematów hs++. Tylko kwestia czy to ma sens, czy nie lepiej napisać natywną aplikację do wm używającą wbudowanego parsera xml (msxml3.dll)

[mobi]

jest taki skrypt do dodawanie programów do lunchera, użyty był w TL, można by go tylko zmodyfikować

[globalbus]

tzn widziałem te skrypty, ale moim zdaniem konstrukcja jest trochę dziwna
etykiety siedzą w rejestrach i są zczytywane przez hs++, a startup jest ustawiony na sztywne linki, które właśnie skrypt kopiuje ze wskazań użytkownika


dodano: Wtorek, 13 Styczeń 2009, 18:30
homescreen toggle

Kod: [Zaznacz]

If(RegRead("HKLM","SOFTWARE\Microsoft\Today\Items\HomeScreen PlusPlus","enabled"))
RegWriteDword("HKLM","SOFTWARE\Microsoft\Today\Items\HomeScreen PlusPlus","enabled",0)
else
RegWriteDword("HKLM","SOFTWARE\Microsoft\Today\Items\HomeScreen PlusPlus","enabled",1)
endif
Redrawtoday

[mobi]

czy to wyłącza HS++ z todaya? tak na szybko?

[globalbus]

włącza/wyłącza w zależności od aktualnego stanu wtyczki
da się przerobić dla każdej wtyczki takie coś


dodano: Piątek, 30 Styczeń 2009, 11:38
wersja nr 3 z lock na liczbę miast. Zalecana wersja uruchamiacza to 4.1

Kod: [Zaznacz]

#config
lock = 1

tryb = Choice("BSWeather","Wybierz tryb","Edycja",0,"Edycja", "Nowy")
If(tryb=1)
If(RegValueExists("HKLM","Software\BSWeather","path" ))
dir = RegRead("HKLM","Software\BSWeather","path" )
else
dir = SelectDirectory( BSWeather, "wybierz ścieżkę zapisu pliku konfiguracyjnego")
endif
input = ReadFile( dir&"\bsweather.xml",99999 ,"unicode")
split1 = Split( input, "City>")
coe1a = ElementCount(split1)
number = (coe1a-1)/2
for index=1 to number
loop = index*2
split[1] = Split( split1[loop], "Name>")
length = length(split[1][2])
name[index] = substr(split[1][2], 0, length-2)
split[2] = Split( split1[loop], "Code>")
length = length(split[2][2])
code[index] = substr(split[2][2], 0, length-2)
Next
name[0] = ""
code[0] = ""
elseif(tryb=2)
dir = SelectDirectory( BSWeather, "wybierz ścieżkę zapisu pliku konfiguracyjnego")
coe1a=1
number=1
else
exit
endif
number = Input("Wpisz liczbę obsługiwanych miast","BSWeather",Yes,NO,number)
If(number>lock and not lock=0)
number = lock
endif
if(number>0)
for licznik = 1 to number
if(licznik > (coe1a-1)/2)
index = 0
else
index = licznik
endif
city[licznik] = Input("Wpisz nazwę miasta numer "&licznik, "BSWeather",NO,NO,name[index])
id[licznik] = Input("Wpisz kod miasta numer "&licznik, "BSWeather",NO,NO, code[index])
Next
header = "<?xml version=""1.0"" encoding=""unicode"" ?><BSWeather>"
footer = "<Error>Show</Error><Proxy>0</Proxy></BSWeather>"
details=""
for licznik = 1 to number
details=details&"<City><Name>"&city[licznik]&"</Name><Code>"&id[licznik]&"</Code><Unit>metric</Unit></City>"
Next
output=header&details&footer
RegWriteString("HKLM","Software\BSWeather","path",dir)
WriteFile(dir&"\bsweather.xml",output, NO, "unicode")
else
exit
endif

[mobi]

znam to