vbscript.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="VB Script" Extensions="VBS" Version="1" Revision="0" Sample="   ' Dim, Private, Public, ReDim, or Static statements.
Option Explicit
Public objCurrentLayer As AcadLayer
Select Case CommandName
Case &quot;TEXT&quot;, &quot;MTEXT&quot;, &quot;DTEXT&quot; ' then do the following..
If Not ThisDrawing.ActiveLayer.Name = &quot;TEXT&quot; Then
Set objCurrentLayer = ThisDrawing.Layers.Add(&quot;TEXT&quot;)
objCurrentLayer.LayerOn = True
End If
If Not ThisDrawing.ActiveLayer.Name = &quot;DIM&quot; Then
End Sub
WScript.Echo vbCrLf &amp; lngDec &amp; &quot; = 0x&quot; &amp; strHex
Sub Link4_onMouseMove()
  Label1.Caption = DescribeLink(3)
  Status = DescribeLink(3)
  tID = setTimeout(&quot;ClearDesc()&quot;,4000)
End Sub

Sub window_onLoad()
 strFabric(1,1) = &quot;Green&quot;
end sub

Dim lastX, lastY
browserver = navigator.Appversion
if Left(browserver, 3) = 4.0 then
   ie4 = True
else
   ie4 = False
end if

Function OverIcon(x, y, rx1, ry1, rx2, ry2)
	OverIcon =  x&gt;=rx1 AND x&lt;=rx2 AND y&gt;=ry1 AND y&lt;=ry2
End Function

Sub Window_OnLoad
Set dicTestDict = CreateObject(&quot;Scripting.Dictionary&quot;)	
Set frm = Document.frmForm1
End Sub

Sub cmdAddNew_OnClick
If dicTestDict.Exists(frm.txtNewKey.Value) Then
    Alert &quot;This key already exists&quot;
Else
    dicTestDict.Add frm.txtNewKey.Value, frm.txtNewItem.Value
    Alert &quot;Key and item added successfully&quot;
End If
Alert VarType(frm)
End Sub
' Check command line parameters
Select Case WScript.Arguments.Count
	Case 1
		' Check if parameter is a valid number
		On Error Resume Next
		lngDec = CLng( WScript.Arguments(0) )
		If Err Then Syntax
		On Error GoTo 0
		' Check if number is within range
		If lngDec &gt; 2147483647 Then Syntax
	Case Else
		Syntax
End Select

' Convert number to string representing hexadecimal value
strHex = CStr( Hex( lngDec ) )
' Add leading zeros if necessary
intLen = Len( strHex )
if intLen &lt; 8 Then
	Do Until intLen = 8
		strHex = &quot;0&quot; &amp; strHex
		intLen = Len( strHex )
	Loop
End If


" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="SyntaxColoring" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
			<SubRules>
				<Range Name="Remarks" Style="Remarks">
					<Attributes Foreground="$00A00000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open="'"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings" Style="Strings">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key words" Enabled="True" Style="" Words="And
As
Call
Case
Class
Const
Dim
Do
Each
Else
ElseIf
Empty
End
Eqv
Erase
Error
Execute
Exit
Explicit
For
Function
Get
Goto
If
Imp
Is
Let
Loop
Mod
Next
New
Not
Nothing
Null
On
Option
Or
Private
Property
Public
Randomize
ReDim
Rem
Resume
Select
Set
Stop
Sub
Then
To
Until
Wend
While
With
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Functions" Enabled="True" Style="" Words="Abs
Array
Asc
Atn
CBool
CByte
CCur
CDate
CDbl
Chr
CInt
CLng
Cos
CSng
CStr
Date
DateAddFunction
DateDiff
DatePart
DateSerial
DateValue
Day
Eval
Exp
Filter
Fix
FormatCurrency
FormatDateTime
FormatNumber
FormatPercent
GetObject
GetRef
Hex
Hour
InputBox
InStr
InStrRev
Int
IsArray
IsDate
IsEmpty
IsNull
IsNumeric
IsObject
Join
LBound
LCase
Left
Len
LoadPicture
Log
LTrim
Mid
Minute
Month
MonthName
MsgBox
Now
Oct
Replace
RGB
Right
Rnd
Round
RTrim
ScriptEngine
ScriptEngineBuildVersion
ScriptEngineMajorVersion
ScriptEngineMinorVersion
Second
Sgn
Sin
Space
Split
Sqr
StrComp
String
StrReverse
Tan
Time
Timer
TimeSerial
TimeValue
Trim
TypeName
UBound
UCase
VarType
Weekday
WeekdayName
Year
">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Properties" Enabled="True" Style="" Words="AccountDisabled
AccountExpirationDate
Application
Arguments
AtEndOfLine
AtEndOfStream
Attributes
AutoUnlockInterval
AvailableSpace
BadPasswordAttempts
Column
CompareMode
ComputerName
Count
DateCreated
DateLastAccessed
DateLastModified
Description
Drive
DriveLetter
DriveType
Drives
Environment
FileSystem
Files
FirstIndex
FreeSpace
FullName
Global
HelpContext
HelpFile
HomeDirDrive
HomeDirectory
HotKey
IconLocation
IgnoreCase
Interactive
IsAccountLocked
IsReady
IsRootFolder
Item
Key
LastLogin
LastLogoff
Length
Line
LockoutObservationInterval
LoginHours
LoginScript
LoginWorkstations
MaxBadPasswordsAllowed
MaxLogins
MaxPasswordAge
MaxStorage
MinPasswordAge
MinPasswordLength
Name
Number
ObjectSid
Parameters
ParentFolder
PasswordAge
PasswordExpirationDate
PasswordExpired
PasswordHistoryLength
Path
Pattern
PrimaryGroupID
Profile
Remove
RootFolder
ScriptFullName
ScriptName
SerialNumber
ShareName
ShortName
ShortPath
Size
Source
SpecialFolders
Subfolders
TargetPath
TotalSize
Type
UserDomain
UserFlags
UserName
Value
Version
VolumeName
WindowStyle
WorkingDirectory
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Methods" Enabled="True" Style="" Words="Add
AddPrinterConnection
AddWindowsPrinterConnection
AppActivate
BuildPath
Clear
Close
ConnectObject
Copy
CopyFile
CopyFolder
CreateFolder
CreateObject
CreateShortcut
CreateTextFile
Delete
DeleteFile
DeleteFolder
DisconnectObject
DriveExists
Echo
EnumNetworkDrives
EnumPrinterConnections
Exists
ExpandEnvironmentStrings
FileExists
FolderExists
GetAbsolutePathName
GetBaseName
GetDrive
GetDriveName
GetExtensionName
GetFile
GetFileName
GetFolder
GetParentFolderName
GetResource
GetSpecialFolder
GetTempName
Items
Keys
LogEvent
MapNetworkDrive
Move
MoveFile
MoveFolder
OpenAsTextStream
OpenTextFile
Popup
Put
Quit
Raise
Read
ReadAll
ReadLine
RegDelete
RegRead
RegWrite
RemoveAll
RemoveNetworkDrive
RemovePrinterConnection
Replace
Run
Save
SendKeys
SetDefaultPrinter
Skip
SkipLine
Sleep
SetInfo
Test
Write
WriteBlankLines
WriteLine
">
					<Attributes Foreground="clPurple" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Objects" Enabled="True" Style="" Words="Dictionary
Err
File
FileSystemObject
Folder
Match
RegExp
TextStream
Wscript
WshNetwork
WshShell
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Constants" Enabled="True" Style="" Words="False
FALSE
True
TRUE
vbAbort
vbAbortRetryIgnore
vbApplicationModal
vbArray
vbBinaryCompare
vbBlack
vbBlue
vbBoolean
vbByte
vbCancel
vbCr
vbCritical
vbCrLf
vbCurrency
vbCyan
vbDataObject
vbDate
vbDecimal
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbDefaultButton4
vbDouble
vbEmpty
vbError
vbExclamation
vbFirstFourDays
vbFirstFullWeek
vbFirstJan1
vbFormFeed
vbFriday
vbGeneralDate
vbGreen
vbIgnore
vbInformation
vbInteger
vbLf
vbLong
vbLongDate
vbLongTime
vbMagenta
vbMonday
vbNewLine
vbNo
vbNull
vbNullChar
vbNullString
vbObject
vbObjectError
vbOK
vbOKCancel
vbOKOnly
vbQuestion
vbRed
vbRetry
vbRetryCancel
vbSaturday
vbShortDate
vbShortTime
vbSingle
vbString
vbSunday
vbSystemModal
vbTab
vbTextCompare
vbThursday
vbTuesday
vbUseSystem
vbUseSystemDayOfWeek
vbVariant
vbVerticalTab
vbWednesday
vbWhite
vbYellow
vbYes
vbYesNo
vbYesNoCancel
">
					<Attributes Foreground="clOlive" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding>
		<FoldRegion Name="Function" Type="1">
			<OpenToken Symbol="FUNCTION"/>
			<CloseToken Symbol="END FUNCTION"/>
			<Properties WholeWords="True"/>
			<SubRegions/>
		</FoldRegion>
		<FoldRegion Name="IF" Type="1">
			<OpenToken Symbol="IF"/>
			<CloseToken Symbol="END IF"/>
			<Properties WholeWords="True"/>
			<SubRegions/>
		</FoldRegion>
		<FoldRegion Name="SUB" Type="1">
			<OpenToken Symbol="SUB"/>
			<CloseToken Symbol="END SUB"/>
			<Properties WholeWords="True"/>
			<SubRegions/>
		</FoldRegion>
		<FoldRegion Name="Select" Type="1">
			<OpenToken Symbol="SELECT"/>
			<CloseToken Symbol="END SELECT"/>
			<Properties WholeWords="True"/>
			<SubRegions/>
		</FoldRegion>
		<FoldRegion Name="Do..Loop" Type="1">
			<OpenToken Symbol="DO"/>
			<CloseToken Symbol="LOOP"/>
			<Properties WholeWords="True"/>
			<SubRegions/>
		</FoldRegion>
		<FoldRegion Name="For..Next" Type="1">
			<OpenToken Symbol="FOR"/>
			<CloseToken Symbol="NEXT"/>
			<Properties WholeWords="True"/>
			<SubRegions/>
		</FoldRegion>
	</CodeFolding>
	<CustomData/>
</SynUniHighlighter>