【已解决】批处理：提取间隔的行

思想之翼

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

kzppp

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

Batcher

1. gawk "NR%2" a.txt >b.txt

复制代码

cjiabing

1. @echo off&setlocal enabledelayedexpansion
   
2. set /p m=输入间隔行数：
   
3. if "%m%"=="" set m=1
   
4. set n=-1
   
5. for /f "tokens=*" %%a in (a.txt) do (
   
6.     if !n! neq -1 (if !n! == %m% echo;%%a&set n=-1) else echo;%%a
   
7.     set /a n+=1
   
8. )
   
9. pause

复制代码

思想之翼

回复 4# cjiabing


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

apang

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

复制代码

更改第二行k的值