留言列表页
 
姓名: 记住我
网址:
邮箱:
内容:
验证码:  验证码图片看不清? 换张图试试
 
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
倒,以前只是极速的完成经理分配的任务,现在是研究,以前有问题的现在也拿来研究下什么原因喽
 
   
 
 
文章分类
 
   

Power by :柳永法(yongfa365)'Blog | Model by :hibaidu | CSS by:众网友 | 京ICP备07011491号  QQ:64049027  E-mail:64049027qq.com

本空间赞助商:北京中科兴联信息技术有限公司