Имя: Пароль:
1C
1C 7.7
v7: Про опенконф
0 DES
 
22.02.13
00:27
Есть там фича "убрать концевые пробелы в тексте модуля" ?
1 orefkov
 
22.02.13
00:48
Вроде был такой скриптик.
Ищи по слову trim
2 orefkov
 
22.02.13
00:51
Кстати да, хорошо что напомил.
Надо  будет добавить в снегопат.
3 DES
 
22.02.13
01:01
не нашел ;(
4 orefkov
 
22.02.13
01:36
Апни с утра, гляну на работе.
5 Злопчинский
 
22.02.13
03:35
да!
И какиой скриптик форматирует текст так чтобы операторы присвоения, следующие друг за другом, "выравнивались" по символу = ..?
6 orefkov
 
22.02.13
10:03
Вот нашел скрипт, RTrimModule.vbs
На всякий случай выложил https://snegopat.ru/files/RTrimModule.zip
7 orefkov
 
22.02.13
10:03
(5)
Не помню такого скрипта.
8 ADirks
 
22.02.13
11:24
(5) Форматирование текста::FormatBlockWithTabsAskChar
9 orefkov
 
22.02.13
11:28
(2)
Оказывается, уже есть в снегопате:
Форматирование модуля::УдалитьКонцевыеПробелы
10 ADirks
 
22.02.13
11:28
+ ещё для тех, кто хочет красиво оформлять запросы, есть
TextConversion::StringTab/StringUnTab
11 orefkov
 
22.02.13
11:28
(8)
Алексей, ты на 7ке все сидишь, или 8ку начал уже мучить?
12 ADirks
 
22.02.13
11:34
(11) На семёрке
13 orefkov
 
22.02.13
11:36
(12)
А, ну ладно. Смотри, на 8ку пойдешь если, обращайся.
14 DES
 
22.02.13
11:57
(6) Спасибо
Обработано строк: 149323
Всего удалено 45267 символов
15 DES
 
22.02.13
12:11
Размер MD был 15667, стал 18308
чейто ?
16 ДенисЧ
 
22.02.13
12:13
(15) объедини с самим собой. Это микрософт...
17 orefkov
 
22.02.13
12:13
Известная багофича - при любых правках мдшник только пухнет.
Загрузи мдшник сам в себя.
18 DES
 
22.02.13
12:19
(17) как это ?
19 DES
 
22.02.13
12:20
(16) говорит  -идентичны и ничего не происходит
20 ДенисЧ
 
22.02.13
12:21
ммм. не объедини, а загрузи... :-)
21 DES
 
22.02.13
12:23
(20) как это делается ?
22 orefkov
 
22.02.13
12:23
(18)
Загрузить измененнную конфигурацию и указываешь этот же файл.
При этом он с нуля перестраивается.
23 DES
 
22.02.13
12:25
СПС
24 DES
 
22.02.13
12:25
15152 стал
25 DES
 
22.02.13
12:27
а как делать чтобы при загрузке конфигуратора не раскрывалось на все окно винды и в окне конфигурация не раскрывалась на все окно 1с?
26 Ёпрст
 
22.02.13
12:32
(25) вырезать это в одном из скриптов вестимо.
27 orefkov
 
22.02.13
13:43
(24)
Ну а что ты хотел - там же внутри все тексты зипованные лежат, много не сэкономишь на пробелах.
(25)
Отключай по очереди скрипты один за одним, пока не найдешь виновного.
28 DES
 
22.02.13
14:04
--------MyScripts.vbs-------

Sub Configurator_OnActivateWindow(W,A)
   if not flCfgWindowIsOpened then
       if Instr (W.Caption,"Конфигурация")=1 then
           W.Maximized=False
           flCfgWindowIsOpened=true
           SendCommand(32812) 'закрыть окно сообщений
           SendCommand(45098) 'закрыть синт. помощник
       end if    
   end if    
   'message "Configurator_OnActivateWindow " & W.Caption & " " & A
End Sub
29 rbserg
 
22.02.13
14:20
самый полезный скрипт имхо опенконфе - это "селект метадада и гоуту обдж" из навигейшин тулз...
30 ADirks
 
22.02.13
15:50
(29) не, самый полезный "Выбрать из списка"::SelectFromComboBox :)


кстати, в NavigationTools недавно допилили такое ещё:

Sub SelectAndOpenErtFile()
   Dim Dict, Dir, Prefix
   
   set Dict = CreateObject("Scripting.Dictionary")
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dir = fso.BuildPath(Configurator.IBDir, "_Модули\ВнешниеОтчеты")
   Prefix = ""
   ErtList_AddDir Dir, Prefix, Dict

   Selection = CommonScripts.SelectValue(Dict)
   If Selection = "" Then Exit Sub

   'Configurator.Message Selection
   'set doc = Configurator.Documents.Open(fso.BuildPath(Dir, Selection))
   set doc = Configurator.Documents.Open(Selection)
   
   If Doc Is Nothing Then Exit Sub

   If Doc.Type = docWorkBook Then
       doc.ActivePage = 1
   end if
End Sub

Private Sub ErtList_AddDir(Dir, Prefix, Dict)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set Folder = fso.GetFolder(Dir)
   Set Files = Folder.Files
   For Each File in Files
       'Dict.Add fso.BuildPath(Dir, File.Name), Prefix & "\" & File.Name
       Dict.Add Prefix & "\" & File.Name, fso.BuildPath(Dir, File.Name)
   Next


   Set Folders = Folder.Subfolders
   For Each File in Folders
       ErtList_AddDir fso.BuildPath(Dir, File.Name), Prefix & "\" & File.Name, Dict
   Next
End Sub

А то задолбало каждый раз в этой куче нужное искать.
Только вместо "_Модули\ВнешниеОтчеты" надо своё подставить
31 rbserg
 
22.02.13
16:03
Полезная штучка, заберу пожалуй.
32 orefkov
 
22.02.13
17:08
(30)
Фильтры всегда рулят