IAm
22.11.2004 - 11:49 |
Выполню в отсутствие именинника ArtBear Его миссию
---------------------------------------------------------
Начнем 11 ветку о Телепате и Опенконфе - программирование для Конфигуратора, облегчение работы разработчиков 1С!
Для тех, кто только что присоединился.
---------------------------------------------------------
Автор всего этого набора чудес - Александр Орефков
---------------------------------------------------------
Сабж + скрипты для Опенконф (сайт автора)
http://openconf.itland.ru/beta
FAQ
http://1c.alterplast.ru/faq/telepat.html
http://1c.alterplast.ru/faq/openconf.html
Другие плагины/скрипты для Опенконфа можно взять (а также самому положить !!) в Клубе Профессионалов
http://1c.proclub.ru/modules/mydownloads/viewcat.php?op=&cid=1002
Предыдущие ветки о Телепате/Опенконфе можно взять на страничке
http://1c.alterplast.ru/faq/telepat.html
На итланде.ру есть специальный форум для обсуждения именно Опенконфа и его плагинов (в т.ч. и Телепата)
http://itland.ru/forum/index.php?showforum=37
Если у кого есть что-то интересное для Опенконфа - плагины, скрипты, присылайте мне, я размещу на http://openconf.itland.ru
Или, что еще лучше, сами выкладывайте свои творения в Клуб Профессионалов в раздел Опенконф
http://1c.proclub.ru/modules/mydownloads/submit.php
так будет наиболее удобно для всех :)
|
slavka
1 - 22.11.2004 - 11:53 |
(Iam) sample.vbs на самом деле 2 штуки было: 1- пример работы с агентом, а 2- как раз с svcsvc.dll |
kir
2 - 22.11.2004 - 12:25 |
сорри если про это уже было написано ,а я пропустил ...
можно ли что бы тексты которые грузятся из файла при открытии модуля сами бы открывались ? |
slavka
3 - 22.11.2004 - 12:28 |
(2) посмотри в наборе скриптов от artbear'a. там вроде было что-то подобное |
IAm
4 - 22.11.2004 - 12:35 |
(2) Примерно так
Function CheckWindow(doc)
CheckWindow = False
If Windows.ActiveWnd Is Nothing Then
MsgBox "Нет активного окна"
Exit Function
End If
Set doc = Windows.ActiveWnd.Document
If doc=docWorkBook Then Set doc=doc.Page(1)
If doc<>docText Then
MsgBox "Окно не текстовое"
Exit Function
End If
CheckWindow = True
End Function
Sub OpenLoadFile()
doc = 0
if CheckWindow(doc) = False then exit sub
Pos1 = instr(lCase(Doc.text), "#загрузитьизфайла")
Pos2 = instr(Pos1, lCase(Doc.text), vbCrLf)
if Pos1 = 0 then exit sub
if Pos2 = 0 then
fileName = Mid(doc.Text, Pos1 + 17)
else
fileName = Mid(doc.Text, Pos1 + 17, Pos2 - Pos1 - 17)
end if
Set NodeObj = CreateObject("wScript.shell");
NoteObj.Run("""" + Trim(FileName) + """");
End sub |
kir
5 - 22.11.2004 - 12:43 |
2(3) спасибо, посмотрю
2(4) тоже спасибо, но ругается на Set NodeObj = CreateObject("wScript.shell"); , чего мне надо установить и где это взять ? ;-) |
IAm
6 - 22.11.2004 - 12:50 |
Замени
Set NodeObj = CreateObject("wScript.shell");
NoteObj.Run("""" + Trim(FileName) + """");
на Documents.Open Trim(FileName) |
kir
7 - 22.11.2004 - 12:59 |
вроде работает спасибо, вернее пытается открыть, по текущему пути, а можно как нить привязаться к каталогу текущей ИБ ?
и еще можно ли что бы автоматом открывалось , чтобы не нажимать лишних кнопок ? |
IAm
8 - 22.11.2004 - 13:11 |
По текущему можно наверное
Documents.Open BinDir + Trim(FileName)
=================
нащёт автомата не знаю |
туча
9 - 22.11.2004 - 13:21 |
(Lam) вопрос по Интелли:
Повесил я хоткей на "Точку", а если я хочу в строке написать так "Счет 62.1", после ввода точки вылазит приглашение что-либо выбрать, но мне не нужно ничего выбирать, я просто хочу поставить точку. Приходится переключаться на инглиш, ставить точку и обратно на рус. Можно канэшно и на др. хоткей повесить, но как то уж привык. |
IAm
10 - 22.11.2004 - 13:23 |
9 Поставь в поле ввода списка точку и нажми Энтер.
А что она может предложить выбрать после Счет 62. ??? |
туча
11 - 22.11.2004 - 13:29 |
(22) Так уже пробовал вываливается первая строка "Валюта". Сообщить список выбора? |
kir
12 - 22.11.2004 - 13:32 |
2(8) все получилось большое спасибо , только испозовал 'Documents.Open IBDir + Trim(FileName)' , вообще хотелось бы такую штуку по умолчанию например в телепат как опцию ..... |
IAm
13 - 22.11.2004 - 13:33 |
11 В версии 1.1.0 при появлении списка можно нажать точку(русскую) и энтер и всё будет нормально. |
туча
14 - 22.11.2004 - 13:40 |
(13) Версия 1.1.0 нажимаю ентер, получается "Счет 62.Валюта" |
trdm
15 - 22.11.2004 - 13:41 |
А-а-а-а-а, караул, отпиарили в прошлой ветке :) |
Тертый
16 - 22.11.2004 - 13:44 |
15)(угрожающе) Это Вы написали dots.vbs который не давал работать? И почему так произошло, а? :) |
trdm
17 - 22.11.2004 - 13:47 |
Конечно, я, он так и был задуман. Мне он лично не дает работать постоянно, если есть какая-то задумка, не могу устоять перед её осуществлением, и работа побоку :) |
trdm
18 - 22.11.2004 - 13:50 |
Вобщето, ИМХО куча диалогов - это sample c демонстрацией возможностей Svcsvc.dll. Так что дядку, сначала посмотрите что за скрипт потом юзайте.
(All) Не рекомендую мой скрипт вешать на ГК - "точку". |
Тертый
19 - 22.11.2004 - 13:54 |
А не было предупреждения, что "это вредоносная программа"... В пятницу вроде нормально работал, а сегодня... :) |
trdm
20 - 22.11.2004 - 14:02 |
Скрипт писал для себя, дабы облегчить набор текста.
Выкладываю с мыслью "может кому пригодится". Меня самого он устраивает на 65 %, т.е. на 25 % есть задумки, которые надо написать и 10% глючки и low скоростЬ. |
Тертый
21 - 22.11.2004 - 14:28 |
Да брось, что я не понимаю? А у тебя он тоже кучу менюшек при загрузке выдает? Если нет, то почему? |
trdm
22 - 22.11.2004 - 18:49 |
Он не выдает, пока невызовешь процедурину WordOfCaret()
Думаю переписать в 3-й раз заново, опять начались "глюки объема".
Не качайте полз, пока. |
trdm
23 - 22.11.2004 - 21:42 |
Создатель молчит, либо сильно занят, либо готовит бомбу :) |
trdm
24 - 22.11.2004 - 21:50 |
Спрошу ка еще раз, есть ли инструментик для парсинга *.mxl?
Выгружать во внешний файл из workbooka не проблема, а вот парсить сей бинарик руки не доходят. Хочу извлечь из сего чуда вертикальные и горизонтальные секции, для подстановки в строки типа Таб.ВывестиСекцию(); и Таб.ПрисоединитьСекцию();
Заготовку - консольное приложение, принимающие в параметрах входной и выходной файлик сделал, а дальше что-то руки не поднимаются :( |
trdm
25 - 22.11.2004 - 22:20 |
Обновил скрипт. Добавил описание.
Из новенького:
+ частично научил распознавать "место вызова" - )
вызывается в 1-м параметре
все вышесказанное справедливо для англоязычных синонимов методов |
MetaEditor
26 - 23.11.2004 - 04:24 |
скажите мне, есть ли в природе или можно такое в принципе сделать чтобы по двойному клику или хоткею на форме (кнопке, тексте, ...) открывались не "Свойства" а модуль с переходом к процедуре которая задана в формуле ...
как в делфях...
в диалог-стриме же есть название этой процедуры/функции.....
??? |
artbear
27 - 23.11.2004 - 06:45 |
(26) Сам о подобном давно думаю.
ИМХО пока нельзя, потому что нет возможности определить активный контрол на форме или даже активный слой :( |
MetaEditor
28 - 23.11.2004 - 07:25 |
с пришествием в онлайн...
как ветку оформили? нормально?.... )))
уверен, Александр что нибудь придумает по этому поводу...(про активный элемент) |
artbear
29 - 23.11.2004 - 08:10 |
(28) Вроде нормально.
Можно попробовать, конечно, активный элемент поискать через ВинАПИ (работа с окнами). |
sashat
30 - 23.11.2004 - 09:34 |
А меня не пускают на http://1c.proclub.ru/
Скиньте плиз скрипт dots.vbs |
DES
31 - 23.11.2004 - 10:07 |
Уважаемые!
А где послений релиз набора скриптов надыбать? |
artbear
32 - 23.11.2004 - 10:55 |
(31) Внимательно изучи (0).
ЗЫ ведь специально пишется :( |
VictorB
33 - 23.11.2004 - 11:31 |
(to artbear)
будь добр стукнись в аську 97718371 (есть несколько вопросов) |
dva1c
34 - 23.11.2004 - 11:34 |
(32) Скажи, пожалуйста, что за ошибка:"Инструкция по адресу "0х27581771" обратилась к памяти по адресу "0х27581771". Память не может быть "read".
". Вылазит, когда открыто много баз, а потом поочередно закрываю. ОС WinXP, памяти 397 Mb. ОпенКонф 1.0.1.7, Телепат v2.0.0.0o |
dva1c
35 - 23.11.2004 - 11:37 |
(34) ... "много баз" - это 5 баз |
artbear
36 - 23.11.2004 - 11:55 |
(34) Возможно, виноват какой-то плагин.
И вполне вероятно, что это мой плагин "История". |
dva1c
37 - 23.11.2004 - 11:59 |
(36) Да, есть такой плагин. Выключить? |
artbear
38 - 23.11.2004 - 12:02 |
(37) Как хочешь. Плагин мой, за исключением пары несущественных глюков (один как раз твой) работает нормально.
Пока меня устраивает.
Если тебе не нужен его функционал, удаляй :( |
Данила хМастер
39 - 23.11.2004 - 12:05 |
Не далал никто скрипт "Сохранения конфы без модальных окошек"?
Чтоб по нажатии кнСохранитьКонфу (Дисктека нарисована) на всех модальных окошках нажималось OK, а их текст слался в Message (подобно тому как в AutoSave, только при ручном нажатии кнЗаписать) |
dva1c
40 - 23.11.2004 - 12:09 |
(38) Плагин-то прикольный, просто я думаю может еще каким-нибудь "раком" выползет, а я буду грешить на другое :-) |
Данила хМастер
41 - 23.11.2004 - 12:11 |
40 - Это точно history...( |
dva1c
42 - 23.11.2004 - 12:11 |
(38) И еще вопрос не по существу. Artbear и artbear - это разные люди? |
slavka
43 - 23.11.2004 - 12:19 |
(38) Если будешь дорабатывать свой плагин "История" то сделай плиз возможность выделения нескольких строк чтоб при удалении сразу кучу ненужных эл-тов удалить. а то влом одно и то же действие делать. и еще периодически появляются записи след. вида: "C:\DOCUME`1\....\Temp\b\*.tmp" возможно ли сделать их автоматическое удаление , например при нажатии кнопки "Удалить" они удалялись? |
artbear
44 - 23.11.2004 - 12:20 |
(42) Один я :) |
artbear
45 - 23.11.2004 - 12:23 |
(43) А зачем из истории что-то удалять?
Для истории у меня в TODO:
деление по группам (например, видам);
фильтрация (как в "Методах модуля" от Александра);
сохранение/восстановление закладок для файлов;
естественно, устранить баги.
Но вопрос времени (: |
ADirks
46 - 23.11.2004 - 12:35 |
(39) Посмотри autoload.vbs - там всё что надо есть. |
artbear
47 - 23.11.2004 - 12:38 |
(45+) опечатался: нужно
сохранение/восстановление закладок для любых открытых модулей; |
Данила хМастер
48 - 23.11.2004 - 12:42 |
+43 Хочу еще историю открытых "Форм настроек доков и спр-ков" (те, которые по дабл-клику в дереве открываются...) |
Данила хМастер
49 - 23.11.2004 - 12:44 |
46! А как отловить момент, когда пользователь нажал "Дисктетку". Что-то запись вызывать отдельным скриптом не хочется, привык: ^S | F11 - enter. |
Phoenix
50 - 23.11.2004 - 12:50 |
(48) уже много раз писали, нельзя это пока сделать, НЕЛЬЗЯ :(
многие сидят, с нетерпением ждут этого функционала. |
slavka
51 - 23.11.2004 - 12:52 |
(45) ну например посмотрел какие-нибудь модули,внешние файлы и все они мне больше не нужны в истории. ну ты же и кнопочку "Удалить" сделал. :) |
Данила хМастер
52 - 23.11.2004 - 12:55 |
Orefkov!
При работе над несохраненной конфой поменял кол симв., с кот. "подсказывать" Телепатом с 1 на 5. Он 1 раз подсказал, другой долго думал и обвалил (( конфигуратор, вот!
PS: Win2K, Telepat O, OC 1.7 ... |
ADirks
53 - 23.11.2004 - 13:36 |
(49) Так ведь там приведён пример обработки _событий_. Не надо никаких макросов вызывать. Скрипт будет выглядеть примерно так:
Dim AutoProcess;
AutoProcess = false
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
Text = Trim(LCase(Text))
If InStr(Text, "Выполнить сохранение метаданных?") Then
Answer = DefAnswer
Message Text, mExclamation 'выдадим в окно сообщений текст модального окна
AutoProcess = true
ElseIf Text = "реорганизация информации закончена!" Then
AutoProcess = false
ElseIf AutoProcess Then
Answer = DefAnswer
Message Text, mExclamation 'выдадим в окно сообщений текст модального окна
End If
End Sub
Sub Configurator_OnDoModal(Hwnd, Caption, Answer)
If AutoProcess Then
Message Caption, mInformation
Answer = mbaOK
End If
End Sub |
trdm
54 - 23.11.2004 - 13:56 |
(26)-(27) Сие возможно, надо просто внимательно посмотреть на диалогстрим, где то я на это натыкался. |
KVA
55 - 23.11.2004 - 14:22 |
2(54) А можно скриптом в диалогстим писать? Хочу функцию прописывать в контролы, а не получается :( |
artbear
56 - 23.11.2004 - 14:27 |
(55) Конечно, можно.
Можешь посмотреть "Мой набор скриптов" - мой скрипт "Добавление кнопки на форму" или разработки IAm-а из этого же набора. |
kir
57 - 23.11.2004 - 14:36 |
да было бы неплохо разом во все контролы в "фукнцию" прописывать вызов единой функции обрабатывающей выбор, а то достает прощелкивать все элементы .... |
grumpi
58 - 23.11.2004 - 15:14 |
Не работает скрипт Переходы по модулю от Artbear. Пишет <требуется объект > Common Scripts. Как решить проблему? |
artbear
59 - 23.11.2004 - 15:17 |
А ты откуда этот скрипт "Переходы по модулю" взял?
Там же есть и файл common.vbs - достаточно переписать его в папку Бин\Конфиг |
artbear
60 - 23.11.2004 - 15:19 |
(59+) Упс, Bin\Config\Scripts |
trdm
61 - 23.11.2004 - 15:23 |
(26) А идея неплохая :) Если кто сделает, не стесняйтесь выложить на проклуб :) |
a13x
62 - 23.11.2004 - 15:38 |
на выходных рассказывал в предыдущей ветке, многие пропустили, поэтому повторюсь...
----------------------------------------------------
http://kuntashov.narod.ru/files/DialogStreamWSC.zip
----------------------------------------------------
.
еще две недели назад написал парсер диалог-стрима, а потом - по инерции - и DialogStream.wsc - скриплет, позволяющий работать с диалог-стримом как с объектом, например, на JScript это будет выглядеть так:
.
---------------------------------------------------
// размещает на текущем диалоге кнопку с заголовком "Hello!"
function addButton()
{
var frm = new ActiveXObject("OpenConf.DialogObject");
var stream = Windows.ActiveWnd.Document.Page(0).Stream;
if (!stream)
return;
frm.Stream = stream;
var btn = frm.CreateControl("BUTTON");
btn.Caption = "Hello!";
frm.Controls.Add(btn);
Windows.ActiveWnd.Document.Page(0).Stream = frm.Stream;
}
---------------------------------------------------
.
Естественно, также можно и на бейсик-скрипте.
.
Для работы нужно распаковать куда-нибудь архив и с помощью regsvr32 зарегистрировать все файлы с расширением *.wsc.
.
На простых диалогах работать можно, а вот на больших - тормоза...
Узкое место - парсер, он разбирает стрим посимвольно...
.
Еще также пока не поддерживается browser (по причине тормозов делать не стал).
.
И на последок. Поскольку у меня с 6 декабря начинается последняя сессия (ну да, студент я зеленый...), то я до следующего года на месяц сворачиваю совою активную деятельность.
Возможно, кому-либо будет интересно заняться оптимизацией того, что сделал я, либо написать свое аналогичное...
.
В первом случае, достаточно переписать только парсер, сохранив его интерфесы... Кстати, возникла идея написать парсер в виде COM-dll, будет гораздо быстрее, а с сохранением интерфесов, повторюсь, остальное переписывать совсем не надо будет...
.
Is there anyone to be a volounteer? ;-) |
Данила хМастер
63 - 23.11.2004 - 16:40 |
53. Слушайте! А если я хочу, чтоб при сохранении вопрос "Хотите ли вы сохранить?" задавался (желательно не VB-окошко, а стд 1С-кое msgBox, как оно сейчас есть), а вот при положительном ответе уже все остальное без модальных окон и только в Message, тогда как? Как такое сделать? |
Данила хМастер
64 - 23.11.2004 - 16:44 |
+63 Как в Configurator_OnMsgBox отловить, что нажали mbOK? |
a13x
65 - 23.11.2004 - 16:52 |
(64) а с какой целью? что бы нажать в остальных окнах все по дефолту?
вроде никак,
но ведь достаточно зарегистрировать факт появления этого окна,
ведь, если пользователь ответит Ok, то вы заведомо знаете, какое окошко откроется следующим |
slavka
66 - 23.11.2004 - 16:57 |
(ALL) в опенконфе есть событие:
Event OnActivateWindow(Wnd As ICfgWindow, ByVal bActive As Boolean)
в ICfgWindow возвращается какое-то значение или нужно указывать что-то? |
a13x
67 - 23.11.2004 - 17:10 |
не возвращается, а передается значение - окно, которое активизируется
// максимизирует все открываемые окна внутри конфигуратора
function Configurator::OnActivateWindow(cfgWnd, bActive)
{
if (cfgWnd)
if (!cfgWnd.Maximized)
cfgWnd.Maximized = 1;
} |
Данила хМастер
68 - 23.11.2004 - 17:32 |
(65) Оочень хочется, чтоб при записи конфы как по F11, так по ^s, вместо модальных окон все шло в Message. Однако все ж хочется, чтоб окно с вопросом "А надо ли вообще сохранять? Или может передумали?" появлялось и реагировало соответственно ответу. Т.е., если почитаете выше, тут пердложили флаг, по которому на всех модальных окнах нажимать Default, а флаг этот предлагают устанавливать при появлении окошка с текстом "Выполнить сохоранение метаданных?", само же окошко там не появляется, т.к. тоже наж-ся Def. А мне надо как раз узнать ответ юзера и толшько по "Да" устанавливать этот флаг.
Может проще можно? |
Oblomov
69 - 23.11.2004 - 17:40 |
А чьё это сообщение "Окно не текстовое" телепата или Intellisence? Выскакивает, когда я точку хочу ввести например в строке поиска.
Нельзя ли сделать так, что бы телепат (или Intellisence?) работал только в модуле, то есть только там где пишеться код. |
a13x
70 - 23.11.2004 - 17:50 |
... если на вопрос о сохранении мд пользователь нажал ОК, то следующим окошком будет "Реорганизация данных"... |
IAm
71 - 23.11.2004 - 18:06 |
69 Версию интеллисенс скачай поновей |
Oblomov
72 - 23.11.2004 - 18:14 |
2(71) Упс, не могу. Похоже проклуб в ауте. Ну ладно, тогда до завтра. |
trdm
73 - 23.11.2004 - 20:06 |
(70) не факт... |
АБЗ
74 - 24.11.2004 - 04:52 |
Вверх |
ADirks
75 - 24.11.2004 - 06:17 |
(68) Ну тогда вот так
Dim SavingStarted, AutoProcess
SavingStarted = false
AutoProcess = false
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
Text = Trim(LCase(Text))
If InStr(Text, "âûïîëíèòü ñîõðàíåíèå ìåòàäàííûõ?") Then
Message Text, mExclamation 'âûäàäèì â îêíî ñîîáùåíèé òåêñò ìîäàëüíîãî îêíà
SavingStarted = true
AutoProcess = false
ElseIf Text = "ðåîðãàíèçàöèÿ èíôîðìàöèè çàêîí÷åíà!" Then
Answer = DefAnswer
Message Text, mExclamation 'âûäàäèì â îêíî ñîîáùåíèé òåêñò ìîäàëüíîãî îêíà
SavingStarted = false
AutoProcess = false
ElseIf Text = "ðåîðãàíèçàöèÿ äàííûõ íå âûïîëíåíà" Then
Answer = DefAnswer
Message Text, mExclamation 'âûäàäèì â îêíî ñîîáùåíèé òåêñò ìîäàëüíîãî îêíà
SavingStarted = false
AutoProcess = false
ElseIf AutoProcess Then
Answer = DefAnswer
Message Text, mExclamation 'âûäàäèì â îêíî ñîîáùåíèé òåêñò ìîäàëüíîãî îêíà
SavingStarted = false
ElseIf SavingStarted Then
SavingStarted = false
AutoProcess = true
End If
End Sub
Sub Configurator_OnDoModal(Hwnd, Caption, Answer)
If SavingStarted Then
SavingStarted = false
AutoProcess = true
End If
If AutoProcess Then
Message Caption, mInformation
Answer = mbaOK
End If
End Sub |
ADirks
76 - 24.11.2004 - 06:19 |
Ой, а куда делись все эти русские буквочки? Попробую ещё разик
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
Text = Trim(LCase(Text))
If InStr(Text, "выполнить сохранение метаданных?") Then
Message Text, mExclamation 'выдадим в окно сообщений текст модального окна
SavingStarted = true
AutoProcess = false
ElseIf Text = "реорганизация информации закончена!" Then
Answer = DefAnswer
Message Text, mExclamation 'выдадим в окно сообщений текст модального окна
SavingStarted = false
AutoProcess = false
ElseIf Text = "реорганизация данных не выполнена" Then
Answer = DefAnswer
Message Text, mExclamation 'выдадим в окно сообщений текст модального окна
SavingStarted = false
AutoProcess = false
ElseIf AutoProcess Then
Answer = DefAnswer
Message Text, mExclamation 'выдадим в окно сообщений текст модального окна
SavingStarted = false
ElseIf SavingStarted Then
SavingStarted = false
AutoProcess = true
End If
End Sub |
orefkov
77 - 24.11.2004 - 09:16 |
(68)
Так ты определи по тексту, что собираемся сохранять, и
спроси сам через VB MsgBox.
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
LText = Trim(LCase(Text))
If InStr(LText, "выполнить сохранение метаданных?") Then
UserChoise=MsgBox(Text,Style,"Конфигуратор") |
slavka
78 - 24.11.2004 - 11:02 |
(67) спасибо. думал что это событие отработает при даблклике по реквизиту. ан нет :( |
slavka
79 - 24.11.2004 - 11:11 |
При открытии формы настроек доков/справочников скрипт
Sub Configurator_OnActivateWindow(cfgWnd, bActive)
message cfgWnd.Caption
End Sub
выдает сообщение Dxxx. чтобы это значило? |
глюкер
80 - 24.11.2004 - 11:51 |
может уже поправили, но вот такая недоработка :
при вводе создатьОбъект(".... нет выбора из списка типов объектов СписокЗначений и ТаблицаЗначений (Справочник, Документ етц - есть ) |
Oblomov
81 - 24.11.2004 - 12:07 |
2(71) скачал новую версию Intellisence. Опять немного не то, что хотелось.
А хочеться самую малость. Отключить срабатывание скрипта по хоткею если курсор НЕ в Модуле, где редактируеться код. |
Oblomov
82 - 24.11.2004 - 12:19 |
Версия Intellisence 1.1.0
Последовательность действий.
Вешаем скрипт на "точку" в русской раскладке.
Открываем окно "Текст" и переходим в строку поиска.
Жмём "." Уже баян. Курсор перескакивает в окно текста и открывает список подбора.
Жмем ещё раз "." и Ентер. Получаем ошибку скрипта.
Можно вводить "." в английской раскладке, но это костыли. |
Phoenix
83 - 24.11.2004 - 17:16 |
up |
БаГ
84 - 24.11.2004 - 17:39 |
Может я не в тему?
Не сможет ли кто-нибудь наваять скрипт для поиска с заменой Н раз. Поясняю: найти слово "Дебет" и заменить на "Кредит" 3 раза.
Очень хочется. |
a13x
85 - 24.11.2004 - 17:40 |
вместо апа
последний раз... пост (62) все проигнорировали или как? |
IAm
86 - 24.11.2004 - 18:30 |
81, 82 Не хватает сейчас ни времени ни знаний в этом разбираться, сам переключаю на латинскую. |
ob36
87 - 24.11.2004 - 18:53 |
Версия Intellisence 1.1.0
Нажатие точки во внешней обработке после переменной ТемпТЗ в следующем скрипте безнадежно вешает конфигуратор:
Процедура Сформировать(А,Б,В)
ВремТЗ = глПолучитьТЗ(А,Б,В);
ТемпТЗ = СоздатьОбъект("ТаблицаЗначений");
ВремТЗ.Выгрузить(ТемпТЗ,,,"Дог");
ТемпТЗ.
КонецПроцедуры |
IAm
88 - 24.11.2004 - 23:35 |
87 Знаю, исправлю в следующей версии. Сугубо vbs-шные глюки с переменной цикла. Если лень ждать до след. версии - то в функции GetVTColumns
в начале каждого цикла поставь SaveI = i
в конце каждого цикла i = SaveI |
MetaEditor
89 - 25.11.2004 - 05:31 |
почему вылетает синтаксическая ошибка на
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
строка 1 символ 8...
я васик знаю плохо... |
Номер 6
90 - 25.11.2004 - 07:47 |
(85)
Нет, не проигнорировали!
Мне интересно!
Только, вот, пока, руки не дошли твои исходники посмотреть. |
a13x
91 - 25.11.2004 - 08:23 |
(89)
с чистым vb не помогу, а вот на vbScript'e многие функции из Win32API можно вызывать с помощью DynaWrap
http://ourworld.compuserve.com/homepages/Guenter_Born/WSHBazaar/WSHDynaCall.htm
там капельная dll c примерами на vb
.
а вот здесь пример на jScript
http://cwashington.netreach.net/depo/view.asp?Index=34&ScriptType=jscript
.
(90)
если что, с радостью помогу разобраться / icq#338758861 или kuntashov-собака!-ru/yandex |
ob36
92 - 25.11.2004 - 09:01 |
(88) - Помогло, спасибо! |
MetaEditor
93 - 25.11.2004 - 09:33 |
91) dynacall.dll и dynawrap.dll - это одно и тоже ? |
a13x
94 - 25.11.2004 - 09:40 |
(93) dynacall - предыдущая версия dynawrap вроде, по крайней мере исходники у них одинаковые...
у меня dynawrap for nt |
artbear
95 - 25.11.2004 - 10:26 |
(94) Кульная вещь, пользовался, когда начинал изучение ВБСкрипт, понравилось, а затем забросил :( |
MetaEditor
96 - 25.11.2004 - 10:35 |
95) можно ли как нибудь из скрипта найти нужное окно(или ForegroundWindow) и получить текст из его фокуса ввода...
вот мне вспринципе чего надо... |
Беба
97 - 25.11.2004 - 11:32 |
А подскажите ссылочку пож. чтоб скачать опенконф.снм, а то на сайте не нашел |
IAm
98 - 25.11.2004 - 13:23 |
После окончания отладки скрипта через MSE7.exe конфигуратор ни на что не реагирует, хотя окно эдитора закрыто. Как вывести его из состояния спячки? |
slavka
99 - 25.11.2004 - 13:36 |
(97) ищи ocdoc.zip
(98) а из режима отладки не забыл выйти? |
IAm
100 - 25.11.2004 - 13:38 |
99 Не знаю, допустим забыл, чего дальше делать? |
slavka
101 - 25.11.2004 - 13:41 |
меню Debug->Stop Debugging |
IAm
102 - 25.11.2004 - 13:54 |
Где меню, если Эдитор закрыт, к тому же вроде это делал перед закрытием. |
slavka
103 - 25.11.2004 - 14:00 |
тады ой! не допер что в (98) MSE7.exe и окно эдитора одно и тож :) |
a13x
104 - 25.11.2004 - 14:18 |
(98) мертвое это дело, только из таскманагера убивать обоих...
я давно бился, да толку... кажестя, в одной из первых веток говорил про это... |
slavka
105 - 25.11.2004 - 14:26 |
странно у меня такого явления нет. чтобы это значило ... |
a13x
106 - 25.11.2004 - 14:28 |
кста, а iedbg даже отлаживать вообще не дает - приаттачиться к процессу могу,
и на этом все заканчивается... а жаль :-( |
trdm
107 - 25.11.2004 - 15:02 |
(98) Я тебе об этом писал, помнишь? На период отладки отключай вызов своего сервера для выбора значения, будет в порядке. |
trdm
108 - 25.11.2004 - 15:24 |
Обновил dots.vbs
+ Немного оптимизировал.
- Отловил несколько ситуаций, ведущих к зацикливанию.
+ выбор реквизитов объекта внутри методов (дополнительно) ТЗ.Выгрузить(,,,<.>); ТЗ.ВидимостьКолонки(<.>,); ТЗ.Сортировать(<.>,<.>); Добавлил отсутствующие англоязычные синонимы. |
trdm
109 - 25.11.2004 - 15:29 |
MSE при закрытии спрашивает "Stop типа дебаг?" если "Неа" тады не закрывается вообще.
(104) Нормально там дебагер работает, и атачится без проблем, у меня с ним за исключением случая из (98) проблем не было, единственное ОбжектВьювер не всегда при запуске обновляется. |
fez
110 - 25.11.2004 - 15:43 |
Выложил предыдущую ветку на http://1c.alterplast.ru |
a13x
111 - 25.11.2004 - 15:50 |
(109) значит, у меня руки кривые...
будем прямить |
trdm
112 - 25.11.2004 - 19:44 |
(111) Уверен, что с твоими руками все в порядке.
Дело может быть в следующем тексте (и то с натяжкой, если засунули туда бог весть что):
Sub Configurator_OnIdle()
' операторы
End Sub
Но это только гипотеза. |
a13x
113 - 25.11.2004 - 20:02 |
(112) точно нету, эт мои руки все-таки :-)
2(MetaEditor)
-----------------
на бейсике, вроде тоже смог (My VBScript is very poor :-)
-------------------------------------
Dim uw
Dim hWnd
Set uw = CreateObject("DynamicWrapper")
uw.Register "USER32.DLL", "FindWindowA", "I=ls", "f=s", "R=l"
uw.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"
hWnd = uw.FindWindowA(0, "Безымянный - Блокнот")
uw.SetForegroundWindow(hWnd)
--------------------------------------------
если надо будет искать только по классу окна, то придется при регистрации FindWindowA входные параметры объявить как "I=sl", а если по имени класса и тайтлу одновременно, то как "I=ss"... Почему - хз... хотя приблизительно могу сказать - потому что вроде из бейсика null передать, если параметр объявлен как строка, вот... в jscript все ок, пример я тебе в аську кинул, если нет или кому-то надо, могу сюда продублировать...
2(ALL) кто в курсе, как это можно сделать? artbear, ты вроде использовал динавраппер, не сталкивался с этой проблемой? |
a13x
114 - 25.11.2004 - 20:05 |
кто может знает японский :-))
вот здесь, кажется, именно эту проблему обсуждают
http://pc3.2ch.net/tech/kako/1010/10104/1010400289.html |
GrayT
115 - 25.11.2004 - 23:23 |
Подскажите, плиз. Решил заюзать ТурбоМД, при выполнении скрипта сохранения текущего окна вылетает ошибка. Тут
Set fso = CreateObject("Scripting.FileSystemObject")
Видимо объет не может создаться - чего не хватает? |
artbear
116 - 26.11.2004 - 07:37 |
(115) А какая ошибка вылетает?
Может быть, ты в "Scripting.FileSystemObject" набрал одну из букв по-русски. |
KAO
117 - 26.11.2004 - 08:10 |
(115) Какая версия WSH стоит на компьютере? |
artbear
118 - 26.11.2004 - 09:58 |
(115) Такой вопрос был уже в прошлых ветках.
Челу помогла переустановка Windows Script Host.
PS На всякий случай, нужна версия 5.6 |
GrayT
119 - 26.11.2004 - 10:42 |
116 - Про ошибку вообще ни чего не говорит. Строка 13, поз. 3. В этой позиции пробел. Ни чего не набирал руками - стандартный TurboMD.vbs из поставки.
117 - Сейчас на работе, проблема дома. Вообще у меня были проблемы с WSH (на хрюше!)Относительно недавно скачивал заново установку и ставил по новой. Вечером посмотрю версию.
Спасибо |
IAm
120 - 26.11.2004 - 11:23 |
119 Смотри следующую строку, 14ю |
artbear
121 - 26.11.2004 - 12:11 |
(orefkov) А почему BinDir выдается с соблюдением регистра (C:\Program Files\1CV77\Bin),
а IBDir выдается только в нижнем регистре ( "f:\kp new" - вместо "F:\KP new") ?
В итоге некоторые скрипты работают не так, как хотелось бы :(( |
artbear
122 - 26.11.2004 - 12:27 |
(121+) Выкрутился вот так:
set fso = CreateObject("Scripting.FileSystemObject")
set Folder = fso.GetFolder(IBDir)
IBDirPath = Folder.Path + "\"
ЗЫ Добавил этот код в коммон.вбс как процедуру IBDir(IBDirPath) |
artbear
123 - 26.11.2004 - 12:29 |
Кстати, теперь макрос "Запуск 1С в монопольном режиме" ( у меня на F10)
выглядит вот так (удобнее, когда запускаешь 1С не через стартер):
'-------------------------------------------------------------------
' запустить 1С не в монопольном режиме для текущего пользователя
' почти как F11
Sub RunInSharedMode()
Dim wshShell
Dim fso 'as FileSystemObject
set wshShell = createObject("WScript.Shell")
CmdLine = CommandLine + " "
CmdLine = Replace(CmdLine, " config ", " enterprise ")
CmdLine = Replace(CmdLine, " /m ", " ")
CmdLine = Replace(CmdLine, " CONFIG ", " enterprise ")
CmdLine = Replace(CmdLine, " /M ", " ")
set fso = CreateObject("Scripting.FileSystemObject")
set Folder = fso.GetFolder(IBDir)
IBDirPath = Folder.Path + "\"
if InStr(UCase(CmdLine), " /D") = 0 then
CmdLine = CmdLine + " /D"+""""+IBDirPath+""""
end if
wshShell.Run CmdLine, 3, false
End Sub ' RunInSharedMode |
artbear
124 - 26.11.2004 - 12:33 |
(123+) Упс, читать макрос "Запуск 1С в РАЗДЕЛЕННОМ режиме" :) |
GrayT
125 - 26.11.2004 - 20:17 |
По поводу ТурбоМД - вылечилось переустановкой. Стояло 5.6.
(120)Ошибка была именно в этой строке - я ее MsgBox с двух сторон поджимал :)
Всем спасибо |
slavka
126 - 29.11.2004 - 09:05 |
типа ап. какие новости? :) |
IAm
127 - 29.11.2004 - 09:33 |
Уж не знаю новость ли - обновил интеллисенс фор опенконф
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1002&lid=4229 |
slavka
128 - 29.11.2004 - 09:44 |
(127) имхо, почти после 3 дневного затишья и это новость. :)) |
slavka
129 - 29.11.2004 - 09:46 |
в 128 после "имхо" следует читать "думаю что" |
slavka
130 - 29.11.2004 - 14:30 |
(ALL) подскажите плиз как в скрипте к строке добавить кавычку ("). пример:
zn=InputBox("Введите имя")
допустим введено "Справочник.Номенклатура"
затем "Справочник.Номенклатура" разделяю на две строки: "Справочник" и "Номенклатура",в рез-те 2 переменные:
zn1="Справочник" и zn2="Номенклатура".
Мне нужно что было примерно так (это на 1с): симв(34)+zn1+симв(34). Как это в VBS сделать? |
trdm
131 - 29.11.2004 - 14:49 |
Как в 1С: """" & (двойная кавычка).
"""" & zn1 & """"
& - вороде "+" |
slavka
132 - 29.11.2004 - 15:03 |
это двойная кавычка. мне нады одинарную |
trdm
133 - 29.11.2004 - 18:09 |
Это в отладчике кажется что двойная.
Это одинарная, просто vbs как и 1Z такую: """ конструкцию не воспримет, тилько """". |
trdm
134 - 29.11.2004 - 18:12 |
Завянет тема скоро, перейдет из НоуХау в привычное средство.
Господа, где Ваши свежие идеи?!?!?!?!?!?! |
a13x
135 - 29.11.2004 - 18:30 |
(134) а есть время, чтобы заняться реализацией? у меня есть идеи, но нету времени - сессия начинается со следующей недели :-(
могу рассказать, если кто-нибудь пообещает сделать :-) |
Dolter
136 - 29.11.2004 - 18:53 |
айэму: классная штука, тока вот не хватает подхватываения методов и атрибутов собственных классов 1С++ :-) |
IAm
137 - 29.11.2004 - 19:56 |
136 Я думаю добавить их элементарно. Я не знаю логики работы 1С++, методы хранятся в каких-то файлах? |
trdm
138 - 29.11.2004 - 23:04 |
:( Нету.
У меня самого "Подсистемы" на dhtml-e + "Windows Common Controls" "отдыхают" пока, дожидаются. В dts.zip выложил, если какой умный малый подхватит, это будет неплохо. Там ADO-вый движек, не xml-ный, с примерами, может не у меня, так у другого получится. |
artbear
139 - 30.11.2004 - 06:28 |
(137) Да, работа с классами 1С++ - была бы супер.
НО:
Определения классов 1С++ являются "динамическими" и хранятся в файлах (текстовые или ert), т.е. классов может быть много, и их набор и структура может меняться в различных конфигурациях.
ИМХО просто так их в ints-файл не занесешь. Вот если бы был конвертер :)
Вот пример файла определений:
//#define _LOAD_TIMER
//#inсludе "Классы\КаталогОбщий\ОЛЕ\РаботаСОле.prm"
//#inсludе "#КаталогОбщий\FuncTest\FuncTest_Classes\defcls.prm"
class Общие.СписокЗначений = Общие\СписокЗначений.ert : РасшСписокЗначений
{
СписокЗначений ИзСтроки(Знач Строка Стр, Неопределенный Разделитель = ",", Число ОбрезатьПробелы = 0);
Строка ВСтроку(СписокЗначений Сп, Строка Разделитель = ",", Число ВключатьПустыеЗначения = 1);
void ЗагрузитьСПометками(Неопределенный Список, Число Пометка = 1);
} |
MetaEditor
140 - 30.11.2004 - 07:50 |
можно ли в скрипте явно указать тип переменной, как например в простом бейсике Dim buff as string (Dim buff$)
для чего нужно...
с помощью DynamicWrapper'a вызываю
Wrapper.Register "USER32.DLL", "SendMessage", "I=llls", "f=s", "r=l"
Wrapper.SendMessage (ActWND, WM_GETTEXT ,255, Buff)
так вот, Buff должна быть типа String (или PChar)...
не помогает ни buff=Space(255) ни buff=CStr(buff)ни buff=CStr(Space(255))
artbear, ты говоришь что давно работал с враппером, может я чего неправильно делаю... |
artbear
141 - 30.11.2004 - 08:09 |
(140) Попробуй вот так:
Dim Buff
Buff = String(128, "*")
Buff2 = Cstr(Buff)
count = Wrapper.SendMessage (ActWND, WM_GETTEXT ,255, Buff2)
If characters > 1 Then
Buff2 = Left(cstr(Buff2), count)
End If |
artbear
142 - 30.11.2004 - 08:11 |
(140+) Опечатка :)
Нужно вот так:
Dim Buff
Buff = String(128, "*")
Buff2 = Cstr(Buff)
count = Wrapper.SendMessage (ActWND, WM_GETTEXT ,255, Buff2)
If count > 1 Then
Buff2 = Left(cstr(Buff2), count)
End If |
a13x
143 - 30.11.2004 - 08:19 |
(140)
боюсь, что не прокатит - значения по ссылкам не передает :-(
а я думал, что только в jscript... |
a13x
144 - 30.11.2004 - 08:28 |
(140) если ничего не помогает, то прочитай инструкцию (с) народное
или посмотри примеры (с) это уже я :-)
посмотри внимательнее пример ccupd.vbs из дистриба дины, конкретно - регистрацию функции GetPrivateProfileString - там четвертый параметр объявлен как "r" - кажется, это и означает, что его нам вернут по ссылке :-)
судя по дальнейшему коду это так и есть |
MetaEditor
145 - 30.11.2004 - 08:30 |
таже история...
длина текста - то возвращается правильная, значит сообщение отрабатывает а вот сам текст возвращается как ************** (то есть то чем заполнили buff)
а у тебя, чего, это работает?
для сравнения, в вордовском бейсике работает
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As _
String) As Long
----------------------------------------------------
Dim Buffer$
Buffer = Space(255)
Call SendMessage(Handle, WM_GETTEXT, 20, Buffer)
Text1.Text = Buffer
End Sub |
artbear
146 - 30.11.2004 - 08:30 |
(140,143) Не знаю, как у вас, а у меня код наподобие (142) работает.
ЗЫ посмотрел поставку dynawrap: там есть пример ccupd.vbs, в котором также ф.GetPrivateProfileString возвращается значение в переменную KeyValue.
Приведенный мной код, похоже, я когда-то взял оттуда :) |
artbear
147 - 30.11.2004 - 08:32 |
(144) Точно, нужно "r" вставить место "s"
>>William Epp added anr 'r' for VT_BYREF (pass by reference)but is for
strings only. This made the GETPROFILESTRING function to work. But it
didn't work for the GETPROFILESECTION. If anyone gets it to work please
let me know. |
MetaEditor
148 - 30.11.2004 - 08:34 |
144) ну йопт.. шожты раньше то молчал... :) !!заработало!! |
a13x
149 - 30.11.2004 - 08:40 |
зато теперь надолго запомним :-) |
a13x
150 - 30.11.2004 - 08:45 |
(145)
нужно передать ссылку на переменную Buff
я не уверен, но в VB это можно сделать с помощью передачи PtrVar(Buff) или нечто подобного... вобщем, ссылка нужна
я не то в этой, не то в предыдущей ветке кидал ссылку на какой-то японский форум, там была куча примеров на тему передачи параметров по ссылке... правда, кроме примеров ничего там не разберешь - у меня даже шрифтов японских не установлено :-) |
MetaEditor
151 - 30.11.2004 - 08:52 |
150) ага, был я там...и сразу ушел... ну не понимаю я по ихнему... :))) |
artbear
152 - 30.11.2004 - 08:52 |
(150) У меня в Опере эту страницу показывает с иероглифами, но понятны только примеры скриптов и "пляшушие человечки" :) |
artbear
153 - 30.11.2004 - 09:00 |
(150+) А что, вроде там привели остроумное решение:
Function VBS_VarPtr(arg)
UserWrap.Register "shlwapi.dll", "StrCatW", "i=wl", "r=l"
VBS_VarPtr = UserWrap.StrCatW(CStr(arg), 0)
End Function
Set UserWrap = CreateObject("DynamicWrapper")
UserWrap.Register "user32.dll", "MessageBoxW", "i=hllu", "r=l"
s1 = "MessageBox (UNICODE)" & vbNullChar
s2 = "From DynaWrap Object" & vbNullChar
ret = UserWrap.MessageBoxW(Null, VBS_VarPtr(s1), VBS_VarPtr(s2), 3)
WScript.Echo ret |
IAm
154 - 30.11.2004 - 09:00 |
139 Зачем заносить? Читать при инициализации скрипта, ну или конвертер. |
artbear
155 - 30.11.2004 - 09:06 |
(154) А как ты это планируешь сделать?
я про "читать при инициализации скрипта" |
IAm
156 - 30.11.2004 - 09:11 |
155 Стукнись в аську. |
Dolter
157 - 30.11.2004 - 10:29 |
2(156)
ну, хотя бы, читать в КаталогИБ первый файл defcls.prm со всеми инклудами и из этих файлов вычитывать наименования классов и их методов (с атрибутами посложнее будет), которые описаны явно:
---------------------------------
класс _Меню=unpack\Classes\class_Меню.ert : СписокЗначений
{
Число Выбрать(Знач Строка стрПункты);
}
class РаботаСОле = unpack\Classes\class_РаботаСОле.ert
{ Число Инит(Строка СтрПараметры, ...);
void Отключиться();
Число Подключиться(Строка ВариантПодключения=");
Неопределенный СоздатьОбъектОле(Строка НаименованиеОбъекта)
Число Выполнить(Строка СтрокаКоманды);
} |
IAm
158 - 30.11.2004 - 10:37 |
То есть все наименования классов и методов в defcls.prm описаны? |
Dolter
159 - 30.11.2004 - 11:03 |
совершенно верно!
и все подключаемые файлы определений:
//#inсludе ...prm
имеют ту же структуру...
описаны и классы и их методы |
IAm
160 - 30.11.2004 - 11:05 |
Dolter,
Самое простое - создай файл <ИмяКласса>.ints и пропиши там методы,
формат простейший "0000 <ИмяАтрибутаИлиМетода>"(посмотри в других файлах ints), потому что вряд ли я буду с этим разбираться. Единственное что наверное сделаю, это поддержку BaseClass,
То есть если есть класс СписокЗначенийРасширенный, наследующий методы Списка значений, то возможно сделаю поддержку строки в файле Ints формата
Parent: <ИмяРодителя> и к методам данного файла будут добавлены методы родительского класса. |
IAm
161 - 30.11.2004 - 11:10 |
То есть в принципе можно конвертилку сделать, которая из файлов prm создаст файлы Ints, Но это задача элементарная, я думаю ты сам сможешь её сделать. |
artbear
162 - 30.11.2004 - 11:39 |
(161) Да уж, простенькая такая задачка :) |
Dolter
163 - 30.11.2004 - 11:40 |
пробую |
Dolter
164 - 30.11.2004 - 11:57 |
еще не доделал... но (еще не) возникла проблема:
для разных конфиг могут быть описаны одни и те же классы с разными методами...
т.е. по идее должны быть как глобальные Inst файлы, так и локальные, которые бы лежали, скажем, в КаталогИБ() + "\Intell" и подгружался совместно с глобальным...
причем(!) если есть в локальном классы с теми же именами, что и в глобальном, то они должны заменять последние... |
artbear
165 - 30.11.2004 - 11:58 |
Обновил свой скрипт "Замена кода"
[-] баг кода для облегчения работы с Телепатом, на который все жаловались и который самого заколебал.
Теперь работает верно и очень удобно :)
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=4200 |
IAm
166 - 30.11.2004 - 12:00 |
164
17706785 стукнись |
Dolter
167 - 30.11.2004 - 12:02 |
2(166) в номере уверен? |
artbear
168 - 30.11.2004 - 12:03 |
(164) А нафига ты используешь классы с одним названием, но разными методами?
ИМХО Если специально так не делать, это может быть, только если пользуешься классами других разработчиков и используешь одни названия классов.
Лучше не заморачиваться с этим, а пользовать один набор классов - и получить первый работоспособный вариант работы с классами 1С++
ЗЫ Я лично всегда на всякий случай для своих классов ставлю свой префикс. |
IAm
169 - 30.11.2004 - 12:03 |
177067865 |
artbear
170 - 30.11.2004 - 12:10 |
(165+) Забыл дописать:
Также в скрипте "Замена кода" есть удобные макросы для комментирования/раскомментирования строк.
Например, можно быстро закомментировать текущую строку, не выделяя ее, как у 1С - ИМХО так намного удобнее.
Эти макросы у меня лично сидят вместо 1С на <Ctrl+ Num /> и <Ctrl+ Shift + Num /> |
artbear
171 - 30.11.2004 - 12:18 |
(165+, 170+) Исправил маленький баг с положением курсора.
Кто успел закачать, закачайте еще раз. |
a13x
172 - 30.11.2004 - 12:46 |
(170)
Я еще использую мекрос для обрамления уже написанного блока маркерами начала и конца (типа "Это я так круто написал" :-))
Хотелось бы иметь все в одном файле. |
artbear
173 - 30.11.2004 - 12:49 |
Засылай код мне, я добавлю к своим и выложу для всех.
ЗЫ А где твоя ася?
И как со скриптом "СохранениеНастроек" ? |
a13x
174 - 30.11.2004 - 13:00 |
(173) по поводу сохранения настроек - ничего не трогал еще, да и вообще, до нового года врядли чего смогу сделать :-(
по поводу "выслать код" - он на js |
Dolter
175 - 30.11.2004 - 13:30 |
потестите плз конвертилку файлов описаний классов:
---
http://dolter.hotbox.ru/IntsConvert.zip |
Dolter
176 - 30.11.2004 - 13:34 |
блин... кажись с инклудами недоработал... |
artbear
177 - 30.11.2004 - 14:21 |
(176) И еще не работает с алиасами типа #КаталогОбщий |
Dolter
178 - 30.11.2004 - 14:52 |
2(177) а зачем работа с алиасами путей? там же только реализация класса, а отнюдь не требуемое описание методов... |
artbear
179 - 30.11.2004 - 14:56 |
(178) С чего вдруг?
Как думаешь, что означает конструкция в КаталогИБ\defcls.prm
//#inсludе "#КаталогОбщий\ExValueList\ExValueList.prm"
//#inсludе "#КаталогОбщий\ОЛЕ\РаботаСОле.prm"
?
Как раз указание использовать новые определения классов с описаниями методов. |
Dolter
180 - 30.11.2004 - 15:19 |
2(179) спасибо, вроде исправил:
попробуем еще раз:
http://dolter.hotbox.ru/IntsConvert.zip |
artbear
181 - 30.11.2004 - 15:58 |
(180) Опечатка у тебя: файл <o><x><i>.ini должен называться <o><x><y>.ini |
artbear
182 - 30.11.2004 - 16:04 |
(180) На моем наборе классов выдает ошибку
текТ.ДобавитьСтроку("0000 " + Сред(тСтр, т2 + 1, т1 - т2 - 1) + "(" + ?(т3 - т1 > 1, "f", "") + ")");
{G:\1C\INTSCONVERT.ERT(122)}: Значение не представляет агрегатный объект (ДобавитьСтроку)
По какой-то причине текТ не установился :( |
artbear
183 - 30.11.2004 - 16:07 |
(182+) Ага, уже понял. У тебя не учитывается регистр.
Например, может быть Класс
ПОправишь? |
artbear
184 - 30.11.2004 - 17:27 |
(183) Поправил твой код и у меня все нормально отработало.
Только чтобы можно было использовать классы 1С++ типа "Общие.СписокЗначений" (т.е. у которых в названии есть точка), нужно немного поправить Интеллисенс.вбс от ИАм-а.
Конкретно, в районе строки 1226, там где
Case "QUERYATTRS":
Methods = GetQueryAttrs(lCase(ExprParts(0)), "")
нужно добавить
' -- Артур --
Case "_":
ObjParts = Split(ObjType, vbCRLF)
' -- завершение |
artbear
185 - 30.11.2004 - 17:53 |
(Dolter) Если сам не поправил, дай адрес, я зашлю свой рабочий вариант. |
MetaEditor
186 - 01.12.2004 - 03:56 |
гляньте вот тут скриптик, может кому понравится...
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=4401 |
вин
187 - 01.12.2004 - 06:30 |
простите за тупой вопрос
поставил опенконф 6 версии скачал телепат в конфигураторе говорю загрузить плагин 1с выдает такую хрень:
Телепат: При загрузке типов 1С произошла ошибка.
XML parser. Код 0x800C0005
Не удается найти указанный ресурс.
Телепат будет работать не в полном объеме.
пайзер переставил тоже самое |
artbear
188 - 01.12.2004 - 07:25 |
(MetaEditor) Мне скрипт понравился. Поздравляю с принятием в Клуб.
Пожелание для развития я тебе написал.
(187) Телепат скачай версии 2, ты закачал и используешь первую :( |
artbear
189 - 01.12.2004 - 07:34 |
(187) А еще специально для таких, как ты, новичков, написан (0)
Почитай, там много полезного :) |
Номер 6
190 - 01.12.2004 - 07:56 |
(186)
Доступно только для участников клуба :-( |
MetaEditor
191 - 01.12.2004 - 08:04 |
190) галку "только для участников" не ставил, лицензия - бесплатная... не знаю... может попозже ... |
artbear
192 - 01.12.2004 - 08:24 |
(190) Еще раз попробуй. После принятия в Клуб разработка должна быть доступна для всех. |
Вежливый
193 - 01.12.2004 - 08:24 |
М.б. немного ОФФ, но ...
Вчера раздраженный очередным вылетом из конфигуратора (был потерян час работы) вырубил и опенконф и телепата. Сегодня утром обнаружил, что без Телепата уже больше не могу :-( Пришлось качать и ставить новую версию :-)
Когда же будет рабочий коммерческий релиз!!!? |
artbear
194 - 01.12.2004 - 08:35 |
(193) Что за "очередной вылет" из Конфигуратора? Работаю уже с Опенконфом не первый год, c новым Телепатом уже полгода (был тестером), практически никаких проблем не возникало. А вылеты очень и очень редки (раз в месяц/два месяца)? |
Номер 6
195 - 01.12.2004 - 08:58 |
(192)
не, нифига |
MetaEditor
196 - 01.12.2004 - 09:01 |
195)попробуй пойти не по ссылке из 186 а через главную страницу проклуба ... там внизу список новых разработок... |
Вежливый
197 - 01.12.2004 - 09:01 |
(194) У меня стабильно раз в неделю. Сейчас скачал все новое посмотрим. Но невзирая на усе вещица просто шоколадная. |
artbear
198 - 01.12.2004 - 09:02 |
(195) Или через (0) - раздел "Опенконф" |
a13x
199 - 01.12.2004 - 09:02 |
+(195) я вообще имени файла не вижу и при скачивании он мне отдает визит.пхп :-( |
artbear
200 - 01.12.2004 - 09:09 |
(ALL) Скрипт для OpenConf'a для быстрого перехода к формуле элемента управления
Автор: MetaEditor
----------------------------------------------------------------
Скрипт позволяет осуществить быстрый переход к процедуре/функции заданной в поле "Формула"
элемента управления.
Для этого необходимо в окне свойств элемента установить курсор в поле "Формула" и нажать
назначенную макросу комбинацию горячих клавиш.
При наличии такой функции/процедуры в модуле происходит переход к ней,
в противном случае - она создаётся.
----------------------------------------------------------------
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=4401 |
a13x
201 - 01.12.2004 - 09:20 |
2(MetaEditor)
спасиб, работает :-)
только после создания процедуры/функции желательно позиционировать курсор в ее тело (между Процедура бла_бла () и КонецПроцедуры)
эх... и как бы хотелось отловить двойной клик на элементе диалога, чтобы не лазить в совойства контрола и перемещаться к обработчику автоматом!
кстати, имя обработчика можно брать в исходном коде диалог-стирима контрола, а двойной, клик так и быть, котов променять на хоткей ;-) |
artbear
202 - 01.12.2004 - 09:26 |
(201) Я счас подобным и занимаюсь :) |
Номер 6
203 - 01.12.2004 - 09:33 |
(202)
"формула" может ссылаться и на глобальный модуль |
Dolter
204 - 01.12.2004 - 09:52 |
(artbear) dolter<...>snq<...>ru
заранее спасибо :-) |
MetaEditor
205 - 01.12.2004 - 09:58 |
кстати, как получить глобальный модуль через ОпенКонф, или с АПИ заморачиваться? |
IAm
206 - 01.12.2004 - 10:57 |
Documents.Item("Глобальный модуль") |
artbear
207 - 01.12.2004 - 10:57 |
(205)
Sub OpenGlobalModule()
Documents("ГлобальныйМодуль").Open
End Sub ' OpenGlobalModule |
trdm
208 - 01.12.2004 - 12:52 |
Каким макаром вы добираетесь до проклуба?
У меня пишет:
Connection to server 1c.proclub.ru failed (Connection actively refused by the server.)
Уже второй день, такое впечатление как будто меня вырубили :( |
Тертый
209 - 01.12.2004 - 13:01 |
Это он упал, часа 2 назад все работало, я скачал. |
trdm
210 - 01.12.2004 - 13:24 |
Перекиньте скрипт из 200 на trdm!rambler.ru, плз. |
Тертый
211 - 01.12.2004 - 13:27 |
ушло |
MetaEditor
212 - 01.12.2004 - 13:34 |
завтра положу хотфикс, а то проклуб не отвечает
1) добавлен переход к глобальным процедурам
2) исправлена ошибка при переходе к процедуре с параметрами
3) добавлено позиционирование в созданную процедуру |
Тертый
213 - 01.12.2004 - 13:38 |
212) Хорошая штука! |
trdm
214 - 01.12.2004 - 14:08 |
(211) Спасибо, ушло.
Кстати, ИМХО возможно использование скриптов и в таблицах,
только там не в dor.Range() надо пихать а СендКейсом.
Пробовал кто нибудь? |
trdm
215 - 01.12.2004 - 14:12 |
-(214) Вернее поймал. |
slavka
216 - 01.12.2004 - 14:55 |
(214) вроде у orefkov'a в скрипте agent.vbs что-то было. |
ondul
217 - 01.12.2004 - 15:43 |
(213) - Пропустил эпоху телепата, пробую, выдает следующее:
===
Скрипт C:\PROGRAM FILES\1CV77\BIN\config\scripts\1cv7srct.st
Не удалось получить имя скриптового движка.
Скрипт C:\PROGRAM FILES\1CV77\BIN\config\scripts\1cv7srct.st
Не удалось получить имя скриптового движка.
Скрипт C:\PROGRAM FILES\1CV77\BIN\config\scripts\history.txt
Не удалось получить имя скриптового движка.
Скрипт C:\PROGRAM FILES\1CV77\BIN\config\scripts\history.txt
Не удалось получить имя скриптового движка.
Скрипт C:\PROGRAM FILES\1CV77\BIN\config\scripts\telepat.chm
Не удалось получить имя скриптового движка.
Скрипт C:\PROGRAM FILES\1CV77\BIN\config\scripts\telepat.chm
Не удалось получить имя скриптового движка.
===
Пожалуйста, ткните носом, куда - до концентрированного выражения мысли, как лечит трабл, чего не хватает?
!!! |
Номер 6
218 - 01.12.2004 - 15:54 |
(217)
В \scripts должны лежать только скрипты. |
ondul
219 - 01.12.2004 - 16:34 |
(218) - благодарю!, :-) |
Bot
220 - 01.12.2004 - 16:44 |
Пора придти Орефкову и объявить о выходе telepat v2.0.0.0p. А то ветка уже подыхает... |
Тертый
221 - 01.12.2004 - 16:56 |
Орефков! Орефков! Орефков! Орефков! Орефков! Орефков! Орефков! Орефков! |
Тертый
222 - 01.12.2004 - 16:58 |
+220) лучше о "работе после точки"... |
Michael
223 - 01.12.2004 - 17:03 |
(220) обманул
Хотя вот все равно мен не понятно...
И trdm и IAm кропают классные вещи...
И через несколько точек работает...
А Орефков бросил тему дополнения Методов,Реквизитов...?
У него все равно лучше выглядит т.к. есть пиктограммки |
orefkov
224 - 01.12.2004 - 17:10 |
(223)
Да не бросил я :)
Делаю потихоньку.
Просто последние две недели была другая работа.
Ее вроде закончил, опять засяду за телепата.
Есть вообще безумная мысль, совсем подменить редактор
1Совский на ченить свое, чтобы там сворачивание процедур
сделать, и тп. Но это отдаленные планы. |
Тертый
225 - 01.12.2004 - 17:32 |
224)(шепотом...) и когда планируется бета версия "после точки"? |
IAm
226 - 01.12.2004 - 17:34 |
(криком...)Какая разница когда планируется? Важно когда будет. |
slavka
227 - 01.12.2004 - 17:34 |
(224)так мож и дебагер в конфигуратор тож всунуть? |
Тертый
228 - 01.12.2004 - 17:35 |
226) Поддерживаю!
224) Када будет?!!! |
trdm
229 - 01.12.2004 - 18:02 |
(224) Ждем.... Отличная продвинутая вещь получается....
(186) Отличная штучка получилась, поругалась правда на Comon, но это легко порпавимо. Попробовал эмулировать ESC в скрипте, чтобы убрать окошко свойств, но походу надо использовать не SendKeys а типа PostMessage, т.к. видимо фокус ввода переключается на окно редактора и ESC уходит туда, а редактору "ESC" до лампочки, но пока не добрался. Есть наметки продвинуться в этом направлении? |
orefkov
230 - 01.12.2004 - 23:10 |
(227)
А ты положи trace.dll в bin\config :)
Правда, вылетает при попытке точку останова поставить. |
trdm
231 - 02.12.2004 - 03:33 |
Новая вариация "Подсистем" - "Подсистемы3"
http://www.trdm.mail333.com/SubS3.zip
на базе: http://openconf.itland.ru/beta/htmlview.zip
Установка (Копируем):
"SubS3.htm" в каталог "bin"
"SubS3.js" в каталог "Scripts"
Запускаем: SubS3->ShowSubS3
Работа:
Выводится WEB-страница с двумя деревьяим, в левом усеченные метаданные, в
правом окошко с подсистемами. Кнопка "Новая" Добавляет подсистему.
2 режима работы формы:
1. Режим пометки объектов. Строится "полное" дерево метаданных.
В левом окошке выделяем объект, Справочик, документ и т.п.
в правом отмечаем те подсистемы, которые относятся к объекту
2. Режим фильтрации объектов: отмечая в списке галочками подсистемы дерево
метаданных фильтруется, оставляя только те объекты, которые относятся
к выделенным подсистемам.
Флажок "Сорт" позволяет включить/отключить опцию сортировки объектов в дереве.
формы объектов открываются в TreeView1_DblClick() двойным щелчком или Enter.
Хранение данных:
SUBC.DBF - список подсистем (каталог БД)
SUBOBJ.DBF - объекты в связке с подсистемами (каталог БД) |
artbear
232 - 02.12.2004 - 08:21 |
(trdm) В аську выйди, я там тебе отписал кое-что :) |
orefkov
233 - 02.12.2004 - 08:49 |
(231)
Посмотри плагин IExplorer на openconf'e, там как раз
позволяет организовать удобный веб-интерфейс, и самое главное
позволяет из скриптов на хтмл-странице без проблем обращатся
к опенконфу. |
slavka
234 - 02.12.2004 - 10:07 |
(227) так не надо чтоб вылетал :)
(ALL) кто как думает нужен ли скрипт который будет с реестром работать? |
MetaEditor
235 - 02.12.2004 - 10:11 |
234) так есть же "WScript.Shell" ... |
artbear
236 - 02.12.2004 - 10:12 |
(234) Ты говоришь о настройках в реестре? |
slavka
237 - 02.12.2004 - 10:19 |
(234) вот я и хочу это завернуть в скрипт. сделать что-то наподобие common.vbs но только для работы с реестром.
(235) чтение, запись и т.д. |
slavka
238 - 02.12.2004 - 10:24 |
упс... в 237 вместо 234 - 235, а вместо 235 - 236. |
a13x
239 - 02.12.2004 - 10:43 |
2(238)
236 актуальнее вроде - выгрузка настроек телепата и настроек скриптов, которые хранят свои установки в реестре во внешний файл
есть наброски - может подхватишь, раз собрался с реестром возиться? как раз попутно и библиотеку напишешь для работы с реестром?
вот это
http://kuntashov.narod.ru/files/settings.js
то что было набросано на эту тему (JScript), может быть, поможет
если что, вопросы на akuntashov - собака! - ru/yandex |
slavka
240 - 02.12.2004 - 11:00 |
(239) до библиотеки мне еще знаний не хватает, а вот скрипт осилю. http://kuntashov.narod.ru/files/settings.js посмотрю мож и пригодиться. |
slavka
241 - 02.12.2004 - 12:05 |
на http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=4404
выложил скрипт "Поиск ссылок". Отличие от стандартного поиска в том что поиск идет не только в реквизитах, но и в модулях. |
Тертый
242 - 02.12.2004 - 12:10 |
Большое спасибо!
Извините, но Вы не имеете достаточных прав для скачивания данной разработки.
Данная разработка предназначена только для участников КЛУБА. |
MetaEditor
243 - 02.12.2004 - 12:10 |
!Проклуб завёлся...!
обновил скрипт GoToFormula
1) добавлен переход к глобальным процедурам (те что начинаются на "гл")
2) исправлена ошибка при переходе к процедурам с параметрами
3) добавлено позиционирование в созданную процедуру
http://1c.proclub.ru/modules/mydownloads/personal.php?lid=4401&cid=1001 |
slavka
244 - 02.12.2004 - 12:11 |
нужно чтоб кто-нибудь ее принял. |
The_JOhn
245 - 02.12.2004 - 12:22 |
подскажите , плз, на каком языке пишут скрипты для OpenConf
сорри за такой вопрос, но когда-то ведь надо начинать???
я так понял это VB? |
trdm
246 - 02.12.2004 - 12:24 |
(233) Я его только сегодня увидел.
(243) А на 229.2 не заглядывался? На счет убрать окно свойств, когда оно пришпилено? |
a13x
247 - 02.12.2004 - 12:27 |
любой язык, для которого реализован Active Scripting Engine,
по дефолту в видах установлены VBScript и JScript
подробнее http://www.mindspring.com/~mark_baker/langgen.htm#LEG1 (на англ)
вот здеть http://www.mvps.org/scripting/languages/ более полный список, тоже на английском |
MetaEditor
248 - 02.12.2004 - 12:28 |
246) щас подумаю... |
The_JOhn
249 - 02.12.2004 - 12:29 |
(247) Спасибо |
SlaBoy
250 - 02.12.2004 - 12:38 |
При загрузке Конфигуратора в скриптах ругается на строку "Set CommonScripts = Scripts("common")" ругается на "Недопустимый индекс common":(
Как это можно победить?..
Win2K4SP, 1C 23SQL, WSH 5.6 |
a13x
251 - 02.12.2004 - 12:40 |
(250) это библиотечный скрипт, там собраны все общие функции и многие скрипты зависят от него
так что тебе нужен этот самый common.vbs, скачай, например, с проклаба скрипт "Замена кода" artbear'a - там, если не ошибаюсь, последняя версия этого скрипта |
