Just checking

[makro_writer]

function dzień_jak_codzień() As Boolean

Dim p As post
Dim f As forum

'post, forum zmienne obiektowe zdefiniowane przez użytkownika

data As Date
dziś = CDate(Now())

Set f = "Forum Aktualności"

For Each p In f.posts
'sprawdź dzisiejsze posty na FA
data = p.data
If data = dziś Then
autor = p.autor
If autor = "Krzyś52" Then
dzień_jak_codzień = True
End If
End If
Next p

If dzień_jak_co_dzień Then
MsgBox "Kretyn znowu nadaje"
End If

End Function

[Gość: pollak]

Ja tam Krzysia opisałbym tak:

perl -le 's%%02).4& +2:93AP^4/^+2\%49n\\. %%y%P ->^A%2`-~ 5%%s%%$_%ee'


Potrafisz rozszyfrować ten skrypt?

Nie.

[makro_writer]

Tylko VB po amatorsku.

[Gość: pollak]

To jednolinijkowiec w Perl-u. Wypisuje tekst (zwykła funkcja printf)
W sumie można to jeszcze bardziej 'uprościć' ale ja się na tym nie znam
zbytnio.

[makro_writer]

Gość portalu: pollak napisał(a):

> To jednolinijkowiec w Perl-u. Wypisuje tekst (zwykła funkcja printf)
> W sumie można to jeszcze bardziej 'uprościć' ale ja się na tym nie znam
> zbytnio.

Czy to ma jakiś związek z Perłą?

[Gość: pollak]

Z Perłą nie

Raczej z obleśnym kodem Perla (to nie ja wymyśliłem ten styl, ja tylko
zaadaptowałem to co wymyślili inni).