存档

2009年12月 的存档

俺么搔瑞

2009年12月31日 没有评论

200912310803022af12

分类: 图片 标签:

EVERY WOMAN IN THE WORLD

2009年12月13日 没有评论

EVERY WOMAN IN THE WORLD
Air Supply
(Dominic Buggatti/Frank Musker)


Every night seems dinner and wine
Saturday days
I was never in love, never had the time
In my hustle and hurried world
Laughing my self to sleep, waking up lonely
I needed someone to hold me, oh
It’s such a crazy home town
It can drag you down
Till you run out of dreams
So you party all night to the music and lights
But you don’t know what happiness means
I was dancing in the dark with strangers
No love around me
When suddenly you found me, oh
Girl, you’re every woman in the world to me
You’re my fantasy, you’re my reality
Girl, you’re every woman in the world to me
You’re everything I need, you’re everything to me

阅读全文…

vbs批量重命名脚本

2009年12月3日 没有评论

功能::假设有个文件夹的所有文件名称前面有个AA_开头,这个小脚本的作用就是删除这个AA_。只是简单的小脚本,如果还有多个”_”字符的时候,重复使用有可能会全部都删除了。

使用:dir填写实际文件所在目录;target填写要分割的字符,保存为.VBS文件,双击运行。做好备份,因为是直接修改原始文件!

dir=("C:\Users\海军\Desktop\104CANON")
target=("_")

Set fso = CreateObject("Scripting.FileSystemObject")
set rfd=fso.getfolder(dir)
set fs=rfd.files
for each f in fs

        If InStr(f.name,target) Then
            length=Len(f.name)
            star=InStr(f.name,target)
            newname=Right(f.name,length-star)
            f.name=newname
        End If

Next

分类: 技术 标签: ,