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

Rasm

如题

文本内，每一行的最后32位字符都是我想要提取的

前面的内容不重要，不知道该怎么写

32位字符都是 字母和数字搭配，没有中文

总该大概有100多条把

mxxcgzxxx

以下不能输出特殊字符，并将结果保存于b.txt,32中位包含空格也会输出。

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

ArdentMan

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"
复制代码

保存为test.vbs运行

CUer

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

Demon

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

保存为test.js运行