在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000798 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

[perl]理解贪婪匹配和最小匹配之间的区别

转换<...>外的空格为&nbsp;

利用java读取网页模板代码然后用正则表达式替换更改内容

用递归来转换嵌套的UBB代码

有了这个正则表达式全搞定

在ASP中使用FSO组件生成HTML页面

随机跳转url

FileSystemObject组件新建\读取\添加\修改\删除功能实例

认识正则表达式

使用FSO把文本信息导入数据库
发表文章
ASP和VBS的关键字首字母大写

作者:happiness     提交人:happiness     发布时间:04-07-18     文章类型:原创     浏览量:3703
参考链结:http://    
关键字:关键字|FSO|正则
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000798]

我经常用记事本编写代码,当我编写ASP和VBS代码时,想让代码编得规范点,这样就要求语句关键字的首字母大写,而手工输时麻烦,所以我就编了以下代码,用于实现自动转换;原理很简单,用FSO读写文件,用正则实现关键字的查找和替换,最后生成一个转换好的“复件XXX”文件:
<%
Set fso = CreateObject("Scripting.FileSystemObject")'建立fso对象
oldfilename = Server.MapPath("test.asp")'获得站点下需要转换文件的绝对路径
newfilename = Server.MapPath("复件"+"test.asp")'设置新建文件的绝对路径
Set OldFile = fso.OpenTextFile(oldfilename,1)'建立旧文件对象
Set NewFile = fso.CreateTextFile(newfilename,True)'建立新文件对象
While Not OldFile.AtEndOfLine'循环读取旧文件
  line = OldFile.ReadLine'读取一行
  outline = change(line)'调用函数change()转换一行
  NewFile.WriteLine(outline)'向新文件写入转换后的一行
Wend
OldFile.close'关闭旧文件对象
NewFile.close'关闭新文件对象
%>

 运行代码 拷贝代码 保存代码 [可先修改部分代码再运行;请先检查代码确定安全]

之所以分成两段,是因为下面那段代码是纯DHTML代码,可以测试。
当然还可以把对象、方法和属性的首字母大写,改改正则就可以了...
注意:以上代码不适合于转换JS代码哟,因为JS严格区分大小写,语句关键字只能小写...

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
113.2813