|
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)
Фильтры всегда рулят |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |