在线动漫视频[火影忍者]Naruto 火影忍者疾风传剧场版八特别篇「炎之中忍考试」抢新版

2012年4月27日星期五 | | 0 评论 |

最新动漫视频[火影忍者]Naruto 火影忍者疾风传剧场版八特别篇「炎之中忍考试」 抢新版 在线观看

中文字幕 - 火影在线观看 - 实时更新 - 精彩不断


[火影忍者]Naruto 火影忍者疾风传剧场版八特别篇「炎之中忍考试」剧情介绍:

火影忍者疾风传剧场版八特别篇「炎之中忍考试」, 讲述了在过去中忍选拔试验落选的鸣人再度挑战的故事。在这次试验中,从小时候开始就仰慕鸣人的木叶丸也将参加,两人战斗对抗,描述一段竞争者间的热血友情。战斗一触即发。



请记住我们的网址: Naruto
请记住我们的网站: 火影忍者Naruto视频-动漫天地Naruto

火影忍者 火影忍者 中文网 :Naruto-cNn

我们一直在努力, 用心做好您心目中最好的 : 火影忍者Naruto中文网

在线动漫视频[火影忍者]Naruto 火影忍者疾风传剧场版8「血狱」抢新版

| | 0 评论 |

最新动漫视频[火影忍者]Naruto 火影忍者疾风传剧场版8「血狱」 抢新版 在线观看

中文字幕 - 火影在线观看 - 实时更新 - 精彩不断


[火影忍者]Naruto火影忍者疾风传剧场版8「血狱」 剧情介绍:

《火影忍者剧场版:血狱》为《火影忍者》的第8个剧场版,故事舞台被设置在断崖绝壁,四面环海的孤岛监狱"鬼灯城"。在本篇故事中,鸣人因被指控杀害云隐和岩隐的上忍,及暗杀雷影未遂被投入监狱。"鬼灯城"城主无为拥有着超强的禁固术,鸣人不但因城主"无为"的最强禁锢术失去了所有力量,还处处遭人暗杀,他是否能活着证实自己的清白?笼罩这座岛的阴谋和秘密究竟是什么?为了得到真相,鸣人与同伴们将奋起战斗!而鸣人如何从监牢逃脱找到陷害自己的人,从而证明自己的清白则是更大的悬念。



请记住我们的网址: Naruto
请记住我们的网站: 火影忍者Naruto视频-动漫天地Naruto

火影忍者 火影忍者 中文网 :Naruto-cNn

我们一直在努力, 用心做好您心目中最好的 : 火影忍者Naruto中文网

在线动漫视频[火影忍者]Naruto 第480集 放送10周年4周连续特别企划“离别” 抢新版

| | 0 评论 |

最新动漫视频[火影忍者]Naruto 第480集 放送10周年4周连续特别企划"离别" 抢新版 在线观看

中文字幕 - 火影在线观看 - 实时更新 - 精彩不断


[火影忍者]Naruto 第480集 放送10周年4周连续特别企划"离别" 剧情介绍:

佐助离开了木叶,前往大蛇丸身边。鸣人坚信佐助是同伴,与鹿丸,丁次,牙,宁次等人一同拼命追逐。这时,音忍四人众挡在了他们面前。 同伴们为了佐助而受伤倒地,鸣人继承了他们的意志,前去追逐佐助。鸣人是为了组织身为朋友的佐助,而佐助是为了得到更强大的力量。在终结之谷,两人的思绪互相碰撞....



请记住我们的网址: Naruto
请记住我们的网站: 火影忍者Naruto视频-动漫天地Naruto

火影忍者 火影忍者 中文网 :Naruto-cNn

我们一直在努力, 用心做好您心目中最好的 : 火影忍者Naruto中文网

在线动漫视频[火影忍者]Naruto 第479集 放送10周年4周连续特别企划“龟裂” 抢新版

2012年4月25日星期三 | | 0 评论 |

最新动漫视频[火影忍者]Naruto 第479集 放送10周年4周连续特别企划"龟裂" 抢新版 在线观看

中文字幕 - 火影在线观看 - 实时更新 - 精彩不断


[火影忍者]Naruto 第479集 放送10周年4周连续特别企划"龟裂" 剧情介绍:

火影忍者479集放送10周年4周连续特别企划"龟裂"



请记住我们的网址: Naruto
请记住我们的网站: 火影忍者Naruto视频-动漫天地Naruto

火影忍者 火影忍者 中文网 :Naruto-cNn

我们一直在努力, 用心做好您心目中最好的 : 火影忍者Naruto中文网

在线动漫视频[火影忍者]Naruto 第478集 放送10周年4周连续特别企划“对手” 抢新版

2012年4月12日星期四 | | 0 评论 |

最新动漫视频[火影忍者]Naruto 第478集 放送10周年4周连续特别企划"对手" 抢新版 在线观看

中文字幕 - 火影在线观看 - 实时更新 - 精彩不断


[火影忍者]Naruto 第478集 放送10周年4周连续特别企划"对手" 剧情介绍:

鸣人佐助总是争论不休,在死亡森林与中忍考试中合理达成目标。然而面对强敌大蛇丸,佐助却止步不前,之后又见到了超常发挥的鸣人而感到焦虑不已。 在与雨忍的对战中,佐助也与鸣人一同对抗他们,由于鸣人的超常发挥,他们得以逃过一劫,不服输的佐助越来越无法忽视极速成长的鸣人,再次向内心宣誓"自己是一个复仇者"



请记住我们的网址: Naruto
请记住我们的网站: 火影忍者Naruto视频-动漫天地Naruto

火影忍者 火影忍者 中文网 :Naruto-cNn

我们一直在努力, 用心做好您心目中最好的 : 火影忍者Naruto中文网

分享用VBscript实现批量替换文件名,文件夹名

2012年4月11日星期三 | | 0 评论 |

有这么一些文件,比如:
照片_001.jpg
照片_002.jpg
照片_003.jpg
有时候因为某种需要,想把"照片"批量改为自己定义的好听的名字,比如改为
avill_001.jpg
avill_002.jpg
avill_003.jpg
假如有1000张甚至更多的图片时,用手动来改的话不把你累死,也会被烦死的。
正因为这种需要,又不想安装什么软件。就直接用vbScript来实现了,即简单又方便,只要把下面的代码复制保存为 rename.vbs 就可以使用了。
' 批量替换文件名称
'
 author : avill
'
 upate  :2006.2.28
'

Dim NewLine
NewLine 
= vbcrlf
TabStop 
= ""

function isFolderExists(fso,folderPath)
  
if folderPath = empty then exit function
  
If not FSO.FolderExists(folderPath) Then
     
msgbox "foloder not exists!please try agian"
     folderPath 
= InputBox("批量替换文件名称"& vbcrlf &"请输入路径[绝对路径],为空则自动退出","")
     
call isFolderExists(fso,folderPath)     
  
end if
end function

Function doRepWord(Files,filePath,repWord,resWord)

    
Dim S,file,count,newName
        repWord 
= split(repWord,";")
        count 
= 0
        
Set fso = CreateObject("Scripting.FileSystemObject")

        
For Each File In Files
          
for each repStr in repWord
           
if instr(File.Name,repStr)<>0 then
             newName 
= replace(file.name,repStr,resWord)
             
If not fso.FileExists(filePath&"\"&newName) Then
                
'msgBox "exists"             
                file.name = newName
                count 
= count + 1
             
end if
           
end if
          
next 
        
Next

    doRepWord 
= count

End Function

sub reName()
  
dim s,folderPath,repWord,resWord
  folderPath 
= "F:\Exercise\xhtml_info\taobao_images"
  folderPath 
= ""
  folderPath 
= InputBox("批量替换文件名称"& vbcrlf &"请输入路径[绝对路径]","")
  
  
  
Set fso = CreateObject("Scripting.FileSystemObject")
  
call isFolderExists(fso,folderPath)
  
if folderPath = empty then exit sub
  repWord 
= InputBox("希望要替换掉的字符,多个字符请用分号[;]隔开!","")
  resWord 
= InputBox("希望将字符替换为:!",""
 
  
Set Folder = FSO.GetFolder(folderPath)
  
Set Files = Folder.Files
 
  
If 1 = Files.Count Then
     S 
= S & "There is 1 file" & NewLine
  
Else
     S 
= S & "There are " & Files.Count & " files" & NewLine
  
End If

  
If Files.Count <> 0 Then
     s 
= s & "replace files:" & doRepWord(Files,folderPath,repWord,resWord) &NewLine
  
End If

  
msgbox s 
  
end sub

call reName()


同样地,下面的代码是实现批量替换文件夹名称,复制下面代码保存为 refolder.vbs 用法同上.

' 批量替换文件夹名称
'
 author : avill
'
 update : 2006.2.26
'

Dim NewLine
NewLine 
= vbcrlf
TabStop 
= ""

function isFolderExists(fso,folderPath)
  
if folderPath = empty then exit function
  
If not FSO.FolderExists(folderPath) Then
     
msgbox "foloder not exists!please try agian"
     folderPath 
= InputBox("请输入路径[绝对路径],为空则自动退出","")
     
call isFolderExists(fso,folderPath)     
  
end if
end function

Function doRepWord(Files,repWord,resWord)

    
Dim S,file,count
        repWord 
= split(repWord,";")
        count 
= 0
        
For Each File In Files
          
for each repStr in repWord
          
if instr(File.Name,repStr)<>0 then
             file.name 
= replace(file.name,repStr,resWord)
             count 
= count + 1
          
end if
          
next 
        
Next

    doRepWord 
= count

End Function

sub reName()
  
dim s,folderPath,repWord,resWord
  folderPath 
= "F:\Exercise\xhtml_info\taobao_images"
  folderPath 
= InputBox("批量替换文件夹名称"& chr(13&"请输入路径[绝对路径]","")
  
  
  
Set fso = CreateObject("Scripting.FileSystemObject")
  
call isFolderExists(fso,folderPath)
  
if folderPath = empty then exit sub
  repWord 
= InputBox("希望要替换掉的字符,多个字符请用分号[;]隔开!","")
  resWord 
= InputBox("希望将字符替换为:!",""
 
  
Set Folder = FSO.GetFolder(folderPath)
  
Set Files = Folder.SubFolders

  
If 1 = Files.Count Then
     S 
= S & "There is only 1 folder"  &NewLine
  
Else
     S 
= S & "There are " & Files.Count &" folders "&NewLine
  
End If

  
If Files.Count <> 0 Then
     s 
= s & "replace folderName:" & doRepWord(Files,repWord,resWord) &NewLine
  
End If


if 1 = 2 then

  
Set Files = Folder.Files
 
  
If 1 = Files.Count Then
     S 
= S & "There is 1 file" & NewLine
  
Else
     S 
= S & "There are " & Files.Count & " folders" & NewLine
  
End If

  
If Files.Count <> 0 Then
     s 
= s & "replace folder:" & doRepWord(Files,repWord,resWord) &NewLine
  
End If

end if

  
msgbox s 
  
end sub

call reName()

参考: http://www.cnblogs.com/avill/archive/2006/03/02/341424.html


所有文章收集于网络,如果有牵扯到版权问题请与本站站长联系。谢谢合作![email protected]