웹 페이지를 기반으로 폴더의 파일 이름을 바꿉니다.

이것이 적절한 질문인지 여부는 알지만 배우고 있습니다. 나는 그것을 일본, 도쿄, 인도, 영국 등의 에 대한 몇 가지 버튼이있는 웹 페이지,웹 페이지를 기반으로 폴더의 파일 이름을 바꿉니다.

미국과

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

에 이미지가있는 폴더가 있습니다. 사용자가 웹 페이지의 아무 단추에서 s를 클릭하면 sypte1-PC 또는 SYPTE가 해당 단추 텍스트로 변경되어야합니다.

YK08HJX_japan_20140403170541594.jpg 
YK08HJX_INDIA_20140403170542194.jpg 
1YK0BHJX_UK_20140403170000670.jpg.

어떤 도움을 주시면 감사하겠습니다.

이것은 내 코드입니다. 그러나 버튼 클릭이나 href에서 직접 웹 페이지와 상호 작용하는 방법은 없습니다. 본문.

목록 : 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

출처

2014-04-04 pretyv5

당신은 당신이 문제가 웹 페이지 또는 버튼 클릭으로 상호 작용을 가지고 있었다 언급했다. 그래서 그 부분을 도와 드리겠습니다. 단추를 클릭 할 때마다 발생하는 단일 단추 클릭 이벤트를 작성할 수 있습니다. 그렇게하면 단일 하위 코드를 유지할 수 있습니다. 예를 들면 다음과 같습니다.

<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>

출처

2014-04-04 17:18:03 Bond

웹 페이지를 기반으로 폴더의 파일 이름을 바꿉니다.

답변

관련 문제