sobota, 6 kwietnia 2013

VBS - Proste notatki oparte o plik tekstowy

Prosty VBScript tworzący notatki przechowywane w pliku tekstowym. Pomysł został opisany w książce: "Lifehacker: The Guide to Working Smarter, Faster, and Better".

Skrypt należy zapisać w pliku z rozszerzeniem .vbs. Po uruchomieniu pojawi się okienko:


sciezka = "notes.txt"
notka = InputBox("Dodaj do "&sciezka&":", "Moje notatki")
set fso = CreateObject("Scripting.FileSystemObject")
set plik_tekstowy = fso.OpenTextFile(sciezka, 8, True)
plik_tekstowy.WriteLine Now & " " & notka
plik_tekstowy.Close

Po wprowadzeniu notatek pojawi się w bieżącym katalogu ze skryptem plik notes.txt o przykładowej zawartości

2013-04-06 16:02:52 ab
2013-04-06 16:07:42 kup bilety do kina
2013-04-06 16:07:59 zrob zakupy
2013-04-06 16:08:29 umyj auto
2013-04-06 16:08:40 idź do bankomatu

Brak komentarzy:

Prześlij komentarz