规范VBS或SQL大小写 SQLVBSFormat.jsee Emeditor宏 Macros

/*=========================================================================
 * Intro       规范VBS或SQL大小写
 * FileName    SQLVBSFormat.jsee
 * Author      yongfa365
 * Version     v1.0
 * WEB         http://www.yongfa365.com
 * Email       yongfa365@qq.com
 * FirstWrite  http://www.yongfa365.com/item/SQLVBSFormat.jsee-For-Emeditor-Macros-yongfa365.html
 * LastModify  2007-08-29 22:34:37
 *==========================================================================*/

function SQLVBSFormat(n)
{
    if(document.selection.Text == "")  document.selection.SelectAll();
    var ss=document.selection.Text;
    //原则上s应该是"|str1|str2|"
    var vbs0="函数关键字|Function|Sub|";
    var vbs1="保留关键字|And|As|ByRef|Call|Case|Class|Const|Dim|Do|Each|Else|ElseIf|Empty|End|Eqv|Erase|Execute|ExecuteGlobal|Exit|Explicit|False|For|Get|Goto|If|Imp|In|Is|Let|Loop|Mod|Next|Not|Nothing|Null|On|Option|Or|Private|Public|Randomize|ReDim|Rem|Resume|Select|Set|Stop|Then|To|True|Until|Wend|While|With|Xor|";
    var vbs2="本机关键字|Abandon|Abs|AbsolutePage|AbsolutePosition|ActiveConnection|ActualSize|AddHeader|AddNew|AppendChunk|AppendToLog|Application|Application_OnEnd|Application_OnStart|Array|Asc|Atn|Attributes|BeginTrans|BinaryRead|BinaryWrite|BOF|Bookmark|Boolean|Buffer|CacheControl|CacheSize|Cancel|CancelBatch|CancelUpdate|CBool|CByte|CCur|CDate|CDbl|Charset|Chr|CInt|Clear|ClientCertificate|CLng|Clone|Close|CodePage|Command|CommandText|CommandTimeout|CommandType|CompareBookmarks|Connection|ConnectionString|ConnectionTimeout|Contents|ContentType|Cookies|Cos|Count|CreateParameter|CreateObject|CSng|CStr|CursorLocation|CursorType|Date|DateAdd|DateDiff|DatePart|DateSerial|DateValue|Day|DefaultDatabase|DefinedSize|Delete|Description|Dictionary|Direction|EditMode|EOF|Err|Error|Errors|Eval|Execute|Exp|Expires|ExpiresAbsolute|Field|Fields|File|FileSystem|Filter|Find|Fix|Flush|Form|FormatCurrency|FormatDateTime|FormatNumber|FormatPercent|GetChunk|GetLocale|GetObject|GetRef|GetRows|GetString|HelpContext|HelpFile|Hex|Hour|HTMLEncode|Index|InputBox|InStr|InStrRev|Int|Integer|IsArray|IsClientConnected|IsDate|IsEmpty|IsNull|IsNumeric|IsObject|IsolationLevel|Item|Join|LBound|LCase|LCID|Left|Len|LoadPicture|Lock|LockType|Log|LTrim|MapPath|MarshalOptions|Match|Mid|Minute|Mode|Month|MonthName|Move|MoveFirst|MoveLast|MoveNext|MovePrevious|MsgBox|Name|NativeError|NextRecordset|Now|Number|NumericScale|NumericScale|ObjectContext|Oct|OnTransactionAbort|OnTransactionCommit|Open|OpenSchema|OriginalValue|PageCount|PageSize|Parameter|Parameters|Pics|Precision|Prepared|Properties|Property|PropertyGet|PropertyLet|PropertySet|Provider|QueryString|Raise|RecordCount|Recordset|Redirect|RegExp|Replace|Requery|Request|Response|Resync|RGB|Right|Rnd|RollbackTrans|Round|RTrim|Save|ScriptEngine|ScriptEngineBuildVersion|ScriptEngineMajorVersion|ScriptEngineMinorVersion|ScriptTimeout|Second|Seek|Server|ServerVariables|Session|Session_OnEnd|Session_OnStart|SessionID|SetAbort|SetAllRowStatus|SetComplete|SetLocale|Sgn|Sin|Size|Sort|Source|Space|Split|SQLState|Sqr|State|StaticObjects|Status|StrComp|String|StrReverse|Supports|Tan|Test|Time|Timeout|Timer|TimeSerial|TimeValue|TotalBytes|Trim|Type|TypeName|UBound|UCase|UnderlyingValue|Unlock|Update|UpdateBatch|URLEncode|URLPathEncode|Value|VarType|Version|Weekday|WeekdayName|Write|Year|";
    var vbs3="常量|vbArray|vbBinaryCompare|vbBlack|vbBoolean|vbBlue|vbByte|vbCr|vbCrLf|vbCurrency|vbCyan|vbDataObject|vbDate|vbDecimal|vbEmpty|vbError|vbFalse|vbFirstJan1|vbFirstFourDays|vbFirstFullWeek|vbFormFeed|vbFriday|vbGeneralDate|vbGreen|vbInteger|vbLf|vbLong|vbLongDate|vbLongTime|vbMagenta|vbMonday|vbNewLine|vbNull|vbNullChar|vbNullString|vbObject|vbObjectError|vbRed|vbSaturday|vbShortDate|vbShortTime|vbSingle|vbString|vbSunday|vbTab|vbTextCompare|vbThursday|vbTrue|vbTuesday|vbUseDefault|vbUseSystem|vbUseSystemDayOfWeek|vbVariant|vbVerticalTab|vbWednesday|vbWhite|vbYellow|";
    var sql0="保留关键字|ADD|EXCEPT|PERCENT|ALL|EXEC|PLAN|ALTER|EXECUTE|PRECISION|AND|EXISTS|PRIMARY|ANY|EXIT|PRINT|AS|FETCH|PROC|ASC|FILE|PROCEDURE|AUTHORIZATION|FILLFACTOR|PUBLIC|BACKUP|FOR|RAISERROR|BEGIN|FOREIGN|READ|BETWEEN|FREETEXT|READTEXT|BREAK|FREETEXTTABLE|RECONFIGURE|BROWSE|FROM|REFERENCES|BULK|FULL|REPLICATION|BY|FUNCTION|RESTORE|CASCADE|GOTO|RESTRICT|CASE|GRANT|RETURN|CHECK|GROUP|REVOKE|CHECKPOINT|HAVING|RIGHT|CLOSE|HOLDLOCK|ROLLBACK|CLUSTERED|IDENTITY|ROWCOUNT|COALESCE|IDENTITY_INSERT|ROWGUIDCOL|COLLATE|IDENTITYCOL|RULE|COLUMN|IF|SAVE|COMMIT|IN|SCHEMA|COMPUTE|INDEX|SELECT|CONSTRAINT|INNER|SESSION_USER|CONTAINS|INSERT|SET|CONTAINSTABLE|INTERSECT|SETUSER|CONTINUE|INTO|SHUTDOWN|CONVERT|IS|SOME|CREATE|JOIN|STATISTICS|CROSS|KEY|SYSTEM_USER|CURRENT|KILL|TABLE|CURRENT_DATE|LEFT|TEXTSIZE|CURRENT_TIME|LIKE|THEN|CURRENT_TIMESTAMP|LINENO|TO|CURRENT_USER|LOAD|TOP|CURSOR|NATIONAL|TRAN|DATABASE|NOCHECK|TRANSACTION|DBCC|NONCLUSTERED|TRIGGER|DEALLOCATE|NOT|TRUNCATE|DECLARE|NULL|TSEQUAL|DEFAULT|NULLIF|UNION|DELETE|OF|UNIQUE|DENY|OFF|UPDATE|DESC|OFFSETS|UPDATETEXT|DISK|ON|USE|DISTINCT|OPEN|USER|DISTRIBUTED|OPENDATASOURCE|VALUES|DOUBLE|OPENQUERY|VARYING|DROP|OPENROWSET|VIEW|DUMMY|OPENXML|WAITFOR|DUMP|OPTION|WHEN|ELSE|OR|WHERE|END|ORDER|WHILE|ERRLVL|OUTER|WITH|ESCAPE|OVER|WRITETEXT|";
    var sql1="ODBC保留关键字|ABSOLUTE|EXEC|OVERLAPS|ACTION|EXECUTE|PAD|ADA|EXISTS|PARTIAL|ADD|EXTERNAL|PASCAL|ALL|EXTRACT|POSITION|ALLOCATE|FALSE|PRECISION|ALTER|FETCH|PREPARE|AND|FIRST|PRESERVE|ANY|FLOAT|PRIMARY|ARE|FOR|PRIOR|AS|FOREIGN|PRIVILEGES|ASC|FORTRAN|PROCEDURE|ASSERTION|FOUND|PUBLIC|AT|FROM|READ|AUTHORIZATION|FULL|REAL|AVG|GET|REFERENCES|BEGIN|GLOBAL|RELATIVE|BETWEEN|GO|RESTRICT|BIT|GOTO|REVOKE|BIT_LENGTH|GRANT|RIGHT|BOTH|GROUP|ROLLBACK|BY|HAVING|ROWS|CASCADE|HOUR|SCHEMA|CASCADED|IDENTITY|SCROLL|CASE|IMMEDIATE|SECOND|CAST|IN|SECTION|CATALOG|INCLUDE|SELECT|CHAR|INDEX|SESSION|CHAR_LENGTH|INDICATOR|SESSION_USER|CHARACTER|INITIALLY|SET|CHARACTER_LENGTH|INNER|SIZE|CHECK|INPUT|SMALLINT|CLOSE|INSENSITIVE|SOME|COALESCE|INSERT|SPACE|COLLATE|INT|SQL|COLLATION|INTEGER|SQLCA|COLUMN|INTERSECT|SQLCODE|COMMIT|INTERVAL|SQLERROR|CONNECT|INTO|SQLSTATE|CONNECTION|IS|SQLWARNING|CONSTRAINT|ISOLATION|SUBSTRING|CONSTRAINTS|JOIN|SUM|CONTINUE|KEY|SYSTEM_USER|CONVERT|LANGUAGE|TABLE|CORRESPONDING|LAST|TEMPORARY|COUNT|LEADING|THEN|CREATE|LEFT|TIME|CROSS|LEVEL|TIMESTAMP|CURRENT|LIKE|TIMEZONE_HOUR|CURRENT_DATE|LOCAL|TIMEZONE_MINUTE|CURRENT_TIME|LOWER|TO|CURRENT_TIMESTAMP|MATCH|TRAILING|CURRENT_USER|MAX|TRANSACTION|CURSOR|MIN|TRANSLATE|DATE|MINUTE|TRANSLATION|DAY|MODULE|TRIM|DEALLOCATE|MONTH|TRUE|DEC|NAMES|UNION|DECIMAL|NATIONAL|UNIQUE|DECLARE|NATURAL|UNKNOWN|DEFAULT|NCHAR|UPDATE|DEFERRABLE|NEXT|UPPER|DEFERRED|NO|USAGE|DELETE|NONE|USER|DESC|NOT|USING|DESCRIBE|NULL|VALUE|DESCRIPTOR|NULLIF|VALUES|DIAGNOSTICS|NUMERIC|VARCHAR|DISCONNECT|OCTET_LENGTH|VARYING|DISTINCT|OF|VIEW|DOMAIN|ON|WHEN|DOUBLE|ONLY|WHENEVER|DROP|OPEN|WHERE|ELSE|OPTION|WITH|END|OR|WORK|END-EXEC|ORDER|WRITE|ESCAPE|OUTER|YEAR|EXCEPT|OUTPUT|ZONE|EXCEPTION|";
    var sql2="将来的关键字|ABSOLUTE|FOUND|PRESERVE|ACTION|FREE|PRIOR|ADMIN|GENERAL|PRIVILEGES|AFTER|GET|READS|AGGREGATE|GLOBAL|REAL|ALIAS|GO|RECURSIVE|ALLOCATE|GROUPING|REF|ARE|HOST|REFERENCING|ARRAY|HOUR|RELATIVE|ASSERTION|IGNORE|RESULT|AT|IMMEDIATE|RETURNS|BEFORE|INDICATOR|ROLE|BINARY|INITIALIZE|ROLLUP|BIT|INITIALLY|ROUTINE|BLOB|INOUT|ROW|BOOLEAN|INPUT|ROWS|BOTH|INT|SAVEPOINT|BREADTH|INTEGER|SCROLL|CALL|INTERVAL|SCOPE|CASCADED|ISOLATION|SEARCH|CAST|ITERATE|SECOND|CATALOG|LANGUAGE|SECTION|CHAR|LARGE|SEQUENCE|CHARACTER|LAST|SESSION|CLASS|LATERAL|SETS|CLOB|LEADING|SIZE|COLLATION|LESS|SMALLINT|COMPLETION|LEVEL|SPACE|CONNECT|LIMIT|SPECIFIC|CONNECTION|LOCAL|SPECIFICTYPE|CONSTRAINTS|LOCALTIME|SQL|CONSTRUCTOR|LOCALTIMESTAMP|SQLEXCEPTION|CORRESPONDING|LOCATOR|SQLSTATE|CUBE|MAP|SQLWARNING|CURRENT_PATH|MATCH|START|CURRENT_ROLE|MINUTE|STATE|CYCLE|MODIFIES|STATEMENT|DATA|MODIFY|STATIC|DATE|MODULE|STRUCTURE|DAY|MONTH|TEMPORARY|DEC|NAMES|TERMINATE|DECIMAL|NATURAL|THAN|DEFERRABLE|NCHAR|TIME|DEFERRED|NCLOB|TIMESTAMP|DEPTH|NEW|TIMEZONE_HOUR|DEREF|NEXT|TIMEZONE_MINUTE|DESCRIBE|NO|TRAILING|DESCRIPTOR|NONE|TRANSLATION|DESTROY|NUMERIC|TREAT|DESTRUCTOR|OBJECT|TRUE|DETERMINISTIC|OLD|UNDER|DICTIONARY|ONLY|UNKNOWN|DIAGNOSTICS|OPERATION|UNNEST|DISCONNECT|ORDINALITY|USAGE|DOMAIN|OUT|USING|DYNAMIC|OUTPUT|VALUE|EACH|PAD|VARCHAR|END-EXEC|PARAMETER|VARIABLE|EQUALS|PARAMETERS|WHENEVER|EVERY|PARTIAL|WITHOUT|EXCEPTION|PATH|WORK|EXTERNAL|POSTFIX|WRITE|FLASE|PREFIX|YEAR|FIRST|PREORDER|ZONE|FLOAT|PREPARE|";

    s1=vbs0+vbs1+vbs2+vbs3;
    s2=sql0+sql1+sql2;
    s=(n==1 ? s1 : s2);
    var re = /\b(\w+)\b/g;
    ss = ss.replace(re, re_aspvbs);
    document.write (ss);
}

function re_aspvbs(a, b)
{
    var re = new RegExp("\\|("+ b +")\\|", "ig");
    if(re.test(s)) return RegExp.$1;
    else return b;
}


mainMenu=CreatePopupMenu();
mainMenu.Add("功能：规范VBS或SQL大小写",0);
mainMenu.Add( "", 0, eeMenuSeparator );
mainMenu.Add("VBS大小写规范",1);
mainMenu.Add("SQL大小写规范",2);
mainMenu.Add( "", 0, eeMenuSeparator );
mainMenu.Add("关于",100);
var witchItem=mainMenu.Track();
switch(witchItem)
{
    case 1:
        SQLVBSFormat(1);
        break;
    case 2:
        SQLVBSFormat(2);
        break;
    case 100:
        alert("哈哈哈哈,柳永法制作,\nhttp://www.yongfa365.com");
        break;
    default:
        break;
}