[文本处理] 批处理如何提取文本每一行最后32位字符？

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%1 in (a.txt) do (
        set "a=%%1"
        echo !a:~-32!
)>b.txt
pause>nul
复制代码

Dim FSO, Text, vbStr, Arr, Str, OutStr
Set FSO = CreateObject("Scripting.FileSystemObject")
vbStr = FSO.OpenTextFile("a.txt").ReadAll()
Arr = Split(vbStr, vbCrLf)
For Each Str In Arr
  OutStr = OutStr & Right(Str, 32) & vbCrLf
Next
FSO.OpenTextFile("a.txt", 2, True).Write OutStr
Set FSO = Nothing
CreateObject("Wscript.Shell").Run "a.txt"
复制代码

sed "s/.*\(.\{32\}\)$/\1/" a.txt >b.txt
复制代码

(new ActiveXObject("scripting.filesystemobject")).OpenTextFile("b.txt", 2, true).Write((new ActiveXObject("scripting.filesystemobject")).OpenTextFile("a.txt").ReadAll().replace(/^.+(.{33})$/img, "$1"));
复制代码