[文本处理] 【已解决】批处理：提取各列特定位置的数值

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt")
T = Time
Do Until File.atEndOfStream
   Text = File.ReadLine
   If RegEx <> "" Then     '排除空行
      A = Split(RegEx," ")
      m = UBound(A)         'm=列数
      ReDim PreServe B(m,n) '申明数组B
      For i = 0 to m :B(i,n) = A(i) :Next '数组B赋值
      n = n + 1 '行数
   End If
Loop

n = n - 1
For i = 1 to m      'm=列数
   For j = 0 to n   'n=行数
      flag = 1
      For k = j + 1 to n
         If B(i,j) = B(i,k) Then   '相等则赋值为上一行的值
            flag = 0 :B(i,j) = B(i,k-1) :Exit For
         End If
      Next
      If flag Then B(i,j) = " "    '不相等则赋值为空格
   Next
Next

For i = 0 to n  '写入文件
   Str = ""
   For j = 1 to m : Str = Str & vbTab & B(j,i) : Next
   FSO.OpenTextFile("b.txt",8,true).WriteLine B(0,i) & Str
Next
MsgBox T & vbLf & Time

Function RegEx()
   Set Re = New RegExp
   Re.Pattern = "\s+"
   Re.Global = True
   RegEx = Trim(Re.Replace(Text," "))
End Function
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1*" %%i in (a.txt) do (
    set /a num+=1,n=0
    set _!num!=%%i
    for %%a in (%%j) do (
        set /a n+=1
        for %%b in (!n!) do set $%%b=!$%%b! %%a
    )
)
for /l %%i in (1 1 %n%) do (
    for /l %%j in (1 1 %num%) do (
        for /f "tokens=1*" %%a in ("!$%%i!") do (
            set s=&set f=%%a&set "$%%i=%%b"
               for %%c in (%%b) do (
                   if not defined s (
                      if %%a equ %%c set s=!f!
                      set f=%%c
                   )
               ) 
        )
                      set #%%j=!#%%j! !s!
    )
)

(for /l %%i in (1 1 !num!) do echo !_%%i!!#%%i!)>a2.txt

pause
复制代码

For i = 1 to m '总列数
   For j = 0 to n '总行数
      f = 1
      For k = j + 1 to n
         If j + 1 <= n and k + 1 <= n Then
            If b(i,j) = b(i,k) and b(i,j+1) = b(i,k+1) Then '有重复则赋值为上一行的值
               f = 0 :b(i,j) = b(i,k-1) :Exit For
            End If
         End If
      Next
      If f Then b(i,j) = " "  '没有重复则赋值为空格
   Next
Next
复制代码