问编号文件重命名算法
EN

Stack Overflow用户

提问于 2012-02-15 08:33:45

回答 1查看 515关注 0票数 0

问题标记为ASP经典，但算法解决方案是可以的。

我有以下一组按顺序编号的文件：

1.jpg，2.jpg，3.jpg，4.jpg .X.jpg

我需要一个函数，它将接受两个文件名，即fromFile和toFile参数，并且需要重命名所有需要的文件，以便from文件按toFile之前的顺序移动，在重新编号之间的文件被重命名。

示例：

将1.jpg移动到4.jpg应执行以下操作：

将1.jpg重命名为1.jpg.temp

rename 2.jpg到1.jpg

重命名3.jpg到2.jpg

重命名1.jpg.temp到3.jpg

文件不受操作

F 211的影响

将4.jpg移动到2.jpg应执行以下操作：

将4.jpg重命名为4.jpg.tmp

rename 3.jpg到4.jpg

重命名2.jpg到3.jpg

重命名1.jpg到2.jpg

重命名4.jpg.tmp到1.jpgH 123其他文件不受影响<代码>H 224<代码>F 225

作为输入，我有一个字符串数组，其中包含文件名和到/从的两个文件名。

您能告诉我文件重命名的最佳方法是什么吗？

algorithm

asp-classic

在线客服搭建方案

搭建集AI机器人、在线客服、智能外呼等多功能服务的客服系统，支持快速接入及自搭建客服系统，从而让顾客快速得到解答

回答 1

Stack Overflow用户

回答已采纳

发布于 2012-02-15 21:29:51

下面是一个简单的方法，考虑到所有的文件都将被命名为numeric.jpg，那么您必须构建自己的函数：

FileExists(Filename)

RenameFile(OriginalFilename,NewFilename)

<%

Input1 = Request.Form("file1")
Input2 = Request.Form("file2")

'gets digits only
Input1Digit = Left(Input1,Instr(Input1,".")) 
Input2Digit = Left(Input2,Instr(Input2,".")) 


'is file1 less than file2?             
If Input1Digit < Input2Digit Then    

    'loop through the digits frontwards 1 to 5
    For x = Input1Digit to Input2Digit    

        'if the first loop?
        If cStr(x) = cStr(Input1Digit) Then 

            'see if file exists here
            If FileExists(Input1) Then 
                FileRename(Input1, Input1 & ".temp") 'Rename the file here [From, To]
                OriginalFileExists = True
            Else
                FileRename(Input1, Input1Digit & ".jpg"
                OriginalFileExists = False
            End If

        'if not on the first loop?
        Else        

            'did the original file exist '.temp'
            If OriginalFileExists Then 
                NewFileName = cInt(x) - 1
            Else
                NewFileName = cInt(x)
            End If    

            'rename each file here
            RenameFile(x & ".jpg", NewFileName & ".jpg")

        End If    
    Next 

Else


    'loop through the digits more to less 5 to 1
    For x = Input1Digit to Input2Digit STEP -1    

        'if the first loop?
        If cStr(x) = cStr(Input1Digit) Then 

            'see if file exists here
            If FileExists(Input1) Then 
                FileRename(Input1, Input1 & ".temp") 'Rename the file here [From, To]
                OriginalFileExists = True
            Else
                FileRename(Input1, Input1Digit & ".jpg"
                OriginalFileExists = False
            End If

        'if not on the first loop?
        Else        

            'did the original file exist '.temp'
            If OriginalFileExists Then 
                NewFileName = cInt(x) + 1
            Else
                NewFileName = cInt(x)
            End If    

            'rename each file here
            RenameFile(x & ".jpg", NewFileName & ".jpg")

        End If    
    Next 



End If
%>