Ĺadny brzuch
Mam taki kawałek kodu:
Sub SEND_onclick() If (Stopnie.value<=14) then S1.value = "O w morde! "&Stopnie.value&" - tyle stopni to nie tak dużo." End if If (Stopnie.value > 14 AND Stopnie.value <= 30) then S1.value = "Super! "&Stopnie.value&" stopni to już lepiej." End if If (Stopnie.value > 30 AND Stopnie.value <= 90) then S1.value = "Gorąco, parzy mnie cholerka." End if If (Stopnie.value > 90 AND Stopnie.value <= 130) then S1.value = "Halo! Ja się topie!" End if If (Stopnie.value > 130 AND Stopnie.value <= 170) then S1.value = "W trakcie pieczenia w "&Stopnie.value&" stopniach, proszę czekać..." End if If (Stopnie.value > 170 AND Stopnie.value <= 240) then S1.value = "Popiół na stołeczku, tralalalala." End if If (Stopnie.value > 240 AND Stopnie.value <= 270) then S1.value = "Dym za dymem, dajcie lodu! Przy tych "&Stopnie.value&" stopniach nie można wytrzymać!" End if If (Stopnie.value > 270 AND Stopnie.value <= 300) then S1.value = "R.I.P" End if End sub Sub RESET_CC_onclick() Stopnie.value = "0" End sub Sub RESET_RESULT_onclick() S1.value = "Cze. Wpisz stopnie, a ja skomentuje.;P" End sub Sub RAP_onclick() Stopnie.value = "0" S1.value = "Cze. Wpisz stopnie, a ja skomentuje.;P" End sub
Chcę, żeby wartości wpisane z pól S1 i Stopnie były zapisywane do pliku txt w znajdującym się tym samym katalogu. A jeśli można opcjonalnie żeby to co jest w pliku się nadpisywało gdy skrypt chce zapisać nowe wartości. Czy ktoś zna taki skrypt i czy wogóle jest taka możliwość?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Sub SEND_onclick() If (Stopnie.value<=14) then S1.value = "O w morde! "&Stopnie.value&" - tyle stopni to nie tak dużo." End if If (Stopnie.value > 14 AND Stopnie.value <= 30) then S1.value = "Super! "&Stopnie.value&" stopni to już lepiej." End if If (Stopnie.value > 30 AND Stopnie.value <= 90) then S1.value = "Gorąco, parzy mnie cholerka." End if If (Stopnie.value > 90 AND Stopnie.value <= 130) then S1.value = "Halo! Ja się topie!" End if If (Stopnie.value > 130 AND Stopnie.value <= 170) then S1.value = "W trakcie pieczenia w "&Stopnie.value&" stopniach, proszę czekać..." End if If (Stopnie.value > 170 AND Stopnie.value <= 240) then S1.value = "Popiół na stołeczku, tralalalala." End if If (Stopnie.value > 240 AND Stopnie.value <= 270) then S1.value = "Dym za dymem, dajcie lodu! Przy tych "&Stopnie.value&" stopniach nie można wytrzymać!" End if If (Stopnie.value > 270 AND Stopnie.value <= 300) then S1.value = "R.I.P" End if End sub Sub RESET_CC_onclick() Stopnie.value = "0" End sub Sub RESET_RESULT_onclick() S1.value = "Cze. Wpisz stopnie, a ja skomentuje.;P" End sub Sub RAP_onclick() Stopnie.value = "0" S1.value = "Cze. Wpisz stopnie, a ja skomentuje.;P" End sub
Chcę, żeby wartości wpisane z pól S1 i Stopnie były zapisywane do pliku txt w znajdującym się tym samym katalogu. A jeśli można opcjonalnie żeby to co jest w pliku się nadpisywało gdy skrypt chce zapisać nowe wartości. Czy ktoś zna taki skrypt i czy wogóle jest taka możliwość?