[文本处理] 【已解决】批处理：提取间隔的行

思想之翼

在txt文本中，有若干行，若要提取间隔的行，VBA代码如何写？若间隔1行、2行......N行，代码修改哪里？恳望大师帮助！

kzppp

用skip=行，跳过前面的，或者复制源文件后给每行加标识符如：标识2： 标识N 然后提取标识行，后除掉标识

Batcher

gawk "NR%2" a.txt >b.txt
复制代码

cjiabing

@echo off&setlocal enabledelayedexpansion
set /p m=输入间隔行数：
if "%m%"=="" set m=1
set n=-1
for /f "tokens=*" %%a in (a.txt) do (
    if !n! neq -1 (if !n! == %m% echo;%%a&set n=-1) else echo;%%a
    set /a n+=1
)
pause
复制代码

思想之翼

回复 4# cjiabing


  弱弱问一句：版主啊，  最后提取出来的数据，放在了哪里？

apang

@echo off
set /a k=2,n=-1
(for /f "delims=" %%a in (a.txt) do (
  set /a n+=1,m=n%%k,1/m 2>nul||echo,%%a
))>b.txt
复制代码

更改第二行k的值