Batch file 基于网页重命名文件夹中的文件_Batch File_Vbscript

Batch file 基于网页重命名文件夹中的文件

batch-file vbscript

Batch file 基于网页重命名文件夹中的文件,batch-file,vbscript,Batch File,Vbscript,我不知道这个问题是否恰当，但我正在学习。我有一个网页，上面有一些按钮如日本、东京、印度、英国、美国还有一个上面有图像的文件夹 YK08HJX_SYPTE_20140403170541594.jpg YK08HJX_SYPTE_20140403170542194.jpg 1YK0BHJX_SYPTE1-PC_20140403170000670.jpg 。当用户单击网页上的任何按钮时，应将sypte1 PC或SYPTE更改为该按钮文本 YK08HJX_japan_201404031705415

我不知道这个问题是否恰当，但我正在学习。我有一个网页，上面有一些按钮如日本、东京、印度、英国、美国

还有一个上面有图像的文件夹

YK08HJX_SYPTE_20140403170541594.jpg
YK08HJX_SYPTE_20140403170542194.jpg
1YK0BHJX_SYPTE1-PC_20140403170000670.jpg

。当用户单击网页上的任何按钮时，应将sypte1 PC或SYPTE更改为该按钮文本

YK08HJX_japan_20140403170541594.jpg
YK08HJX_INDIA_20140403170542194.jpg
1YK0BHJX_UK_20140403170000670.jpg.

任何帮助都将不胜感激

这是我的代码：但不知道如何通过点击按钮或href直接与网页交互。文本

清单A:RenameFiles.vbs

Dim WshShell, FileManagement, BrowseDialogBox, SelectedFolder, OldString, NewString, FullPath, TheFolder, FileList
Dim File, ThisFile, TheString, AlreadyRenamed, TempName, FlagName, Success, FindFlag, NewName, Dummy
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileManagement = WScript.CreateObject ("Scripting.FileSystemObject")
Set BrowseDialogBox = WScript.CreateObject("Shell.Application")
Set SelectedFolder = BrowseDialogBox.BrowseForFolder(0, "Select the folder containing the files you want to rename.", &H0001)
If InStr(1, TypeName(SelectedFolder), "Folder") = 0 Then
    WScript.Quit
Else
    OldString = InputBox("Enter the characters in the filename that you want to replace","Rename Files")
    If OldString = "" Then WScript.Quit
    NewString = InputBox("Enter the characters that you want to replace them with","Rename Files")
    ‘If NewString = "" Then WScript.Quit
End If
FullPath = SelectedFolder.ParentFolder.ParseName(SelectedFolder.Title).Path
Set TheFolder = FileManagement.GetFolder(FullPath)
Set FileList = TheFolder.Files
Success = 0
For Each File In FileList
    ThisFile = File.Name
    TheString = InStr(ThisFile, OldString)
    AlreadyRenamed = InStr(ThisFile, "%")
    If (TheString <> 0) And (AlreadyRenamed = 0) Then
        Success = 1
        TempName = Replace(ThisFile, OldString, NewString)
        FlagName = "%" + TempName
        File.Name = FlagName
    End If
Next
For Each File In FileList
    ThisFile = File.Name
    FindFlag = InStr(ThisFile, "%")
    If FindFlag <> 0 Then
        NewName = Replace(ThisFile, "%", "")
        File.Name = NewName
    End If
Next
If Success = 1 Then
    Dummy = WshShell.Popup ("Rename Files operation complete!",5,"Rename Files",64)
Else
    Dummy = WshShell.Popup ("Rename Files operation failed! Please repeat the operation.",0,"Rename Files",16)
End If
WScript.Quit

Dim WshShell、文件管理、浏览对话框、选定文件夹、旧字符串、新闻字符串、完整路径、文件夹、文件列表
Dim文件、this文件、字符串、AlreadyRenamed、TempName、FlagName、Success、FindFlag、NewName、Dummy
设置WshShell=WScript.CreateObject（“WScript.Shell”）
设置FileManagement=WScript.CreateObject（“Scripting.FileSystemObject”）
Set BrowseDialogBox=WScript.CreateObject（“Shell.Application”）
设置SelectedFolder=BrowseDialogBox.BrowseForFolder（0，“选择包含要重命名的文件的文件夹”。，&H0001）
如果InStr（1，TypeName（SelectedFolder），“Folder”）=0，则
WScript.Quit
其他的
OldString=InputBox（“在文件名中输入要替换的字符”，“重命名文件”）
如果OldString=“”，则WScript.Quit
NewString=InputBox（“输入要替换为的字符”，“重命名文件”）
'如果NewString=“”，则WScript.Quit
如果结束
FullPath=SelectedFolder.ParentFolder.ParseName（SelectedFolder.Title）.Path
Set offolder=FileManagement.GetFolder（完整路径）
Set FileList=offolder.Files
成功=0
对于文件列表中的每个文件
ThisFile=File.Name
字符串=InStr（此文件，旧字符串）
AlreadyRename=InStr（此文件，“%”）
如果（字符串0）和（AlreadyRenamed=0），则
成功=1
TempName=Replace（此文件、旧字符串、新字符串）
FlagName=“%”+临时名称
File.Name=FlagName
如果结束
下一个
对于文件列表中的每个文件
ThisFile=File.Name
FindFlag=InStr（此文件，“%”）
如果FindFlag为0，则
NewName=Replace（此文件“%”，“”）
File.Name=NewName
如果结束
下一个
如果Success=1，则
Dummy=WshShell.Popup（“重命名文件操作完成！”，5，“重命名文件”，64）
其他的
Dummy=WshShell.Popup（“重命名文件操作失败！请重复该操作。”，0，“重命名文件”，16）
如果结束
WScript.Quit

您提到您在与网页交互或单击按钮时遇到问题。所以我会帮你拿那份。您可以创建一个按钮单击事件，该事件将在单击任何按钮时触发。这样，您就可以将代码保存在一个子模块中。下面是一个示例：

<html>
<body>

<script language="vbscript">
    Sub DoClick(strText)

        ' strText will hold the name of the button that was clicked.
        ' Use it to rename your files.

    End Sub
</script>

<input type="button" onclick="DoClick('Japan')" value="Japan" />
<input type="button" onclick="DoClick('USA')" value="USA" />

</body>
</html>


子文档链接（strText）
'strText将保留单击的按钮的名称。
'使用它重命名您的文件。
端接头