Ronnie McGrog mcgr0g
mcgr0g
/ playlist.m3u
Created
November 29, 2023 00:16
— forked from g3rhard/playlist.m3u
Create playlist file or list streams for radiorecord.ru stations
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #EXTM3U | |
| #PLAYLIST:Playlist Name | |
| #EXTINF:-1,1970 | |
| http://air.radiorecord.ru:805/1970_64 | |
| #EXTINF:-1,1980 | |
| http://air.radiorecord.ru:805/1980_64 | |
| #EXTINF:-1,2step | |
| http://air.radiorecord.ru:805/2step_64 | |
| #EXTINF:-1,ansh | |
| http://air.radiorecord.ru:805/ansh_64 |
mcgr0g
/ PrepForSpell.bas
Created
November 26, 2016 22:48
макрос исправления неверного распознавания языка для word. Подробнее по ссылке https://blogs.technet.microsoft.com/tasush/2011/03/09/347/
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 'Attribute VB_Name = «PrepForSpell» | |
| Sub PrepForSpell() | |
| 'Attribute PrepForSpell.VB_Description = «Macro created 31.01.2002 by nnnnnn» | |
| 'Attribute PrepForSpell.VB_ProcData.VB_Invoke_Func = «Normal.NewMacros.PrepForSpell» | |
| ' | |
| ' PrepForSpell Macro | |
| ' Macro created 31.01.2002 by nnnnnn | |
| ' Adoption for Word 2003/2007/ by Alexey Murzov | |
| ' | |
| With Selection |
mcgr0g
/ unLockVba.bas
Last active
August 29, 2015 14:13
mine method to reuse http://stackoverflow.com/a/16176557
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| '================= | |
| 'protection module | |
| '================= | |
| Option Explicit | |
| 'need for unLockVba | |
| Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ | |
| (ByVal lpClassName As String, ByVal lpWindowName As String) As Long | |
| Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ | |
| (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _ |
mcgr0g
/ blogger table of contents
Last active
August 29, 2015 13:56
replacement for default "blog archive" http://j.mp/NzDDiL to read more in russian
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <!--more--><br /> | |
| <script type="text/javascript"> | |
| //<![CDATA[ | |
| var postTitle=new Array();var postUrl=new Array();var postMp3=new Array();var postDate=new Array();var postYear=new Array();var postMonth=new Array();var postYearMonth=new Array();var postYearMonth2=new Array();var postTanggal=new Array();var postLabels=new Array();var postBaru=new Array();var sortBy="titleasc";var tocLoaded=false;var numChars=250;var postFilter="";var numberfeed=0;var month2=["Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь"];function loadtoc(a){function b(){if("entry" in a.feed){var d=a.feed.entry.length;numberfeed=d;ii=0;for(var h=0;h<d;h++){var m=a.feed.entry[h];var e=m.title.$t;var l=m.published.$t.substring(0,10);var p=m.published.$t.substring(5,7);var g=m.published.$t.substring(8,10);var n=month2[parseInt(p,10)-1]+" "+m.published.$t.substring(0,4);var c="/"+m.published.$t.substring(0,4)+"_"+p+"_01_archive.html";var j;for(var f=0;f<m.link.length;f++){if(m.link[f].rel=="alt |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| " конфиг для редактирования | |
| set backspace=indent,eol,start " Allow backspace to remove indents, newlines and old text | |
| set showmatch " показывать первую парную скобку после ввода второй | |
| set matchpairs+=<:> " показывать совпадающие скобки для HTML-тегов | |
| set clipboard=unnamed " во избежание лишней путаницы использовать системный буфер обмена вместо буфера Vim | |
| " конфиг отображения | |
| set textwidth=80 " норм ширина это 80 | |
| set colorcolumn=+1 " а 81 символ подкрашиваем | |
| highlight ColorColumn ctermbg=DarkGrey |