coherent
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
<span class="ucoz-forum-post" id="ucoz-forum-post-14558" edit-url=""><span style="color:blue"><span style="font-size:12pt;">Сортировка секций INI файла в алфавитном порядке</span></span><br /><b><span style="color:red">Используется скрипт</span> <a class="link" href="http://tc-image.3dn.ru/forum/9-346-1076-16-1333500845" rel="nofollow" target="_blank">Functions.vbs</a></b> - Скрипт с различными Функциями, которые можно использовать в других скриптах<br /><br /><!--BBhide--><span class="UhideBlockL"><a href="javascript://" onclick="new _uWnd('LF',' ',-250,-110,{autosize:1,closeonesc:1,resize:1},{url:'/index/40'});return false;">Доступно только для пользователей</a></span><span class="UhideBlock"><!--uzcode--><div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><!--uzc-->' SortSectionINI.vbs<br />'======================== Описание =====================================<br />' Сортировка секций INI файла в алфавитном порядке<br />'======================= Параметры ======================================<br />' 1-й параметр: <br />' 1 - сортировать выделенные секции, если ничего не выделено, то сортируется все секции <br />' File - полный путь к INI файлу в котором необходима сортировка секций<br />'======================== Примеры ======================================<br />' -"Сортировать выделенные секции активного INI файла" Call("Scripts::Main", 1, "SortSectionINI.vbs", `"1"`)<br />' -"Сортировать секции C:\Test.ini" Call("Scripts::Main", 1, "SortSectionINI.vbs", `"C:\Test.ini"`)<br /><br />' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\<br /><br />' Автор: Аверин Андрей<br />' Версия: 1.0 (26.01.2016)<br />' Mail: Averin-And@yandex.ru<br />' Site: http://tc-image.3dn.ru/forum/9-1010-14558-16-1453766841<br />'===========================================================================<br />With WScript Cnt = .Arguments.Count<br /> If Cnt = 0 Then .Quit<br /> P = .Arguments(0)<br />End With<br /><br />With AkelPad .Include("Functions.vbs") : K = 1 : S = 0<br /> Select Case P<br /> Case "1"<br /> SetRedraw .GetEditWnd, False<br /> Text = .GetSelText(3)<br /> If Len(Text) = 0 Then<br /> Text = .GetTextRange(0, -1, 3)<br /> S = 1<br /> End If<br /> If Len(Text) = 0 Then EndRedraw<br /> Case Else<br /> File = GetPath(P)<br /> If Not FFExists(File, 1) Then Wscript.Quit<br /> aFile = ReadInfoFile(File,4)<br /> If aFile(0) = -4 Then Wscript.Quit<br /> Text = aFile(3)<br /> K = 0<br /> End Select<br /><br /> aSection = GetInfoINI(Text, 7, "")<br /> If Not IsArray(aSection) Then EndRedraw<br /> aTS = GetInfoINI(Text, 23, aSection)<br /> SortingUpTwoArray aSection, 0, Ubound(aSection), aTS<br /> Text = DelLastEmptyLine(TextFormat(vb & Join(aTS, vb), 19))<br /> <br /> If K = 1 Then<br /> If S = 1 Then .SetSel 0, -1<br /> .ReplaceSel(Text) : SaveEditFile : EndRedraw<br /> Else<br /> .WriteFile File, Text, -1, aFile(1), aFile(2), 1<br /> End If<br />End With<!--/uzc--></div></div><!--/uzcode--></span><!--/BBhide--><br /><a class="link" href="http://tc-image.3dn.ru/forum/9-143-1" rel="nofollow" target="_blank"><div align="right"><img src="http://tc-image.3dn.ru/TC_image_files/AkelPad_Image_logo.png" border="0" alt=""/></div></a></span>
|
