批处理之家 » BAT求助&讨论 » 【已解决】批处理：提取间隔的行

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 5 Rank: 5

帖子: 639
积分: 1257
技术: 1
捐助: 0
注册时间: 2012-7-1

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2013-2-24 16:33 | 只看该作者

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

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

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

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 1

帖子: 20
积分: 34
技术: 0
捐助: 0
注册时间: 2013-1-24

2楼

发表于 2013-2-24 22:49 | 只看该作者

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

Rank: 12

帖子: 14911
积分: 46111
技术: 855
捐助: 745
注册时间: 2008-6-9

3楼

发表于 2013-2-24 22:52 | 只看该作者

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

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 8 Rank: 8

帖子: 1726
积分: 4476
技术: 95
捐助: 0
注册时间: 2008-12-21

4楼

发表于 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
复制代码

寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

Rank: 5 Rank: 5

帖子: 639
积分: 1257
技术: 1
捐助: 0
注册时间: 2012-7-1

5楼

发表于 2013-2-25 03:58 | 只看该作者

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

回复 4# cjiabing

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

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

6楼

发表于 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的值

1 评分人数

思想之翼: 完美解决问题。颁发热心助人奖！技术 + 1