批处理之家 - Powered by Discuz! Board

标题: [文本处理] 【已解决】批处理：提取间隔的行 [打印本页]

作者: 思想之翼 时间: 2013-2-24 16:33 标题: 【已解决】批处理：提取间隔的行

本帖最后由思想之翼于 2013-2-28 10:44 编辑

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

作者: kzppp 时间: 2013-2-24 22:49

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

作者: Batcher 时间: 2013-2-24 22:52

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

作者: cjiabing 时间: 2013-2-24 23:21

@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
复制代码

作者: 思想之翼 时间: 2013-2-25 03:58

本帖最后由思想之翼于 2013-2-25 04:00 编辑

回复 4# cjiabing

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

作者: apang 时间: 2013-2-25 10:45

@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的值

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