Jakie makro

%REM="   Menu początkowe   "%-
%REM="---------------------"%-
%IF:'%_1'='':'%-
%_dialog=#%XMP_MultiDlg("Dołączanie załączników do wiadomości", %-
"Wybierz opcję jaką chcesz wykonać", "0", %-
"ID1$X$dodaj załączniki do wiadomości|%-
ID2$$dodaj treść ze schowka jako załącznik wiadomości|%-
ID3$$dodaj pliki jako archiwum|%-
ID4$X$generuj informacje fingerprint dla dołączonych widomości|%-
ID5$X$dodaj do tresci informacje o dołączonych plikach", %-
"2", "Potwierdź", "Anuluj")#'%-
%-
%REM="   Suma kontrolna   "%-
%REM="--------------------"%-
%IF:'%SETPATTREGEXP="ID4"%REGEXPMATCH(%_dialog)'<>'':'%-
%_crcpar=#%XMP_MsgBox("Czy sumy kontrolne CRC mają być dołączane w %-
postaci pliku Attachments.sfv? Jeśli nie, to będą podane jako lista
plików","Ustawienia sum kontrolnych", "yn",1)#%-
'%-
%REM="   Dodawanie załączników   "%-
%REM="---------------------------"%-
%IF:'%SETPATTREGEXP="ID1"%REGEXPMATCH(%_dialog)'<>'':'%-
%_rezultatadd=~%-
%XMP_Until(#odp1#,#N#,#%-
%%_FL1=`%%_FL1|%%XMP_DlgOpen(1,"Dodaj załączniki...","C:\")`%-
%%_odp1=`%%XMP_MsgBox("Czy chcesz dodać jeszcze jakieś %-
pliki?","Pytanie","yn")`%-
#)%-
%_FC1=#%XMP_StrItemCnt("%_FL1","|")#%-
%IF:$%_FC1$>$0$:$%XMP_For("x","1","%_FC1","%-
%%ATTACHFILE(#%%XMP_StrItem(`%%_FL1`,`|`,`%%_x`#)%-
")$%-
~%-
'%-
%REM="   Dodawanie zawartości schowka jako załącznika   "%-
%REM="--------------------------------------------------"%-
%IF:#%SETPATTREGEXP="ID2"%REGEXPMATCH(%_dialog)#<>##:#%-
%_rezultatadd=~%-
%_filepath='%XMP_Envir("TEMP")\%-
%XMP_DlgInput("Nazwa pliku:",".txt")'%-
%IF:'%XMP_FileExist("%_filepath")'='1':'%_choice=`%-
%XMP_MsgBox("Plik %_filepath już isnieje!\nJeśli naciśniesz %-
""Przerwij"", szablon przestanie działać, a plik pozostanie %-
bez zmian.\nJeśli naciśniesz ""Ponów próbę"", jego zawartość %-
zostanie skasowana i zastąpiona zawartością schowka.\nJeśli %-
naciśniesz ""Zignoruj"", zawartość schowka zostanie dopisana %-
do pliku, a plik zostanie dołączony do wiadomości.","%-
Co robić?","ari")`':'%-
%_Tmp=`%XMP_FileAddLn("%_filepath","%CLIPBOARD")`%-
%ATTACHFILE(%_filepath)'%-
%IF:'%_choice'='I':'%-
%_Tmp=`%XMP_FileAddLn("%_filepath","%CLIPBOARD")`%-
%ATTACHFILE(%_filepath)'%-
%IF:'%_choice'='R':'%-
%_Tmp=`%XMP_FileDel("%_filepath")`%-
%_Tmp=`%XMP_FileAddLn("%_filepath","%CLIPBOARD")`%-
%ATTACHFILE(%_filepath)'%-
~%-
#%-
%REM="   Dodawanie plików do archiwum i dołączanie do wiadomości   "%-
%REM="-------------------------------------------------------------"%-
%IF:&%SETPATTREGEXP="ID3"%REGEXPMATCH(%_dialog)&<>&&:&%-
%_rezultatarch=~%-
%REM="...........WPISAĆ WŁAŚCIWĄ ŚCIEŻKĘ!!!........................"%-
%_ArchProg='%XMP_FileShort("c:\program files\7-zip\7z.exe")'%-
%REM="_____________________________________________________________"%-
%_FileListPath='%XMP_Envir("TEMP")\archiv.txt'%-
%_ArchFormat='%XMP_MultiDlg("Format archiwum","W jakim %-
formacie ma być załącznik?",1,%-
"zip$X$zip|7z$$7z|gzip$$gzip|bzip2$$bzip2|tar$$tar",0)'%-
%IF:$%_ArchFormat$<>$$:$%-
%_FileName='%XMP_DlgInput("Nazwa pliku:","zalacznik")'$%-
%IF:$%_FileName$<>$$:$%-
%_ArchFilePath='%XMP_Envir("TEMP")\%-
%_FileName.%_ArchFormat'%-
%XMP_Until(#ok#,#1#,#%-
%%_wybor()%-
%%IF:'%%XMP_FileExist("%%_ArchFilePath")'='1':'%%_wybor=`%-
%%XMP_MsgBox("Archiwum o tej nazwie już istnieje!\n%-
Jeśli naciśniesz ""Zmień nazwę"" będziesz mógł zmienić nazwę %-
tworzonego archiwum.\n%-
Jeśli naciśniesz ""Zastąp"", jego zawartość zostanie %-
skasowana i zastąpiona wybraną zawartością.\n%-
Jeśli naciśniesz ""Dopisz"", wybrane pliki zostaną dopisane %-
do pliku archiwum.","Co robić?","cny,b1,ma",1,%-
"Zmień nazwę","Zastąp","Dopisz")`':'%%_ok="1"'%-
%%IF:'%%_wybor'='N':'%%XMP_FileDel("%%_ArchFilePath")%%_ok="1"'%-
%%IF:'%%_wybor'='C':'%%_ok="1"'%-
%%IF:'%%_wybor'='Y':'%%_ArchFilePath=`%%XMP_Envir("TEMP")\%-
%%XMP_DlgInput("Nazwa pliku:","zalacznik_").%%_ArchFormat`'%-
#)%-
%-
%XMP_Until(#odp#,#N#,#%-
%%_FileList='%%_FileList|%%XMP_DlgOpen("1", "Wskaż pliki do %-
archiwizacji...")'%-
%%_odp='%%XMP_MsgBox("Czy chcesz dodać jeszcze jakieś %-
pliki?","Pytanie","yn")'%-
#)$%-
%IF:$%SETPATTREGEXP='\|(.)'%REGEXPMATCH='%_FileList'$<>$$:$%-
%_FileList='%XMP_StrRepl(`%XMP_StrTr("%_FileList",%-
"ĄąĆćĘꣳŃńÓ󌜏źŻż","¤ĄŹ&#8224;¨&#169;ťˆăäŕ˘&#8212;˜Ť&#171;˝ľ")`,`|`,`
`)'%-
%XMP_FileDel("%_FileListPath")%-
%XMP_FileAddLn("%_FileListPath","%_FileList")%-
%XMP_RunCmd("%_ArchProg a -t%_ArchFormat %-
%_ArchFilePath @%_FileListPath",0,60000)%-
%ATTACHFILE(%_ArchFilePath)%-
%XMP_FileDel("%_FileListPath")%-
$%-
~%-
&%-
%REM="   Lista dodanych załączników   "%-
%REM="--------------------------------"%-
%IF:"%_FL1"<>"":"%_FL='%SETPATTREGEXP=`^\|?(.*)\z`%REGEXPMATCH=`%_FL1|`'"%-
%IF:"%_filepath"<>"":"%_FL='%_FL%_filepath|'"%-
%IF:"%_ArchFilePath"<>"":"%_FL='%_FL%_ArchFilePath|'"%-
%_FC="%XMP_StrItemCnt('%_FL','|')"%-
%IF:`%SETPATTREGEXP="ID5"%REGEXPMATCH(%_dialog)`<>``:`%-
Załączniki:
%XMP_For("x","1","%CALC='%_FC-1'","%-
%%_FN1=#%%XMP_StrItem('%%_FL','|','%%_x')#%-
%%_FS1=#%%XMP_FileSize('%%_FN1') Byte, %-
%%XMP_FileName('%%_FN1','T')#%-
%%XMP_StrIns('    ','%%_x','R')) %-
%%XMP_FileName('%%_FN1') (%%_FS1)%%IF:'%%_crcpar'='N':'%-
%%SETPATTREGEXP=~.*?(\s.*?)\n~%%REGEXPMATCH(%%XMP_CRC32(FN,~%%_FN1~))%-
'
")%-
%REM="Załącznik-archiwum i jego zawartość"%-
%IF:$%_ArchFilePath$<>$$:$%-
%_FileList="%_FileList
"%-
%_FCZ='%XMP_StrCount("%_FileList","
")'%-
   Pliki w dołączonym archiwum %XMP_FileName("%_ArchFilePath", "N"):
%XMP_For("y","2","%_FCZ","%-
%%_FN=#%%XMP_StrItem('%%_FileList','
','%%_y')#%-
%%_FS=#%%XMP_FileSize('%%_FN') Byte, %-
%%XMP_FileName('%%_FN','T')#%-
%%XMP_StrIns('      ','%%CALC=#%%_y-1#','R')) %-
%%XMP_FileName('%%_FN') (%%_FS)%-
%%IF:'%%_crcpar'='N':'%-
%%SETPATTREGEXP=#.*?(\s.*?)\n#%%REGEXPMATCH(%%XMP_CRC32(FN,#%%_FN#))%-
'
")%-
$%-
`:`%-
%REM='  Same sumy kontrolne - bez opisu plików, ale w treści
wiadomości'%-
%IF:'%_crcpar'='N':'%-
Sumy kontrolne:
%IF:$%_FC$>$0$:$%-
%XMP_CRC32(FN,#%_FL#)%-
$%-
%IF:$%_ArchFilePath$<>$$:$%-
%_FileList="%_FileList
"%-
%_FC=&%XMP_StrCount("%_FileList","
")&%-
   Pliki w dołączonym archiwum %XMP_FileName("%_ArchFilePath", "N")
%XMP_For("y","2","%_FC","%-
%%_FN=#%%XMP_StrItem(&%%_FileList&,&
&,&%%_y&)#%-
   %%XMP_CRC32(FN,#%%_FN#)%-
")%-
$%-
'%-
`%-
%REM=&   Sumy kontrolne w pliku Attachments.sfv   &%-
%IF:&%_crcpar&=&Y&:&%-
%XMP_CRC32("FNA","%_FL")%-
%IF:`%SETPATTREGEXP="ID5"%REGEXPMATCH(%_dialog)`<>``:`%-
%XMP_StrIns('    ','%CALC="%_x+1"','R')) Attachments.sfv%-
`&%-