, 09 2006 . 20:24
+
, Internet Explorer.
, , .
, .
, com-. com- IE , - " Active X ", .
- , Microsoft MSScripting, vb-script.
- :
Sub MakeObject(ClassName)
set MakeObject=CreateObject(ClassName)
End Sub
, , MakeObject MSScripting CreateObject.
, 17 2005 . 14:34
+
!
VB Script ( Outlook ) Collection.
, .
, , :
Public Function MyCollection_Create()
Dim a(200)
a(0) = 0
MyCollection_Create = a
End Function
Public Sub MyCollection_Add(Collection, Value, Key)
For i = 1 To Collection(0)
If Collection(i * 2 - 1) = Key Then
Collection(i * 2) = Value
Exit Sub
End If
Next
Collection(0) = Collection(0) + 1
Collection(Collection(0) * 2 - 1) = Key
Collection(Collection(0) * 2) = Value
End Sub
Public Function MyCollection_Get(Collection, Key)
Set MyCollection_Get = Nothing
For i = 1 To Collection(0)
If Collection(i * 2 - 1) = Key Then
MyCollection_Get = Collection(i * 2)
Exit Function
End If
Next
End Function
Collection Scripting Dictionary:
Dim d 'Create a variable
Set d = CreateObject(Scripting.Dictionary)
d.Add "a", "Athens" 'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
, 11 2005 . 16:11
+
VBS BAT/CMD.
- . :)
- Access Excel, Alt+F11, VBA, , , VBS . !
, src dst dst , src.
, VBA, SUB. , .
, 22 2005 . 16:51
+
.
, Access Outlook, , ADO , . , , -...
!
OLE .
, 20 2005 . 11:04
+
TextBox , :
, textBox text , , value. , value , value .
:
con_text = Trim(con.Value)
On Error Resume Next
con_text = Trim(con.Text)
On Error GoTo 0
, 25 2005 . 19:45
+
, XML Win-1251.
:
var pi = xmldoc.createProcessingInstruction("xml",
" version='1.0' encoding="win-1251");
xmldoc.appendChild(pi);
, :
To change the encoding that the XML DOM Save method uses, you need to create an XML declaration with an encoding attribute at the top of your document as follows:
var pi = xmldoc.createProcessingInstruction("xml",
" version='1.0' encoding='ISO-8859-1'");
xmldoc.appendChild(pi);
When you call the save method, you will then get an ISO-8859-1 encoded file as follows:
å
Now, be careful you don't let the XML property confuse you. The XML property returns a Unicode string. If you call the XML property on the DOMDocument object after creating the ISO-8859-1 encoding declaration, you will get the following Unicode string back:
å
Notice that the ISO-8859-1 encoding declaration is gone. This is normal. The reason it did this is so that you can turn around and call LoadXML with this string and it will work. If it does not do this, LoadXML will fail with the error message: "Switch from current encoding to specified encoding not supported."
, 21 2005 . 18:24
+
OUTLOOK.
XML, - !
- , EntryID , , EntryID in (a,b,c,d,,,f)
( )
www.outlookcode.com. .
