vbstag.txt

UltraEdit中几百种语法高亮度显示

89="UCase                                                   :UEDS:Ucase(text)"
90="VarType                                                 :UEDS:VarType(varname)"
91="Weekday                                                 :UEDS:Weekday(date,[firstdayofweek]) '-- 0(System default) 1(Sunday) ... 7(Saturday)"
92="WeekdayName                                             :UEDS:WeekdayName(weekday[[,abbreviate],firstdayofweek]) '-- 0(System default) 1(Sunday) .. 7(Saturday)"
93="Year                                                    :UEDS:Year(date)"    
94=                                                      
                                                           
[Tag Group - VBS - Constants]                              
 0="VarType: 0000 -- vbEmpty                                :UEDS:vbEmpty"
 1="VarType: 0001 -- vbNull                                 :UEDS:vbNull"
 2="VarType: 0002 -- vbInteger                              :UEDS:vbInteger"
 3="VarType: 0003 -- vbLong                                 :UEDS:vbLong"
 4="VarType: 0004 -- vbSingle                               :UEDS:vbSingle"
 5="VarType: 0005 -- vbSingle                               :UEDS:vbSingle"
 6="VarType: 0006 -- vbCurrency                             :UEDS:vbCurrency"
 7="VarType: 0007 -- vbDate                                 :UEDS:vbDate"
 8="VarType: 0008 -- vbString                               :UEDS:vbString"
 9="VarType: 0009 -- vbObject                               :UEDS:vbObject"
10="VarType: 0010 -- vbError                                :UEDS:vbError"
11="VarType: 0011 -- vbBoolean                              :UEDS:vbBoolean"
12="VarType: 0012 -- vbVariant                              :UEDS:vbVariant"
13="VarType: 0013 -- vbDataObject                           :UEDS:vbDataObject"
14="VarType: 0014 -- vbDecimal                              :UEDS:vbDecimal"
15="VarType: 0017 -- vbByte                                 :UEDS:vbByte"
16="VarType: 8192 -- vbArray                                :UEDS:vbArray"
17="VarType: ==================================             :UEDS:"
18="MsgBox: ===================================             :UEDS:"
19="MsgBox: B 0000 -- vbOKOnly                              :UEDS:vbOKOnly"                     
20="MsgBox: B 0001 -- vbOKCancel                            :UEDS:vbOKCancel"                 
21="MsgBox: B 0002 -- vbAbortRetryIgnore                    :UEDS:vbAbortRetryIgnore" 
22="MsgBox: B 0003 -- vbYesNoCancel                         :UEDS:vbYesNoCancel"           
23="MsgBox: B 0004 -- vbYesNo                               :UEDS:vbYesNo"                       
24="MsgBox: B 0005 -- vbRetryCancel                         :UEDS:vbRetryCancel"           
25="MsgBox: I   0016 -- vbCritical                          :UEDS:vbCritical"                
26="MsgBox: I   0032 -- vbQuestion                          :UEDS:vbQuestion"                
27="MsgBox: I   0048 -- vbExclamation                       :UEDS:vbExclamation"          
28="MsgBox: I   0064 -- vbInformation                       :UEDS:vbInformation"          
29="MsgBox: D 0000 -- vbDefaultButton1                      :UEDS:vbDefaultButton1"     
30="MsgBox: D 0256 -- vbDefaultButton2                      :UEDS:vbDefaultButton2"   
31="MsgBox: D 0512 -- vbDefaultButton3                      :UEDS:vbDefaultButton3"   
32="MsgBox: D 0768 -- vbDefaultButton4                      :UEDS:vbDefaultButton4"   
33="MsgBox: M 0000 -- vbApplicationModal                    :UEDS:vbApplicationModal" 
34="MsgBox: M 4096 -- vbSystemModal                         :UEDS:vbSystemModal"        
35="MsgBox: R 0001 -- vbOK                                  :UEDS:vbOK"           
36="MsgBox: R 0002 -- vbCancel                              :UEDS:vbCancel"   
37="MsgBox: R 0003 -- vbAbort                               :UEDS:vbAbort"     
38="MsgBox: R 0004 -- vbRetry                               :UEDS:vbRetry"     
39="MsgBox: R 0005 -- vbIgnore                              :UEDS:vbIgnore"   
40="MsgBox: R 0006 -- vbYes                                 :UEDS:vbYes"         
41="MsgBox: R 0007 -- vbNo                                  :UEDS:vbNo"           
42="Color: ===================================              :UEDS:"
43="Color: vbBlack   (&h00)                                 :UEDS:vbBlack" 
44="Color: vbRed     (&hFF)                                 :UEDS:vbRed"   
45="Color: vbGreen   (&hFF00)                               :UEDS:vbGreen" 
46="Color: vbYellow  (&hFFFF)                               :UEDS:vbYellow"
47="Color: vbBlue    (&hFF0000)                             :UEDS:vbBlue"  
48="Color: vbMagenta (&hFF00FF)                             :UEDS:vbMagenta"
49="Color: vbCyan    (&hFFFF00)                             :UEDS:vbCyan"                                                     
50="Color: vbWhite   (&hFFFFFF)                             :UEDS:vbWhite" 
51="DateTime: 1 -- vbSunday                                 :UEDS:vbSunday"    
52="DateTime: 2 -- vbMonday                                 :UEDS:vbMonday"    
53="DateTime: 3 -- vbTuesday                                :UEDS:vbTuesday"   
54="DateTime: 4 -- vbWednesday                              :UEDS:vbWednesday" 
55="DateTime: 5 -- vbThursday                               :UEDS:vbThursday"  
56="DateTime: 6 -- vbFriday                                 :UEDS:vbFriday"    
57="DateTime: 7 -- vbSaturday                               :UEDS:vbSaturday"  
58="DateTime: 0 -- vbUseSystem                              :UEDS:vbUseSystem" 
59="DateTime: ===================================           :UEDS:"
60="DateWeek: ===================================           :UEDS:"
61="DateWeek: 0 -- vbUseSystemDayOfWeek                     :UEDS:vbUseSystemDayOfWeek"
62="DateWeek: 1 -- vbFirstJan1                              :UEDS:vbFirstJan1"         
63="DateWeek: 2 -- vbFirstFourDays                          :UEDS:vbFirstFourDays"     
64="DateWeek: 3 -- vbFirstFullWeek                          :UEDS:vbFirstFullWeek"     
65="DateFormat: =================================           :UEDS:"
66="DateFormat: 0 -- vbGeneralDate                          :UEDS:vbGeneralDate" 
67="DateFormat: 1 -- vbLongDate                             :UEDS:vbLongDate"    
68="DateFormat: 2 -- vbShortDate                            :UEDS:vbShortDate"   
69="DateFormat: 3 -- vbLongTime                             :UEDS:vbLongTime"    
70="DateFormat: 4 -- vbShortTime                            :UEDS:vbShortTime"   
71="Tristate: ===================================           :UEDS:"
72="Tristate:-2 -- vbUseDefault                             :UEDS:vbUseDefault"
73="Tristate:-1 -- vbTrue                                   :UEDS:vbTrue"      
74="Tristate: 0 -- vbFalse                                  :UEDS:vbFalse"     
75=
                                                      
[Tag Group - OBJ - Dictionary]                        
 0="! Create                                                :UEDS:= CreateObject("Scripting.Dictionary")"
 1="! Destroy                                               :UEDS:= Nothing"
 2=". CompareMode                                           :UEDS:.CompareMode"
 3=". Count                                                 :UEDS:.Count"
 4=". Item                                                  :UEDS:.Item("key")"
 5=". Key                                                   :UEDS:.Key("key")"
 6=". RemoveAll                                             :UEDS:.RemoveAll"
 7=". Add                                                   :UEDS:.Add "key","value""
 8=". Exists                                                :UEDS:.Exists("key")"
 9=". Remove                                                :UEDS:.Remove("key")"
10=". Items                                                 :UEDS:.Items"
11=". Keys                                                  :UEDS:.Keys"
12=

[Tag Group - OBJ - FileSystem]
 0="! Create                                                :UEDS:= CreateObject("Scripting.FileSystemObject")"
 1="! Destroy                                               :UEDS:= Nothing"
 2=". BuildPath                                             :UEDS:.BuildPath("ExistingPath","AdditionalName")"
 3=". CopyFile                                              :UEDS:.CopyFile("source","destination"[,overwrite])"
 4=". CopyFolder                                            :UEDS:.CopyFolder("source","destination"[,overwrite])"
 5=". CreateFolder                                          :UEDS:.CreateFolder("FullFolderPath")"
 6=". DeleteFile                                            :UEDS:.DeleteFile("FullFilePath"[,force])"
 7=". DeleteFolder                                          :UEDS:.DeleteFolder("FullFolderPath"[,force])"
 8=". DriveExists                                           :UEDS:.DriveExists("drivespec")"
 9=". FileExists                                            :UEDS:.FileExists("FullFilePath")"
10=". FolderExists                                          :UEDS:.FolderExists("FullFolderPath")"
11=". GetAbsolutePathName                                   :UEDS:.GetAbsolutePathName("FullOrRelativePath")"
12=". GetBaseName                                           :UEDS:.GetBaseName("FullFileOrFolderPath")"
13=". GetDrive                                              :UEDS:.GetDrive("DriveOrNetworkSharePath")"
14=". GetDriveName                                          :UEDS:.GetDriveName("FullDrivePath") "
15=". GetExtensionName                                      :UEDS:.GetExtensionName("FullFileOrFolderPath") "
16=". GetFileName                                           :UEDS:.GetFileName("FullFilePath") "
17=". GetParentFolderName                                   :UEDS:.GetParentFolderName("FullFileOrFolderPath")"
18=". GetTempName                                           :UEDS:.GetTempName"
19=". MoveFile                                              :UEDS:.MoveFile("source","destination")"
20=". MoveFolder                                            :UEDS:.MoveFolder("source","destination")"
21=". GetFile                                               :UEDS:.GetFile("path")"
22=". GetFolder                                             :UEDS:.GetFolder("path")"
23=". OpenTextFile                                          :UEDS:OpenTextFile("FullFilePath",iomode,create,format)"
24=". CreateTextFile                                        :UEDS:CreateTextFile("FullFilePath"[,overwrite[,iomode]])"
25="===========================================             :UEDS:"                                                         
26="IOMode: 1 -- ForReading                                 :UEDS:1"                        
27="IOMode: 2 -- ForWriting                                 :UEDS:2"                        
28="IOMode: 8 -- ForAppending                               :UEDS:8"