时间:2014-01-29 来源:

VBScript版代码高亮

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>VBScript版代码高亮</title><link href="style.css" rel="stylesheet" type="text/css" /></head>

<body><div class="menu_head">VBScript版代码高亮</div><div class="content"><script language="vbscript" type="text/vbscript">'======================================'代码高亮类'使用方法:'Set HL = New Highlight '定义类'HL.Language = "vb" '指定程序语言web外包, SQL, X, SplitWords, i, 0)>0 Then    If Flag = 1 Then     Key = Mid(Codecontent, i - S)     If Keywords<>"" And Instr(1,"& Keywords &", "," ,",","&Key&", Ignore)>0 Then      Content = Content & "<font color=""red"">"&Key&"</font>"     ElseIf Tags <>"" And Instr(1,"& Tags &", "," , i, i,CodeContent,i ,Mid(CodeContent, 1))>0 Then     Str = Mid(CodeContent, 1)     S = i     Do      S = Instr(S + 1 , Str, T,i, i,CodeContent, 1)     if S = 0 Then      S = Len(CodeContent)     End if     Content = Content & "<font color=""Green"">"& HtmlEnCode(Mid(CodeContent, S - i + Len(CommentOff) ))&"</font>"     i = S + Len(CommentOff)    ElseIf X = "" Then     Content = Content & " "    ElseIf X = """" Then     Content = Content & """    ElseIf X = "&" Then     Content = Content & "&"    ElseIf X = "<" Then     Content = Content & "<"    ElseIf X = ">" Then     Content = Content & ">"    ElseIf X = Chr(9) Then     Content = Content & "  "    ElseIf X = VBLF Then     Content = Content & "<br />"    Else     Content = Content & X    End If   Else    If Flag = 0 Then     S = i     Flag = 1    End if   End If  Next  if Flag = 1 Then   Execute = Content & Mid(CodeContent,void,boolean,if,new,false,catch,null,int,do,Number,RegExp,Math,.?!;:\/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符    LineComment = "//" '行注释    CommentOn = "/*" '多行注释    CommentOff = "*/" '多行注释结束    Ignore = 0  '是否区分大小写    Tags = ""  '标记    StrOn = """"  '字符串标记    Escape = "\"  '字符串界定符转义

 Public Property Let Language(Str)  Dim S  S = UCase(Str)  Select Case true   Case S = "VB" Or S = "VBS" OR S = "VBSCRIPT":    Keywords = "And,ByVal,Case,Const,Do,Else,Empty,Eqv,Error,Explicit,For,Get,Imp,Is,Loop,Next,Nothing,On,Or,Property,Randomize,Resume,Set,Sub,To,Until,While,Anchor,Asc,CBool,CCur,CDbl,CInt,Cos,CSng,Date,DateDiff,DateSerial,Day,Document,Err,FileSystemObject,Fix,Form,FormatDateTime,FormatPercent,Hex,InputBox,InstrRev,IsDate,IsNull,IsObject,LBound,Left,Link,Location,LTrim,Trim,Minute,MonthName,Navigator,Oct,Right,Round,ScriptEngineBuildVersion,ScriptEngineMinorVersion,Sgn,Space,Sqr,String,Tan,TextStream,TimeValue,UBound,VarType,WeekDayName,Function"    Objects ="String,Boolean,Integert,Double,.?!;:\/<>(){}[]""'=+-|*%@#$^& "&VBCRLF&Chr(9)    LineComment = "'"    CommentOn = ""    CommentOff = ""    StrOn = """"    Escape = ""    Ignore = 1    CodeContent = ""    Tags = ""

   Case s = "C#":    Keywords = "abstract,base,break,case,char,class,continue,default,do,else,event,extern,finally,float,foreach,goto,implicit,int,internal,lock,namespace,null,operator,override,private,public,ref,sbyte,short,stackalloc,set,struct,this,true,typeof,ulong,unsafe,using,virtual,volatile,Boolean,Int32,Exception,DataReader" '对象    SplitWords = " ,"&","<",">","""",Chr(9)," ",VBLF,?xml,version,Number,RegExp,Math,.?!;:\/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符    LineComment = "//" '行注释    CommentOn = "<!--" '多行注释    CommentOff = "-->" '多行注释结束    Ignore = 0  '是否区分大小写    Tags = ""  '标记    StrOn = """"  '字符串标记    Escape = "\"  '字符串界定符转义

   Case S = "JAVA" :    Keywords = "abstract,break,case,char,const,default,double,extends,finally,for,if,import,int,long,new,private,public,short,strictfp,switch,this,throws,try,volatile,Boolean,Int32,Exception,DataReader" '对象    SplitWords = " ,void,boolean,if,new,false,catch,null,int,do,width,cellspacing,align,class,href,name,Number,RegExp,Math,.?!;:\/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符  LineComment = "//" '行注释  CommentOn = "/*" '多行注释  CommentOff = "*/" '多行注释结束  Ignore = 0  '是否区分大小写  Tags = "a,html,body,style,language,select,span,img,frame,table,td,form,meta,DELETE,LOCK,SELECT,READ,WRITE,ROLLBACK,ROLE,NONE,DUAL,COMMENT,FROM,INTO,ROW,MODE,UPDATE,NOWAIT,SAVEPOINT,UNION,INTERSECT,START,CONNECT,GROUP,ORDER,NOWAIT,SET,PACKAGE,REPLACE,FUNCTION,RETURN,BEGIN,END,THEN,ELSE,CURSOR,WHEN,NO_DATA_FOUND,CURSOR_ALREADY_OPENED,LOOP,OUT,OF,BINARY_INTEGER,ROWTYPE,NUMBER,DATE,LONG RAW,INTEGER,CURRENT,DEFAULT,NEXTVAL,ROWID,DISTINCT,LIKE,NOT,BETWEEN,AND,EXISTS,DESC,CEIL,COSH,FLOOR,LOG,POWER,SIGN,SINH,TAN,TRUNC,CONCAT,LOWER,LTRIM,NLS_LOWER,REPLACE,RTRIM,SUBSTR,TRANSLATE,ASCII,INSTRB,LENGTHB,ADD_MONTHS,MONTHS_BETWEEN,NEXT_DAY,SYSDATE,CHARTOROWID,HEXTORAW,ROWIDTOCHAR,TO_DATE,TO_MULTI_BYTE,TO_SINGLE_BYTE,GREATEST,LEAST,NVL,USER,VSIZE,COUNT,LUB,MIN,SUM,.?!;:\\/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符    LineComment = "--" '行注释    CommentOn = "/*" '多行注释    CommentOff = "*/" '多行注释结束    Ignore = 1  '是否区分大小写    Tags = ""  '标记    StrOn = "'"  '字符串标记    Escape = ""  '字符串界定符转义  End Select End PropertyEnd Class</script><script language="vbscript" type="text/vbscript">Function plaster() document.form1.code.focus() document.execCommand("Paste")End Function

<div id="highlight" align="left" style="width:98%;overflow:auto;word-wrap:word-break;word-break:break-all;"><div></body></html>

点击次数:16501
作者:
web前端行业资讯
Web new NewsList
英特尔宣布与法拉利跨界合作欲将AI技术用于赛车运动 ,,2018年01月11日甲骨文服务器出漏洞:攻击者用漏洞挖矿获取加密货币 ,,2018年01月11日用深度学习设计图像视频压缩算法:更简洁、更强大 ,,2018年01月11日Ubuntu内核和NVIDIA更新:修复Meltdown和Spectre两处漏洞 ,,2018年01月11日AntDesign3.1.1发布,阿里企业级UI设计语言 ,,2018年01月11日微信「跳一跳」带火小游戏,开发者如何快速上手? ,,2018年01月11日谷歌公布最新安卓系统份额:你用上奥利奥了么? ,,2018年01月11日腾讯开发出“3D音效”算法:普通耳机实现3D实时语音效果 ,,2018年01月11日谷歌工程师点赞中国程序员实现Node.js启动超4倍提速 ,,2018年01月11日三星电子总裁兼CE部门负责人金炫奭:万物互联时代到来 ,,2018年01月11日NVIDIA和大众合作建立智能驾驶助手 ,,2018年01月11日GIMPS项目报告发现已知最大素数 ,,2018年01月11日微软与生物技术公司开展AI驱动的血液检测同时诊断数十种疾病 ,,2018年01月11日微软跨平台移动开发工具套件HockeyApp宣布免费 ,,2018年01月11日《硅谷》里神乎其神的压缩技术,AI正在一点点做出来 ,,2018年01月11日LinuxMint19代号敲定为“Tara”预计2018年5月至6月期间发布 ,,2018年01月11日Facebook发布wav2letter工具包,用于端到端自动语音识别 ,,2018年01月11日开源数据库ArangoDB正进行约1156万美元股权融资 ,,2018年01月11日IntelCPU漏洞闹大:腾讯云紧急升级 ,,2018年01月11日2018年1月全球数据库排名:Redis夺回第八 ,,2018年01月11日Lyft将联手无人驾驶公司于CES上展示无人驾驶汽车 ,,2018年01月11日京东X无人超市首家社会门店开业:刷脸进、微信自动结算 ,,2018年01月11日担心被AI取代是杞人忧天?高晓松跨年演讲说的有几分对 ,,2018年01月11日免费授权技术许可Intel宣布在未来CPU中集成雷电3 ,,2018年01月11日算法决定你在社交媒体上看到的信息 ,,2018年01月11日谷歌安全博客披露“英特尔内核漏洞”更多细节 ,,2018年01月04日Postgres10开发者新特性 ,,2017年12月28日阿里巴巴、狗尾草、苏大联合论文:基于对抗学习的众包标注用于中文命名实体识别 ,,2017年12月28日柯洁的2017:20岁,与AI斗与人类斗,其乐无穷 ,,2017年12月28日如果机器人拥有痛觉,这个世界会有哪些不一样? ,,2017年12月28日jquery$.each()使用探讨2014年01月29日微软触控屏响应提速100倍或是未来WP手机卖点 ,,2016年06月23日Java反射机制初涉【综合】2015年08月26日uva10405LongestCommonSubsequence(最长公共子序列) 【编程语言】2015年03月11日Spring框架分为哪七大模块 【移动开发】2015年04月27日LeetCodeValidParentheses【架构设计】2015年02月09日FactorialTrailingZeroes,172题,可能是我没读清楚,还报错,【互联网】2015年01月04日在gitpush前如何遗弃掉历史commit 【编程语言】2015年07月03日STM32外设DMA使用总结2015年06月17日Android自定义系统分享面板 【互联网】2014年11月18日软件项目工作流程图【移动开发】2014年11月12日Ubuntu开机显示Anerroroccurredwhilemountingprocbususb问题的解决 【编程语言】2015年02月09日将数据放至数据库外或文件系统来提高报表系统性能 【编程语言】2015年01月24日网络攻防技术 【综合】2015年01月04日PHP函数执行效率的小比较2014年01月29日linux命令之uname 【架构设计】2014年11月26日OpenCV下的CSV文件读、写 【编程语言】2015年04月01日zoj3327FriendNumber贪心 【综合】2015年04月24日Impress.js制作酷炫PresentationPPT 【云计算】2015年04月17日codeforces278C.LearningLanguages(并查集)【综合】2015年05月12日一个bug引发的感想【移动开发】2015年04月29日约瑟夫环问题 【编程语言】2015年04月07日Arcgisforjavascript实现百度地图ABCDmarker的效果 【架构设计】2015年09月06日白话VPB(volumeparameterblock) 【云计算】2015年01月04日漫谈程序员系列:怎样成为技术达人 【互联网】2014年12月29日2015年3I工作室候选人名单公布【移动开发】2014年11月04日表单数字字符验证正则2014年01月29日Cocoa过滤器NSPredicate入门使用【编程语言】2015年01月12日PhotoshopCS5制作GIF动画Banner2014年01月28日Teams(uva11609+组合) 【编程语言】2015年06月12日
我们保证
We guarantee
> psd效果文件手工切图,保证图片效果最好体积最小利于传输
> 100%手写的HTML(DIV+CSS)编码,绝对符合W3C标准
> 代码精简、css沉余量小、搜索引擎扫描迅速,网页打开快捷
> 应用Css Sprite能够减少HTTP请求数,提高网页性能
> 跨浏览器兼容(IE6、7、8、9,Firefox火狐,Chrome谷歌)