求助一个批处理，将文本最后一行放在第一行

271308568

求助一个批处理，将文本最后一行放在第一行.
1.txt

1.1.1.1:443
2.2.2.2:443
3.3.3.3:443
....
n.n.n.n:443
执行后变为
n.n.n.n:443
....
1.1.1.1:443
2.2.2.2:443
3.3.3.3：443

Guile

开价吧

zxxx

cscript /nologo rotate.vbs z:\input.txt

1. Set args = WScript.Arguments
   
2. inputFileName  = WScript.Arguments(0)
   
3. outputFileName = "z:\temp.txt"
   
4. 
   
5. Dim WshShell : Set wshShell = CreateObject("WScript.Shell")
   
6. Set objInputFSO = CreateObject("Scripting.FileSystemObject")
   
7. Set objOutputFSO = CreateObject("Scripting.FileSystemObject")
   
8. 
   
9. Set objInputFile = objInputFSO.OpenTextFile(inputFileName, 1)
   
10. Set objOutputFile = objOutputFSO.OpenTextFile(outputFileName, 2,True)
    
11. 
    
12. inputLines = Split(objInputFile.ReadAll, vbCrLf)
    
13. If ubound(inputLines) > 0 Then
    
14.   For x = ubound(inputLines) to 1
    
15.     lastLine = inputLines(x)
    
16.     If lastLine <> String.Empty Then
    
17.       Exit For
    
18.     End If
    
19.   Next
    
20.   lastLine = inputLines(ubound(inputLines))
    
21. 
    
22.   objOutputFile.WriteLine(inputLines(ubound(inputLines)))
    
23.   For x = 0 to ubound(inputLines) - 2
    
24.     objOutputFile.WriteLine(inputLines(x))
    
25.   Next
    
26. 
    
27.   objOutputFile.Write(inputLines(ubound(inputLines) - 1))
    
28. End If
    
29. 
    
30. objInputFile.Close
    
31. objOutputFile.Close
    
32. 
    
33. ' Copy File
    
34. Set objInputFile = objInputFSO.OpenTextFile(outputFileName, 1)
    
35. Set objOutputFile = objOutputFSO.OpenTextFile(inputFileName, 2,True)
    
36. objOutputFile.Write(objInputFile.ReadAll)
    
37. objInputFile.Close
    
38. objOutputFile.Close

复制代码

271308568

zxxx 发表于 2021-5-7 00:05
cscript /nologo rotate.vbs z:\input.txt

谢谢大佬，能使用