C#,.net,SQL,VBS,WSH,SEO,Javascript,服务器安全,正则表达式,成功学。。。-先做正确的事情,再把事情做正确。力争专业
611 朋友 - 2008-7-15 14:28:43 一直都在关注你,你的文章也让我很受用。 看了你这篇文章,我也很伤感,有过同感! 不过加油!为美好的明天努力! 610 yongfa365 - 2008-7-15 10:49:19 着色代码出了点问题,现在正常了: C# 实现 int[]到string[]的转换方法 Array.ConvertAll - 柳永法(yongfa365)'Blog www.yongfa365.com/Item/CShiXianintDaostringJistringDaointDeZhuanHuanFangFa.html 609 飞飞 - 2008-7-14 22:38:07 在vs中调试了你给出的int转换到string的代码,怎么老是会出错啊?能给我你的qq号吗?我的是68066299,能请教你东西吗? 605 柳永法 - 2008-7-11 17:18:33 你看到的应该是我的iis清理那块,那里的日志文件是有一定格式的,比如:ex071212.log,我的程序就是根据文件名删除文件 的,你的: del /s /q *.txt %dir%%okstr% 删除所有文件呀,且你那个%dir%%okstr%都没写对呀。总体来说,你还不清楚程序是如何运行的,你再研究研究,不会的话再留言 604 海海 - 2008-7-11 16:45:17 @echo off title ☆ ☆ ::设置当前日期前多少天或后多少天 color 0a set/a beforedays=-3 ::设置目录所在位置 set dir=d:\cjq ::当前日期转换为天数并进行计算 call :Date2Day %date:~0,10% days set/a days=%days%%beforedays% call :Day2Date %days% lastdate ::计算完毕,生成想要的字符组合 set okstr=%lastdate:~0,4%-%lastdate:~4,2%-%lastdate:~6,2% ::删除文件夹 echo 当前日期:%date:~0,10% echo 您要删除:“%dir%”目录下的 “%beforedays%”天的文件夹“%okstr%” echo 将要执行以下操作:del /s /q %dir% %okstr% echo. echo. ::使用时把下边这条给注释掉。 del /s /q *.txt %dir%%okstr% exit :Date2Day setlocal ENABLEEXTENSIONS for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (set yy=%%a & set mm=%%b & set dd=%%c) set /a dd=100%dd%%%100,mm=100%mm%%%100 set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633 endlocal&set %2=%j%&goto :EOF :Day2Date setlocal ENABLEEXTENSIONS set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5 set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10 (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%) endlocal&set %2=%yy%%mm%%dd%&goto :EOF 这是我安你的修改的,就是删除前三天的文件,可是,到了三天后就把我目录里的文件全部删除,为什么啊. 603 晴阳 - 2008-7-11 4:56:25 是因为开始菜单中的是FlolderShortCut, 而不是.lnk式的文件链接。 可以在网上搜索一下windows快捷方式的类型, 我也是一个脚本爱好者,你的网站我已收藏, 期待你的脚本更加完善。 602 小头猎豹 - 2008-7-10 14:20:50 偶然看到拜读了,今后还常到这阅读学习。 601 匿名网友 - 2008-7-7 14:34:23 一个好人 600 匿名网友 - 2008-7-7 14:26:00 顶起来 599 leon - 2008-7-7 13:00:31 很实用,谢谢 598 woo.my - 2008-7-4 16:30:17 柳哥每天坚持写自己的心声及日所发生的事情!真的对自己很负责哦 嘿嘿!希望我们能成为朋友! QQ:426-917 597 lovebear777 - 2008-7-4 13:34:21 最近一段时间都在出差没时间上网。最近碰到一个session的问题,很头疼,不知道你有没有时间可以探讨一下我的QQ是45092611 596 pobobo - 2008-7-3 14:06:05 我也想要全部英文书签站的图标,不知道你这有没有 595 匿名网友 - 2008-6-30 22:15:11 修复LSP连接也可以 594 to 坏坏 - 2008-6-28 13:10:08 加我,QQ上说, 593 坏坏 - 2008-6-28 4:08:47 难道你解决不了我提的问题吗?那东西现在网上找不到,所以想找个人帮帮忙 不过玩那东西很危险的,因为很可能连自己的administrator都会被毁掉~~ 所以我把说明文件也发给你了~提权只是一部分,主要是把手动部分全改成自动话的部分 592 birder - 2008-6-26 8:27:33 非常精辟,深有同感 591 pplivexiazai.com - 2008-6-26 2:16:51 感谢感谢网友的分享!!!我已解决此问题 590 坏坏 - 2008-6-25 16:53:37 我已经把问题和代码发到你的QQ上了,请查收 589 yongfa365 - 2008-6-25 16:24:45 应该不会吧,这可是标准的操作方法呀 588 lqlzxl - 2008-6-25 12:26:56 这种方法我试过,但有时候xml读不出来 587 yongfa365 to 坏坏 - 2008-6-22 10:23:37 我的代码是根据你提供的例子写的,如果实际情况不一样,得做出相应处理,里面用到了正则表达式,如果你对这个不了解,处理起来会有问题, 另:我感觉你要做的应该是提权。你可以把代码发给我,我给你弄一下。 另2:就是有人留言后,我的程序会异步给我发个邮件,这个程序我叫他异步机器人,他的出现主要是解决:让用户留言后能直接返回留言页面,不至于得等发完邮件后才能返回,这个过程有时会很慢,所以用异步完成。 586 坏坏 - 2008-6-22 7:43:54 如果在a.txtb.txt里加上 [注册表地址]比如[HKEY_LOCAL_MACHINE\目录] 好象失败了 会显示第10行第一个字符出错 改不来。。。 所以希望你对代码进行解释~~呵呵 还有请问 异步机器人 是怎么回事啊 585 坏坏 - 2008-6-22 1:01:15 你能解释一下你发的代码吗? a=ReadFile("a.txt") b=ReadFile("b.txt") Set re = New RegExp re.IgnoreCase = True re.Global = True patrn="""A""=[\s\S]+?\r\n""B""" re.Pattern = patrn Set Matches = re.Execute(a) c=Matches(0).value c=re.Replace(b,c) CreateFile "c.txt",c Function ReadFile(filename) Set FSO = CreateObject("Scripting.FileSystemObject") Set cnt = FSO.OpenTextFile(filename, 1, True) readfile = cnt.ReadAll End Function Function CreateFile(FileName, Content) Set FSO = CreateObject("Scripting.FileSystemObject") Set fd = FSO.CreateTextFile(FileName, True) fd.WriteLine Content End Function 尽量详细,因为我有的地方必须做出修改,谢谢 581 yongfa365 - 2008-6-19 17:33:02 倒,以前只是极速的完成经理分配的任务,现在是研究,以前有问题的现在也拿来研究下什么原因喽 |
默认分类(52) ![]() 专题(3) ![]() .Net + C#(37) ![]() ASP+VBS(147) ![]() 服务器相关(165) ![]() JavaScript(76) ![]() Linux(10) ![]() 搜索引擎+SEO(74) ![]() 数据库+SQL(71) ![]() web 2.0(24) ![]() 程序人生(24) ![]() 网络相关(34) ![]() 励志人生(72) ![]() 幽默笑话(44) ![]() 心程(56) ![]() 生活(73) ![]() 创业+管理+市场+客户(14) ![]()
2008年9月(21) 2008年8月(20) 2008年7月(25) 2008年6月(28) 2008年5月(21) 2008年4月(45) 2008年3月(37) 2008年2月(8) 2008年1月(32) 2007年12月(52) 2007年11月(19) 2007年10月(25) 2007年9月(23) 2007年8月(34) 2007年7月(32) 2007年6月(45) 2007年5月(67) 2007年4月(24) 2007年3月(38) 2007年2月(43) 2007年1月(46) 2006年12月(29) 2006年11月(68) 2006年10月(45) 2006年9月(26) 2006年8月(49) 2006年7月(74) |
