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

Rasm

如题

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

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

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

总该大概有100多条把

mxxcgzxxx

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

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "delims=" %%1 in (a.txt) do (
   
4.         set "a=%%1"
   
5.         echo !a:~-32!
   
6. )>b.txt
   
7. pause>nul
   

复制代码

ArdentMan

1. 
   
2. Dim FSO, Text, vbStr, Arr, Str, OutStr
   
3. Set FSO = CreateObject("Scripting.FileSystemObject")
   
4. vbStr = FSO.OpenTextFile("a.txt").ReadAll()
   
5. Arr = Split(vbStr, vbCrLf)
   
6. For Each Str In Arr
   
7.   OutStr = OutStr & Right(Str, 32) & vbCrLf
   
8. Next
   
9. FSO.OpenTextFile("a.txt", 2, True).Write OutStr
   
10. Set FSO = Nothing
    
11. CreateObject("Wscript.Shell").Run "a.txt"
    

复制代码

保存为test.vbs运行

CUer

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

复制代码

Demon

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

复制代码

保存为test.js运行