Download
MS SQL
...
1++, OOP, XP
FuncTest
FAQ
1cv7.md
/2/ . ( 25?)
artbear
31.10.2005 - 16:14
, .
--------------------------------------------------------------------
- aka orefkov
, /
--------------------------------------------------------------------
+ / ( )
http://openconf.itland.ru/beta
( 31.10.05) ( )
OpenConf 1.0.2.0 - http://openconf.itland.ru/beta/oc1020.zip
2.0.0.0r (beta) - http://openconf.itland.ru/beta/telepatr.zip
--------
:
Young , ,
.
http://www.script-coding.info
--------------------------------------------------------------------
FAQ
http://1c.alterplast.ru/faq/telepat.html
http://1c.alterplast.ru/faq/openconf.html
/
http://1c.alterplast.ru/faq/telepat.html
----------------------------------------------------
(fez) .
, .
-----
ChangeLog http://1c.alterplast.ru/files/ocs/changelog.html
-----
.
, , :)
- - , :)
-----

http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip
.
-----
http://1c.alterplast.ru/files/ocs/ ( )
ChangeLog .
----------------------------------------------------
, , - cvs.alterplast.ru
http://kuntashov.narod.ru/openconf-installer.html
( www.proclub.ru)
31.10.05 http://kuntashov.narod.ru/files/oc1020b20050806.exe ( 06.08.05)
--------------------------------------------------------------------
itland.ru ( .. )
http://itland.ru/forum/index.php?showforum=37
--------------------------------------------------------------------
/
http://1c.proclub.ru/modules/mydownloads/viewcat.php?op=&cid=1002
--------------------------------------------------------------------
- - , , , http://openconf.itland.ru

1 - 31.10.2005 - 16:18
:)
artbear
2 - 31.10.2005 - 16:20
,
--
(ALL)
----
Intellisence.vbs
----
[+] ints- 1++
1) 1 (, , ),
2) , (, .);
3) ints- 1++ Intell\1++,
4) ints- 1++ Intell,
5) ;
[*] ints- Intell,
, , Intell\1++;
[-] 1, . 1++ "";
[+] ;
[-] "DisableDebugMessages" ;
---
: trdm
[+] GetMainType() " = ("");" "" OLE-Automation , *.ints- Intellisence. , ReloadDictionary.
[+] ReloadDictionary, , . : BinDir & "\Config\Intell"
: "TypesStructureExt.txt" "OtherTypesDefine.txt"
[+] GetVTFields(lCase(ExprParts(0)), ""), XBase, " = ("XBase");"
: .("");
----
intsOLEGenerator.vbs - *.ints COM- Intellisence.vbs
als-.
trdm
----
1) Generator, *.ints- -
2) ReGenerator - .
: als- ints-, .
----
  , 1++, - , Update1CppInts Intellisence.vbs,
:)
---
.
http://1c.alterplast.ru/files/ocs/changelog.html
trdm
3 - 01.11.2005 - 12:13
(24.247) to Young
1. ReGenerator , - , Generator', - ?
, :
- ( ), ( - ProgIDDumped.txt, ReGenerator ).
- ints , als-, als-.
- ....
2. ALS-? , , ...
- , . .
3. CommonGenerator TestLibrary - , . , Generator, TLBINF32.DLL Generator' ( ).
CommonGenerator - , TestLibrary- ...
to orefkov, /, OC, , .... xml ..
Young
4 - 01.11.2005 - 12:59
(3) , .
jbond
5 - 01.11.2005 - 14:54
OpenConf Power Pack Win 2K SP4
- 'Matches'
orefkov
6 - 01.11.2005 - 15:39
/. 8,
xml-

7 - 01.11.2005 - 15:42
!
a13x
8 - 01.11.2005 - 16:07
(5) WSH < 5.6
trdm
9 - 01.11.2005 - 16:23
(5) - .
'Matches' - , , , ?
jbond
10 - 01.11.2005 - 16:34
OpenConf.RegistryIniFile.wsc
a13x
11 - 01.11.2005 - 16:40
(10) . , ...
.
, , VBScript, RegExp-engine Win 2k SP4 . ( ).
.
WSH 5.6+.
.
Win2k Server SP4, .
jbond
12 - 01.11.2005 - 16:42
- 'Matches'

136 10
:
.js
6 9

SendCommand()
author.js
navigator.js
a13x
13 - 01.11.2005 - 16:49
... ...
- , js- (" ")...
artbear
14 - 01.11.2005 - 16:57
(12) , a13x , / WSH 5.6 :)
Young
15 - 02.11.2005 - 13:32
Intellisense:
http://www.script-coding.info/Intellisense.html
( " ints-".)
Phoenix
16 - 02.11.2005 - 13:57
subsystems 1.3.3.3
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=4558
.
,
,, , 1.
.
, .
.
ExtMD 1.0.0.0
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=5901
OpenConf.
, , .
, , .
(Delphi 2005)
, ,
Delphi.
Ig
17 - 02.11.2005 - 14:47
Intellisense, , .
:
()
    = (".");
   .<--- , .
   
   
   
    = (".");
   ...

, .
Ig
18 - 02.11.2005 - 14:49
, :
CurrentLine - /</>
RSide - /</>
- /</>
- /</>
/</> - /</>
- /<./>
- /<./>
trdm
19 - 02.11.2005 - 15:03
(17) . Intellisense. IAm . . Dots : , , . .
- OLE - , ((( dll(((, .
trdm
20 - 02.11.2005 - 15:13
(15) "... , ALS- -, . ..." - , - "".
+ () "... COM ...", , .... / ... , COM, ...
Ig
21 - 02.11.2005 - 15:18
, , . .
: 'Intellisence.vbs ver. 1.1.9
': $Revision: 1.1 $
, - , ?
Ig
22 - 02.11.2005 - 15:24
, , . .
: 'Intellisence.vbs ver. 1.1.9
': $Revision: 1.1 $
, - , ?
Young
23 - 02.11.2005 - 15:40
(20) " COM-". " COM-, OLE-Automation", ( , )? " ", , .
"" .
Ig
24 - 02.11.2005 - 15:54
, , . .
: 'Intellisence.vbs ver. 1.1.9
': $Revision: 1.1 $
, - , ?
Ig
25 - 02.11.2005 - 15:57
-, :-(
Young
26 - 02.11.2005 - 22:28
OpenConf?
http://itland.ru/forum/index.php?s=22f872c2b046f3ce4131e8b61cc8fcf7&showtopic=10267&st=0

27 - 03.11.2005 - 08:00
(23)
, . , "" COM- (.. ).

28 - 03.11.2005 - 08:03
+27 ... , , .
jbond
29 - 03.11.2005 - 09:13
.:
intsOLEGenerator
132 3
DMessage
jbond
30 - 03.11.2005 - 09:15
, - / DMessage
Young
31 - 03.11.2005 - 13:26
+(26) , OpenConf ?
trdm
32 - 03.11.2005 - 13:31
(29) . .

33 - 03.11.2005 - 13:36
32) , .
trdm
34 - 03.11.2005 - 18:55
, intsOLEGenerator. :
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=5815
:
* intsOLEGenerator.vbs 1.15:
  [-] .
  [+] - -.
trdm
35 - 04.11.2005 - 00:21
MetaEditor, ..
MetaEditor
36 - 04.11.2005 - 09:40
35)
artbear
37 - 07.11.2005 - 09:19
, - , html-,
1) , ,
2) , .. " ".
, .
html , :(
?
a13x
38 - 07.11.2005 - 10:53
(37) " " ? :-)
, - , js ?
.
-- - ( , , , 1.2 ). , .
.
, "", (), /.
SAX XML-.
.
:
* SimpleDumper - / ( )
* IntsDumper - , Intel'
* XMLDumper - XML , xml2tls tls- . , tlbinf32 :-(, "" xml-, .
.
, , , : ( , ?). , :-(.
.

http://kuntashov.narod.ru/files/intsOLEGen_a13x_20051107.zip
trdm
39 - 07.11.2005 - 11:22
(37) , , ... - ....
(38) ? .
a13x
40 - 07.11.2005 - 11:28
(39) , , :-)
artbear
41 - 07.11.2005 - 11:35
(38) , .
js , html
trdm
42 - 07.11.2005 - 19:13
(38) ? . , ))).
a13x
43 - 07.11.2005 - 19:19
(42) ,
? 1.2, ?
a13x
44 - 07.11.2005 - 19:49
(42) , , , , , , , , .
.
kuntashov - ! - .
a13x
45 - 07.11.2005 - 20:24
(41) done
.
.
(//HtmlDlgExample.htm //HtmlDlgExample.js).
.
, htm- <BinDir>\config\data
.
- :-)
artbear
46 - 08.11.2005 - 07:03
(45) , , :)
.
sashat
47 - 08.11.2005 - 08:15
OpenConf?
:(
?
artbear
48 - 08.11.2005 - 08:24
(47) ?
a13x
49 - 08.11.2005 - 08:29
(45) :-)
(47)

OpenConf



1. , FileVersion - __ ( - - , )
2. .
: dll- , , ... ,
.
.
sashat
50 - 08.11.2005 - 08:39
telepata.
dll 1
FileVersion :(
sashat
51 - 08.11.2005 - 08:45
>1.
> , FileVersion - __
>( - - ,
> )
telepat .
a13x
52 - 08.11.2005 - 08:47
(51) -
sashat
53 - 08.11.2005 - 08:56
?
.
.
a13x
54 - 08.11.2005 - 08:59
(53) , ? ?
-, ?
orefkov
55 - 08.11.2005 - 09:28
(54)
OpenConf-
, ,
a13x
56 - 08.11.2005 - 09:57
(55) , , , (53) , " "
.
, :
1.
2. , " 1"
3. (" 1")
4. , " 1"
5. enter
6.
sashat
57 - 08.11.2005 - 10:04
. .
"" .
"""""ProgID". ""
a13x
58 - 08.11.2005 - 10:14
(57) , :(
" "
kuntashov - ! - .
artbear
59 - 08.11.2005 - 11:43
() - - ,
..
  Set navigat = createobject("InternetExplorer.Application")
' Set navigat = OpenOleForm("Shell.Explorer", "")
  SelfScript.AddNamedItem "navigat", navigat, False

Sub navigat_DocumentComplete(navigat1, url)
    Echo "DocumentComplete - " & url
    blnDone = true
End Sub
?
trdm
60 - 08.11.2005 - 16:37
(59) . ?
a13x
61 - 08.11.2005 - 17:11
(69) . , ScriptX , - (, ) ...
.
, - js - , html, , .
artbear
62 - 09.11.2005 - 06:33
(61) . - :)
orefkov
63 - 09.11.2005 - 08:25
(59)
VBScript IE, JScript .
-
.
orefkov
64 - 09.11.2005 - 08:35
+63
http://openconf.itland.ru/beta/htmlview.zip
a13x
65 - 09.11.2005 - 09:15
(62) MSScriptControl'
,
artbear
66 - 09.11.2005 - 09:18
(64) , , JS , .
, JS :)
(65) MSScriptControl , . , - ?
a13x
67 - 09.11.2005 - 09:52
(66) , , , , :
'
Class EventProxy
Sub DocumentComplete(d, u)
Message("Hello!")
End Sub
End Class
'
Sub RunIE
'
MSScriptControl.AddObject "EP", new EventProxy
MSScriptControl.AddObject "SE", OpenOleForm("Shell.Explorer", "test")
MSScriptControl.AddCode
"Sub SE_DocumentComplete(d, u)" + vbCrLf + _
"EP.DocumentComplete(d, u)"+ vbCrLf + _
"End Sub"
'
EndSub
'
,
js, ,
, - ""
- , " ", . , js , vbscript :(
fez
68 - 10.11.2005 - 00:03
up
artbear
69 - 10.11.2005 - 18:17
alest .
,
"" .,

= ..
,
.. , :(
, - - ?
artbear
70 - 10.11.2005 - 18:31
(69+) :(
artbear
71 - 10.11.2005 - 18:57
()
, 1++
---------------
, :) ,
- 1++ , , , , ..
trdm
72 - 11.11.2005 - 00:32
(71) )))
, , . , "" "DynaValue" "" ;)
artbear
73 - 11.11.2005 - 18:11
(ALL) Intellisence.vbs
[+] "..", ;
, "" ".", .
trdm
74 - 14.11.2005 - 11:39
^
trdm
75 - 14.11.2005 - 15:54
NavigationTools->SelectMetadataAndGotoObj.
SelectMetadataAndGotoObj ? ?
artbear
76 - 15.11.2005 - 07:01
(75) , .
Young
77 - 16.11.2005 - 12:23
ERT, . Ctrl+S - , . ?
MetaEditor
78 - 16.11.2005 - 12:59
77) ...
doc.path ...
75) ... ...
MAXXL
79 - 16.11.2005 - 13:10
=(" ? ?
trdm
80 - 16.11.2005 - 13:42
(79) ""
"..\BIN\config\Intell\.ints"
Young
81 - 16.11.2005 - 15:32
(80) ?
trdm
82 - 16.11.2005 - 15:53
(81) .
a13x, ?
a13x
83 - 16.11.2005 - 16:00
(82) , .
, . :-).
MAXXL
84 - 16.11.2005 - 17:26
(80) :-( - oc1018
Young
85 - 16.11.2005 - 17:48
(84) Intellisense
http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip
+ OpenConf .
...
Young
86 - 18.11.2005 - 13:53
, , OpenConf ?
http://itland.ru/forum/index.php?showforum=37
...
Young
87 - 18.11.2005 - 13:56
+(86) ,
http://itland.ru/forum/index.php?s=907dbc9d52fa62be7e93fcaa0b71d9e3&showtopic=10267
serega324
88 - 18.11.2005 - 14:01
, ERP ?
a13x
89 - 18.11.2005 - 14:10
, http://www.justfuckinggoogleit.com/
:-)
serega324
90 - 18.11.2005 - 14:13
Google Is Your Friend
All Smart People Use Google
It Appears That You Are Not One Of Them (??? )
Someone thinks you are an idiot because you were too stupid to check Google before asking a question. They gave you a link to this site as a joke. The fact that you followed it pretty much proves the point.
a13x
91 - 18.11.2005 - 14:33
(90) , , .
: open source erp
artbear
92 - 21.11.2005 - 13:02
(a13x)
1) als2xml.js .
, " "
2) - als :(
/
als-: Automation.als

...
als2xml.js(295, 2) Microsoft JScript: "0" - null
a13x
93 - 21.11.2005 - 13:13
(92) , , - ,
,
.
als' ? ?
urbd.als (), v7plus.als ( ) 1c++.als (.),
, - :-)
trdm
94 - 21.11.2005 - 14:36
- ...
Phoenix
95 - 21.11.2005 - 15:33
, .
, .
: ++
CVS ;)
//
// Author: Phoenix
// email: PhoenixUSA@yandex.ru
// ,
//
var sArcPath = "d:\\ert\\";
var QuestOnSaving = true;
var SaveForm = true;
function SetUnSetQuestOnSaving()
{
  if (QuestOnSaving)
  {
    QuestOnSaving = false
    Message(" ",mInformation);
  }
  else
  {
    QuestOnSaving = true
    Message(" ",mInformation);
  }
}
function SetUnSetSaveForm()
{
  if (SaveForm)
  {
    SaveForm = false
    Message(" ",mInformation);
  }
  else
  {
    SaveForm = true
    Message(" ",mInformation);
  }
}
function ZeroZero(num)
{
  return (num>9)?num:('0'+num);
}
function GetCurrentDateTime()
{
    with (new Date)
    {
    return String(getYear()).substr(2,2)+
      "_"+ZeroZero(getMonth())
      +"_"+ZeroZero(getDate())
      +"-"+ZeroZero(getHours())
      +"_"+ZeroZero(getMinutes())
      +"_"+ZeroZero(getSeconds());
  }
}
function GetFileName()
{
  if (!(Windows.ActiveWnd == null))
  {
    var WndName = Windows.ActiveWnd.Document.Name;
    if (WndName.substring(0,41)=="CWorkBookDoc:: () - ")
    {
      var SaveFileName = WndName.substring(41,WndName.length);
      return SaveFileName;
    }
    else
    {
      return WndName;
    }
  }
}
function SavePage(vPage,vExt)
{
  if (!(Windows.ActiveWnd == null))
  {
    var WndName = Windows.ActiveWnd.Document.Name;
    if (WndName.substring(0,41)=="CWorkBookDoc:: () - ")
    {
      var WndPage = Windows.ActiveWnd.Document.Page(vPage);
      WndPage.SaveToFile(sArcPath+GetFileName()+"_"+GetCurrentDateTime()+vExt);
    }
  }
}
function SaveModule(vPage,vExt)
{
  SavePage(1,".1s")
}
function SaveForm(vPage,vExt)
{
  SavePage(0,".frm")
}
function LoadPage()
{
  if (!(Windows.ActiveWnd == null))
  {
    var WndName = Windows.ActiveWnd.Document.Name;
    if (WndName.substring(0,41)=="CWorkBookDoc:: () - ")
    {
      with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100);
      if(res==6)
      {
        vPage = 1;
      }
      else
      {
        vPage = 0;
      }
      var WndPage = Windows.ActiveWnd.Document.Page(vPage);
      
      with (new ActiveXObject("Svcsvc.Service"))
        LFileName = SelectFile(true, sArcPath+GetFileName()+"*", GetFileName()+" (*.*)|"+GetFileName()+"*.*", false);
      if (!(LFileName)=="")
      {
        WndPage.LoadFromFile(LFileName);
      }
    }
  }
}
function LoadPageFree()
{
  if (!(Windows.ActiveWnd == null))
  {
    with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100);
    if(res==6)
    {
      vPage = 1;
    }
    else
    {
      vPage = 0;
    }
    var WndPage = Windows.ActiveWnd.Document.Page(vPage);
    
    with (new ActiveXObject("Svcsvc.Service"))
      LFileName = SelectFile(true, sArcPath+"*.*", GetFileName()+" (*.*)|"+GetFileName()+"*.*", false);
    if (!(LFileName)=="")
    {
      WndPage.LoadFromFile(LFileName);
    }
  }
}
function SavePageFree()
{
  if (!(Windows.ActiveWnd == null))
  {
    with (new ActiveXObject("Svcsvc.Service"))
      LFileName = SelectFile(true, sArcPath+GetFileName()+"*", GetFileName()+" (*.*)|"+GetFileName()+"*.*", false);
    if (!(LFileName)=="")
    {
      with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100);
      if(res==6)
      {
        vPage = 1;
      }
      else
      {
        vPage = 0;
      }
      var WndPage = Windows.ActiveWnd.Document.Page(vPage);
      WndPage.SaveToFile(LFileName);
    }
  }
}
function Configurator::OnFileSaved(W)
{
  if (QuestOnSaving)
  {
    with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100);
    if(res==6)
    {
      SavePage(1,".1s");
      if (SaveForm)
      {
        SavePage(0,".frm");
      }
    }
  }
  else
  {
    SavePage(1,".mdl");
    if (SaveForm)
    {
      SavePage(0,".frm");
    }
    
  }
}
//
function Init(_) // ,
{
    try {
        var c = null;
        if (!(c = new ActiveXObject("OpenConf.CommonServices"))) {
            throw(true); //
        }
        c.SetConfig(Configurator);
        SelfScript.AddNamedItem("CommonScripts", c, false);
    }
    catch (e) {
        Message(" OpenConf.CommonServices", mRedErr);
        Message(" " & SelfScript.Name & " ", mInformation);
        Scripts.UnLoad(SelfScript.Name);
    }
}
Init(); //
artbear
96 - 22.11.2005 - 07:05
(a13x) , , als-.
1++ - , , :(
(orefkov) 1cpp.tls Bin, :(
1++,
,
(
(
(
artbear
97 - 22.11.2005 - 07:25
(96) , .
, xml- (alias) .
1++.xml "", alias " " ( ).
tls- , .
, .
(a13x) ? / , .
(orefkov) , xml2tls, .
, , :)
.
a13x
98 - 22.11.2005 - 08:26
(97) , , , , :
.
1. , name alias - , - . makeValidId(), . alias' , , ( . ) :-(. - xml2tls .
.
2. . . , /, . , , , . , - , :-).
, . , , ( ) tls intsOLEGenerator , tlb - .
.
- " als-", "" - ? , , , - .
DeathOgre
99 - 22.11.2005 - 08:55
+: ToDO: ShowType? ?
Bot
100 - 22.11.2005 - 09:41
1. / Intellisence?
2. ? ( 1.50, 1.8 - )
3. , 1.8 ( (34) - - ), => ! (2) [+] ;
___
, , ... .
a13x
101 - 22.11.2005 - 09:48
(99) ToDO = To do, "",
(100)
1. 1.50
2. , , , ,
3. 1.50 "" 1.8, 1.50
Bot
102 - 22.11.2005 - 09:53
(101) .
trdm, Intellisence.
trdm
103 - 22.11.2005 - 13:18
(102) ?
artbear
104 - 22.11.2005 - 17:03
(a13x) - , - .
?
.
, .
Bot
105 - 22.11.2005 - 17:24
(103) : Intellisence.vbs , . ( , )
.
trdm
106 - 22.11.2005 - 20:21
(105) , . : ?

107 - 22.11.2005 - 20:55
, . ;)
a13x
108 - 23.11.2005 - 08:31
(104) compound.als ( ), ( ), . , .
.
, :-(.
.
- , " ..." :-)
MetaEditor
109 - 23.11.2005 - 10:30
(trdm)
[*] SelectMetadataAndGotoObj:
  ""
DeathOgre
110 - 23.11.2005 - 12:01
. ("") , .
MetaEditor
111 - 23.11.2005 - 12:35
110) "MethodsList" intellisence.vbs , "" , ...
MIK
112 - 23.11.2005 - 12:44
Intellisense? http://www.script-coding.info/Intellisense.html -
Young
113 - 23.11.2005 - 12:51
(112) . .
MIK
114 - 23.11.2005 - 12:56
, OpenConf Power Pack, 1 ... bin . telepatr, OpenConf 1.2.0, OpenConf_Scripts http://www.script-coding.info, openconf telepat, system , regall.bat, Intellisense ! !!!
MIK
115 - 23.11.2005 - 12:59
Ctrl+I - intsOLEGenerator.vbs 132
a13x
116 - 23.11.2005 - 13:16
(114) " " " " ?
, , , :-(.
, ?
MIK
117 - 23.11.2005 - 13:21
- intsOLEGenerator
(116) 1, - COMDLG32
DeathOgre
118 - 23.11.2005 - 13:23
(111) ?
MetaEditor
119 - 23.11.2005 - 13:36
118) http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip
117) comdlg32 - .\BIN\Config fdsubst.dll
DeathOgre
120 - 23.11.2005 - 14:16
. -
a13x
121 - 23.11.2005 - 14:19
(117)
> , OpenConf Power Pack,
> 1 ...
.

.
> - intsOLEGenerator
> 1, - COMDLG32
.
...
.
, intsOLEGenerator, COMDLG32.dll .
.
?
.
, ?
DeathOgre
122 - 23.11.2005 - 14:19
OpenConf.CommonServices
Intellisence . ?
a13x
123 - 23.11.2005 - 14:40
(122) CommonServices.wsc
Young'
trdm
124 - 23.11.2005 - 17:15
(114) ? )
mvk
125 - 23.11.2005 - 17:38
, ? ...
: !
trdm
126 - 23.11.2005 - 22:19
(109) , . .

127 - 23.11.2005 - 22:40
126) /, , ? :)))

128 - 23.11.2005 - 22:50
: - ! , . - . 25 webfile.ru/650584 , , . ?
Michael
129 - 24.11.2005 - 00:48
(125) .
a13x
130 - 24.11.2005 - 08:22
(125,129) . .

131 - 24.11.2005 - 09:26
127+128) ?
Bot
132 - 24.11.2005 - 09:39
(130) ?
a13x
133 - 24.11.2005 - 10:55
(132) - , , ?
.
"" "" ( - , ), .
.
Install, , , , ...
.
, " " - you are welcome! , .
.
, " ", , , oc_last.zip?

134 - 24.11.2005 - 16:52
, ? oc_last.zip . . + /???
131) ?
a13x
135 - 24.11.2005 - 18:44
(134) " "?
Config , - OpenConf_Scripts, :
.
1. config . , config - Intell , " " - config. ? ... , ( ), ( , ) , config\Intell, config\\Intell. , . macros.ini? " " - . , . , macros.ini config. , , .
.
2. system. . system
. , ,
, config scripts,
- , ( ) .
.
...
? ? , "" ( 1), ( 2). - , , , - (""), "".
.
- , , - . ____ , " ". ? - .
.
, .
Young
136 - 25.11.2005 - 13:09
( ):
===================================================================
=("");
.|
===================================================================
Intellisense :
===================================================================
.
: intsOLEGenerator
: C:\Program Files\1Cv77\BIN\config\scripts\Intellisense\intsOLEGenerator.vbs
: 132
: 3
: 0
: Microsoft VBScript
: 'DMessage'
===================================================================
WindowsXP SP2, 7.70.025,
OpenConf 1.0.2.0, 2.0.0.0r,
Intellisence.vbs $Revision: 1.1 $
intsOLEGenerator.vbs $Revision: 1.1 $
intsOLEGenerator.vbs, .
jbond
137 - 25.11.2005 - 13:18
DMessage
zzz
138 - 25.11.2005 - 13:19
2(136) . .
Young
139 - 25.11.2005 - 13:23
GoToObject .vbs: , , (InputBox' ). - :) , - - ...
.vbs $Revision: 1.1 $
trdm
140 - 25.11.2005 - 13:25
( , intsOLEGenerator.vbs.
(......
Young
141 - 25.11.2005 - 13:25
(137, 138) . , ...
jbond
142 - 25.11.2005 - 14:49
(141) -
artbear
143 - 25.11.2005 - 16:55
(trdm) intsOLEGenerator DMessage .
, .
.
, .
artbear
144 - 25.11.2005 - 16:57
(139) , .
MetaEditor-.
NavigationTools.vbs
trdm
145 - 25.11.2005 - 19:39

.
' : $Revision: 1.1 $ <<< .
' : $Revision: 1.1 $ <<< .
- "".

146 - 25.11.2005 - 20:17
, - . , -
-------------------------------------
: - ! , . - . 25 webfile.ru/650584 , , . ?
---------------------------------------
a13x
147 - 26.11.2005 - 11:56
(146) :-), , , , . ? , "-" :-).
.
: , , " ".
1. " " , .
.
2. ( ) Intell.ini SHOWTOOLTIPS "", , "" , .
MetaEditor
148 - 26.11.2005 - 12:16
139,144) ... )
, : , , , ...
---
" - " - ... ..
trdm
149 - 26.11.2005 - 15:04
(146-147) , .
, "ESC" , . , , :
intell.ini :
.
// ,
DISABLE_TELEPAT_LIST =
.
: ShowTooltip :
'
Sub ShowTooltip(param)
......
  if UCase(GetIniParam("DISABLE_TELEPAT_LIST")) = "" then wshShell.sendKeys "{ESC}" '
End Sub
, ShowTooltip "MethodsList".
(146) .
trdm
150 - 26.11.2005 - 15:08
. : , "SHOWTOOLTIPS" "" "DISABLE_TELEPAT_LIST" "" ESC, .. . , - .
a13x
151 - 26.11.2005 - 16:00
(150) , , "ESC"
, , , " , - ", , .
.
, , . .
Young
152 - 26.11.2005 - 19:05
(148) , :)

153 - 26.11.2005 - 21:09
: !
a13x, 147) " " - ! , , .
, Esc - .
: () ";" ... , "" , ?
, !

154 - 26.11.2005 - 21:26
?
zzz
155 - 28.11.2005 - 11:13
:
Case 10 ' 1
' ...
' , .. 1++
If InsertName = "" Then Text = "(""!"");"
.
:)
artbear
156 - 28.11.2005 - 13:14
(155) , , ;-)

157 - 28.11.2005 - 13:25
156, artbear, , . ?
:
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=5985
trdm
158 - 28.11.2005 - 13:30
(151) - ((
(153) , . , , , ? .
artbear
159 - 28.11.2005 - 13:35
(157) , .

160 - 28.11.2005 - 13:42
158) , , :( config ?
zzz
161 - 28.11.2005 - 13:51
"", "".
"intsOLEGenerator.vbs" , - (136)
Young
162 - 28.11.2005 - 13:53
, . , / . , Intellisense ( "_"), Intellisene:MethodsList, :GoToObject. "": , ( ), , ( ). 1 - -. , ( , , -). , ? , ?
P.S. , .
Young
163 - 28.11.2005 - 13:56
(161) intsOLEGenerator.vbs . intsOLEGenerator.vbs, Intellisence.vbs Intell :
http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip
zzz
164 - 28.11.2005 - 14:03
2(163) :)
.
MetaEditor
165 - 28.11.2005 - 14:10
157) " "... )
162), ..
telepat.vbs
Case 14 '
If InsertName="_" or InsertName="_" Then
         ProcName=InputBox(" ","", "")
tempText = Replace(Text,vbCrLf,vbCrLf & vbTab & "!" & vbCrLf)
tempText = "//"+String(70,"=") & vbCrLf & _
  Replace(tempText,"!(",ProcName & "(") & " // " & ProcName
Text = tempText
...
... , ...
trdm
166 - 28.11.2005 - 14:12
(162) Brackets.vbs.
(163-164) . . (34)
Young
167 - 28.11.2005 - 14:46
(165,166) , :) " " , :)

168 - 28.11.2005 - 14:54
165, .
zzz
169 - 28.11.2005 - 14:58
2(165) :) :
.
Case 14 '
If InsertName="_" or InsertName="_" Then
  ProcName=InputBox(" ","", "")
  Text= "// -----------------" & vbCrLf & Replace(Text,"!(",ProcName & "(!") & vbTab & "// " & ProcName
Young
170 - 28.11.2005 - 16:21
. : (F5) .
http://www.script-coding.info/Bookmarks.zip
a13x
171 - 28.11.2005 - 16:43
... , 1 , => ( ) , - ConvertTemplate(), "" , ...
.
- , ...
Young
172 - 28.11.2005 - 23:12
:
C:\Program Files\1Cv77\BIN\config\scripts\Test.abcde

--------------------------
: OpenConf " "?
Young
173 - 28.11.2005 - 23:14
+(172) , " " "" , ?
Young
174 - 28.11.2005 - 23:23
++(172) , "abcde" :)
MetaEditor
175 - 29.11.2005 - 06:02
172) / $ENGINE
$ENGINE VBScript
$ENGINE PerlScript
...
Vaicartana
176 - 29.11.2005 - 06:09
!
.
?
artbear
177 - 29.11.2005 - 06:53
(176) !
: .
, "", "", " " ..
, , . /
Young
178 - 29.11.2005 - 11:17
(175) , :)
, , - OpenConf? " "?
"$ENGINE " , , , "":
------------------------------------
C:\Program Files\1Cv77\BIN\config\scripts\Test.ahk
AutoHotkey
: 0x800401F3
Young
179 - 29.11.2005 - 11:27
+(178) : " " OpenConf? , :) ...
a13x
180 - 29.11.2005 - 11:51
(178) ,
Engine dll, COM- ( )
.
Active Scripting Engine
Young
181 - 29.11.2005 - 12:05
(180) , .
orefkov
182 - 29.11.2005 - 13:06
(179) " " - COM-, IActiveScript. .
ProgID, CLSID ,
.
ProgID
$ENGINE , ,
CLSID .
Young
183 - 29.11.2005 - 13:38
(182) , .
AnyBody
184 - 29.11.2005 - 14:19
:
=("");
.
. .
telepat.dll. 2.0.0.0r ()
Intellisence : $Revision: 1.1 $Revision: 1.13
vladnet
185 - 29.11.2005 - 14:28
.
, ...
: , .
, , , .
( ) , , , .
a13x
186 - 29.11.2005 - 16:05
(185) -
http://itland.ru/forum/index.php?showtopic=11109
, alest', - - :-).
.
Vim ( VimComplete.js).
trdm
187 - 29.11.2005 - 16:11
, (((
:
@= ......
" ......"?
, :
(?!@=)(?:(.+)$)
(VBScript.RegExp)(((
a13x
188 - 29.11.2005 - 18:35
(187) ? ?
var m = "@=====".match(/^@=(.*)$/);
// m[1]=="===="
trdm
189 - 29.11.2005 - 23:30
- "VBScript.RegExp" + 1-.
1-.
-...
a13x
190 - 30.11.2005 - 08:39
(189) , , - :
--------------------------------------------------------------------
Set RE = New RegExp
RE.IgnoreCase = True
RE.Global = True
' ( js)
RE.Pattern = "^@=(.*)$"
Set Matches = RE.Execute("@=====")
' "===="
WScript.Echo Matches(0).SubMatches(0)
--------------------------------------------------------------------
artbear
191 - 30.11.2005 - 11:23
(189) .
( ) 1, .
, .

192 - 01.12.2005 - 12:12
, " - ", , ( , 1). , ?
MetaEditor
193 - 01.12.2005 - 12:22
192)", ......." ))
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1003&lid=5476
slavka
194 - 01.12.2005 - 12:22
MetaEditor'a - fdsubst.
trdm
195 - 01.12.2005 - 12:36
(191) , ...

196 - 01.12.2005 - 12:44
193) , Config, :(
MetaEditor
197 - 01.12.2005 - 13:01
196) excelfiledialog.vbs...
Phoenix
198 - 01.12.2005 - 14:45
(176) . .
, : , , , , .. , . ExtFrmsTree
XML. . .
: PhoenixUSA .
AnyBody
199 - 01.12.2005 - 14:54
(184) . . . .
AnyBody
200 - 01.12.2005 - 14:59
(199) , "". ?
slavka
201 - 01.12.2005 - 15:24
(200) telepat.vbs config. Sub Init(param) .
AnyBody
202 - 01.12.2005 - 15:26
(200) , telepat.vbs , "" .
a13x
203 - 01.12.2005 - 16:34
(202),
: TelepatSettings.js
: $Revision: 1.1 $
().
Young
204 - 01.12.2005 - 19:14
(trdm) , Generator intsOLEGenerator.vbs ".ints"?
trdm
205 - 01.12.2005 - 21:11
(204) .
Young
206 - 01.12.2005 - 23:13
(205) :)
vladnet
207 - 03.12.2005 - 11:41
:
, , , :
.
""
, , . ?
SKrin
208 - 03.12.2005 - 18:39
:
"(" - .
- .
?
.
Cutter
209 - 05.12.2005 - 11:14
, , , . Intell "<>" ( ). , ' <>.' .
. , , (, , Enter), . . , ... Intell 1.1.9 . . , . ?
trdm
210 - 05.12.2005 - 20:14
(207) , (((
(208) , ... .
trdm
211 - 07.12.2005 - 21:15
((((
fez
212 - 07.12.2005 - 21:55
, ?
:))
slavka
213 - 07.12.2005 - 22:08
? ;)
fez
214 - 07.12.2005 - 22:16
(213) .
.
:)
Young
215 - 09.12.2005 - 19:38
Up
vS
216 - 13.12.2005 - 07:49
... 2 , , 11 +
2, ...
a13x
217 - 13.12.2005 - 08:16
(216) Win 2k Server, ( - )
vS
218 - 13.12.2005 - 08:25
, , , ?
a13x
219 - 13.12.2005 - 08:41
(218) , , , , - .
.
(217) , ', , ( , WSH, MFC, COM-, , ..), .
.
.
vS
220 - 13.12.2005 - 09:11
, ...
...
... ...
.. , , , ... "" , ...

24
artbear
221 - 15.12.2005 - 17:02
(ALL)
" 1: 7.7 8.0
96 / 12.12.2005 - OpenConf: 1 7.7"
http://kb.mista.ru/article.php?id=54
, . , , , :)
, , - .
, 8.0 - , 1:.
(romix) "" 1:.
1.
?

222 - 15.12.2005 - 17:13
221) , , - !
Young
223 - 15.12.2005 - 19:52
(221) , " 1" . , ? , MsgBox +, , .
a13x
224 - 16.12.2005 - 08:57
(223) ?
, (1) , , (2) , , 1- , (221), "" .
MetaEditor
225 - 16.12.2005 - 11:03
)
Sub F5()
  Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
  with CreateObject("DynamicWrapper")
    .Register "kernel32.DLL", "GetCurrentProcessId","f=s", "r=l"
      for Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process Where (Name like ""1cv7%"") and (ParentProcessID = " & cStr(.GetCurrentProcessId) & ")")
        if MsgBox(" 1:?", vbQuestion + vbYesNo) = vbYes Then
          objProc.Terminate
          .Register "kernel32", "Sleep", "I=l", "f=s", "r=l"
          .Sleep 500
          .Register "kernel32", "DeleteFileA", "I=s", "f=s", "r=l"
          .DeleteFileA IBDir & "1SUSERS.DBF"
        end if
      next
  end with
  SendCommand(33876)
End Sub
Young
226 - 16.12.2005 - 11:58
(224) "" - PostMessage, ( -, ). , , - :)
(225) DBF- ? -. - ...
MetaEditor
227 - 16.12.2005 - 12:08
226) (224) - ... ( ), - 1SUSERS.DBF

228 - 16.12.2005 - 12:37
, ? ...

229 - 16.12.2005 - 13:24
227) , . ?
trdm
230 - 16.12.2005 - 15:48
' ExpandForm
' : $Revision: 1.1 $
' .
' trdm 2005.07
Set fso = CreateObject("Scripting.FileSystemObject")
dim objIE
dim HtmlFile
dim HtmlFileName
HtmlFileName = BinDir + "Config\form.htm"
HtmlFile = NULL
Dim dcPropMy
set dcPropMy = CreateObject("Scripting.Dictionary")
dcPropMy.Add cpStrID , ""
dcPropMy.Add cpFormul , ""
dcPropMy.Add cpTitle , ""
dcPropMy.Add cpHelpString , ""
dcPropMy.Add cpToolTip , ""
dcPropMy.Add cpHotKey , ""
dcPropMy.Add cpLayer , ""
dcPropMy.Add cpLinkWith , " "
dcPropMy.Add cpMetaID , "ID "
dcPropMy.Add cpPictMode , " "
dcPropMy.Add cpLeft , " "
dcPropMy.Add cpTop , " "
dcPropMy.Add cpHeight , ""
dcPropMy.Add cpWidth , ""
dcPropMy.Add cpFontColor , " "
dcPropMy.Add cpFontItalic , " "
dcPropMy.Add cpFontName , " "
dcPropMy.Add cpFontSize , " "
dcPropMy.Add cpFontUnderline, " "
dcPropMy.Add cpFontWeight , " "
dcPropMy.Add cpFlags , " "
dcPropMy.Add cpFlagsEx , " "
private function HtmlFileCreate()
  Set HtmlFile = fso.CreateTextFile(HtmlFileName)
  HtmlFileAddCaption()
end function
private function HtmlFileAddCaption()
  HtmlFile.WriteLine("<HTML>")
  HtmlFile.WriteLine("<HEAD>")
  HtmlFile.WriteLine("<TITLE></TITLE>")
  HtmlFile.WriteLine("<META HTTP-EQUIV=""Content-Type"" content=""text/html; charset=windows-1251"">")
  HtmlFile.WriteLine("</HEAD>")
  HtmlFile.WriteLine("<BODY bgcolor=silver>")
end function
private function HtmlFileAddFutter()
  HtmlFile.WriteLine("</BODY>")
  HtmlFile.WriteLine("</HTML>")
end function
private function GetColorForCtrl( TypeCtrl )
  GetColorForCtrl = "#ffffcc"
  'exit function
  select case (TypeCtrl)
    case "" GetColorForCtrl = "yellowgreen"
    case "" GetColorForCtrl = "lightgreen"
    case "" GetColorForCtrl = "mediumpurple"
    case "" GetColorForCtrl = "silver"
    case "" GetColorForCtrl = "plum"
    case "" GetColorForCtrl = "wheat"
    case "" GetColorForCtrl = "yellow"
    case else GetColorForCtrl = "#f5f5f5"
  End Select
end function
sub ShowExpandForm()
  DocWB = ""
  if not CheckWorkBook(doc) Then Exit sub
  HtmlFile = NULL
  HtmlFileCreate()
  set Form = Windows.ActiveWnd.Document.Page(0)
  Dim TableTop
  Dim TableFut
  
  TableTop = "<table border=0 cellpadding=1 cellspacing=1 cols="""" width="""" height="""" align=""left right"" bgcolor=#000033 bordercolor="""" bordercolorlight=black bordercolordark="""" background="""" title="""">"
  HtmlFile.WriteLine(TableTop)
  strToFile = "<tr bgcolor=#ffcc66 align=center valign=middle>"
  HtmlFile.WriteLine(strToFile)
  
  strToFile = "<td> </td>" + vbCrLf
  HtmlFile.WriteLine(strToFile)
  strToFile = ""
  Arr = dcPropMy.Items
  For i=0 To dcPropMy.Count-1
    if Arr(i) = "" Then
      strToFile = strToFile + "<td>" + Arr(i) + "</td>" + vbCrLf
    Else
      strToFile = strToFile + "<td>" + Arr(i) + "</td>" + vbCrLf
    End IF
  next
  strToFile = strToFile + "</tr>"
  HtmlFile.WriteLine(strToFile)
  
  Keys = dcPropMy.Keys
  for i = 0 to Form.ctrlCount - 1
    strToFile = "<tr>"
    strToFile = " <tr bgcolor= " + GetColorForCtrl(Form.ctrlType(i)) + ">" ' #f5f5f5
    strToFile = strToFile + "<td>" + Form.ctrlType(i) + "</td>"
    For ii=0 To dcPropMy.Count-1
      on error resume next
      str = CStr(Form.ctrlProp(i,Keys(ii)))
      if err.number<>0 then str = "&nbsp;"
      on error goto 0
      if len(str) = 0 Then str = "&nbsp;"
      if cpHelpString = Keys(ii) Then
        strToFile = strToFile + "<td><NoBR>" + Trim(str) + "</NoBR></td>" + vbCrLf
      else
        strToFile = strToFile + "<td><NoBR>" + str + "</NoBR></td>" + vbCrLf
      End If
    next
    strToFile = strToFile + "</tr>"
    HtmlFile.WriteLine(strToFile)
  Next
  TableFut = "</table>"
  HtmlFile.WriteLine(TableFut)
  HtmlFileAddFutter()
  HtmlFile.Close
  set objIE = CreateObject("InternetExplorer.Application")
  objIE.Navigate("about:blank")
  While objIE.Busy=-1
  Wend
  Set f = fso.OpenTextFile(HtmlFileName,1)
  tText = f.ReadAll
  objIE.Document.Write(tText)
  objIE.Visible = 1
End Sub
'=============================================================================================
' WorkBook
' Windows.ActiveWnd.Document.Page(0)
Function CheckWorkBook(doc)
  CheckWorkBook = False
  If Windows.ActiveWnd Is Nothing Then
     Exit Function
  End If
  Set doc = Windows.ActiveWnd.Document
  If doc<>docWorkBook Then Exit Function
  Set doc=doc.Page(0)
  CheckWorkBook = True
End Function
Young
231 - 16.12.2005 - 16:55
(230) :))
. , WorkBook "", ( ).
: , ? :)
Young
232 - 16.12.2005 - 16:59
+(231) : HTML / (, ).
, :)
a13x
233 - 16.12.2005 - 17:13
(229) ,
SendCommand(33876)

Scripts(" ").RunInExclusiveMode()
.
.
trdm, ... , webfile ?
, ...
MetaEditor
234 - 16.12.2005 - 18:13
229) ...
SendCommand(33876) - F11 ... :-/
233) , 4_965 bytes .................... :)
a13x
235 - 16.12.2005 - 18:20
(234) .
Young
236 - 16.12.2005 - 18:34
(234) , F11 "" , users.usr.
trdm
237 - 17.12.2005 - 04:21
(231) . .
(233) . .

238 - 18.12.2005 - 00:15
, OpenIn1C, : ert mxl? , .
artbear
239 - 18.12.2005 - 13:42
:(
http://www.kuban.ru/forum_new/forum9/files/252406.html
, 1 250, , 240 ;-)

Rambler's Top100 1C:TOP-100

© 1998-2004 Fedor Ezeev.

Last updated: 2005-12-22