Question

用VBS脚本实现：查找文件中指定内容，然后以查找的内容来重命名该文件名？

具体需求如下：
1、用VBS实现
2、查找文件格式为.txt，比如我文件中有如下内容：
ADC-4503-A#show run
Building configuration...
Current configuration : 10415 bytes
!
! Last configuration change at 17:14:39 GMT Wed Feb 6 2013 by cisco
! NVRAM config last updated at 17:14:40 GMT Wed Feb 6 2013 by cisco
!
version 12.2
no service pad
service timestamps debug uptime
service timestamps log uptime
service password-encryption
service compress-config
!
hostname ADC-4503-A
!
boot-start-marker

而我要查找的关键字是：“hostname” ，找到这个关键字后以hostname后面的字符串重命名此TXT文档。

3、此VBS能针对同一个文件夹下的多个TXT文件操作，即执行一次就能达到重命名该文件夹下所有满足条件的TXT文档

在此感谢！

Answer 1

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder("D:\photos") '改成文件夹的路径
set files=folder.files
for each file in files
ext=fso.getExtensionName(file)
if ext ="txt" then
set fread = fso.opentextfile(file.path,1)
str = ""
do until fread.atendofstream
strline=fread.readline
if left(strline,8) ="hostname" then
str = right(strline,len(strline)-8)
str =replace(str," ","")&"."&ext
exit do
end if
loop
fread.close
if file.name <> str then
file.name = str
end if
end if
next
————————————————————————————
以上代码需要保证hostname 后面的文字不能重复，因为文件名称是不能完全相同的。