批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理如何提取文本每一行最后32位字符？ [打印本页]

作者: Rasm 时间: 2011-7-10 06:51 标题: 批处理如何提取文本每一行最后32位字符？

如题

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

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

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

总该大概有100多条把

作者: mxxcgzxxx 时间: 2011-7-10 07:35

以下不能输出特殊字符，并将结果保存于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 时间: 2011-7-10 09:23

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 时间: 2011-7-10 10:41

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

作者: Demon 时间: 2011-7-10 19:26

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

保存为test.js运行

欢迎光临批处理之家 (http://www.bathome.net/)