Board logo

标题: [文本处理] 【已解决】批处理：提取间隔的行 [打印本页]
作者: 思想之翼    时间: 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

  1. gawk "NR%2" a.txt >b.txt
复制代码
作者: cjiabing    时间: 2013-2-24 23:21

  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
复制代码
作者: 思想之翼    时间: 2013-2-25 03:58

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

回复 4# cjiabing


  弱弱问一句：版主啊，  最后提取出来的数据，放在了哪里？
作者: apang    时间: 2013-2-25 10:45

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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2