{"id":39,"date":"2012-04-20T11:48:42","date_gmt":"2012-04-20T09:48:42","guid":{"rendered":"http:\/\/www2.emiwa.pl\/?p=39"},"modified":"2025-06-04T09:44:54","modified_gmt":"2025-06-04T07:44:54","slug":"vbs-zapis-ci-agu-znakow-do-pliku-z-jednoczesna-filtracja","status":"publish","type":"post","link":"https:\/\/www.emiwa.pl\/?p=39","title":{"rendered":"VBS – zapis ci\u0105gu znak\u00f3w do pliku z jednoczesn\u0105 jego filtracj\u0105."},"content":{"rendered":"


\nFragment kodu, kt\u00f3ry powsta\u0142 z potrzeby chwili pod konkretne zastosowanie. Mam w\u0142asny skrypt kt\u00f3ry filtruje mi poczt\u0119 przychodz\u0105c\u0105 (g\u0142\u00f3wnie przychodz\u0105c\u0105, cho\u0107 wychodz\u0105ca nie jest pomijana) z tego co ja sam uznaje za spam. Na razie jest to filtracja po adresach i temacie wiadomo\u015bci. Ale ju\u017c tu wida\u0107 czasem olbrzymi\u0105 skuteczno\u015b\u0107 filtru.<\/p>\n

Oczywi\u015bcie serwer pocztowy o kt\u00f3rym mowa to MS Exchenge.<\/p>\n

Filtr o wszystkim co robi informuje mnie poprzez loga. No i wszystko dzia\u0142a\u0142o pi\u0119knie a\u017c do momentu kiedy nie pojawi\u0142y si\u0119 maile pisane cyrylic\u0105. Szybka analiza problemu wskaza\u0142a, \u017ce skrypt „wysypuje” si\u0119 przy zapisie do loga tekstu pisanego cyrylic\u0105. Poniewa\u017c ci\u0105gle brak mi czasu na szybko doda\u0142em kawa\u0142ek kodu, kt\u00f3ry na dysk zapisuje tylko znaki ASCII do 128 znaku, pozosta\u0142e znaki zamienia na spacje. Wprawdzie trac\u0119 w ten spos\u00f3b r\u00f3wnie\u017c polskie znaki diakrytyczne ale w logu mi to nie przeszkadza za to filtr znowu podj\u0105\u0142 swoj\u0105 walk\u0119 ze spamem.<\/p>\n

Poniewa\u017c to tylko fragment kodu wi\u0119c zak\u0142adam, \u017ce ka\u017cdy wie jak otworzy\u0107 plik do zapisu.<\/p>\n

\n
for i=1 to len(txt)             'zak\u0142adam \u017ce w zmiennej txt jest tekst do przefiltrowania \r\n \u00a0 con = Asc(mid(txt,i,1))\u00a0\u00a0\u00a0\u00a0\u00a0 ' wycinamy kolejne znaki i konwertujemy do liczby\r\n\u00a0 if con > 128 or con < 40 Then ' znaki ASCII wi\u0119ksze od 128 lub mniejsze od 40 \r\n\u00a0\u00a0\u00a0\u00a0 file.Write \" \"\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0  ' zast\u0119pujemy spacj\u0105\r\n\u00a0 else\r\n\u00a0\u00a0\u00a0\u00a0 file.Write chr(con)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0  ' nie spe\u0142niaj\u0105ce warunku zapisujemy jako znak\r\n\u00a0 end if\r\nnext<\/pre>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[43,61,42,44],"class_list":["post-39","post","type-post","status-publish","format-standard","hentry","category-newbie","tag-ms-exchange","tag-skrypty","tag-vbs","tag-windows"],"_links":{"self":[{"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=\/wp\/v2\/posts\/39","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=39"}],"version-history":[{"count":3,"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=\/wp\/v2\/posts\/39\/revisions"}],"predecessor-version":[{"id":110,"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=\/wp\/v2\/posts\/39\/revisions\/110"}],"wp:attachment":[{"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=39"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=39"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.emiwa.pl\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=39"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}