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

Rank: 3Rank: 3

帖子
134 
积分
232 
技术
0  
捐助
0  
注册时间
2012-9-21 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-10-20 12:21 | 只看该作者

[文本处理] [已解决]请问BAT如何在空行自动生成按顺序排列的数字？

本帖最后由 每天几分 于 2012-10-20 13:08 编辑

比如：
飞狐外传

雪山飞狐

连城诀

天龙八部

射雕英雄传

白马啸西风

鹿鼎记

笑傲江湖

书剑恩仇录

神雕侠侣

侠客行

倚天屠龙记

碧血剑

鸳鸯刀
……
在空行中自动生成按顺序排序的数字即：
飞狐外传
1
雪山飞狐
2
连城诀
3
天龙八部
4
射雕英雄传
5
白马啸西风
6
鹿鼎记
7
笑傲江湖
8
书剑恩仇录
9
神雕侠侣
10
侠客行
11
倚天屠龙记
12
碧血剑
13
鸳鸯刀
……
1

评分人数

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

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
2楼
发表于 2012-10-20 13:03 | 只看该作者 
  1. Set FSO = CreateObject("Scripting.FileSystemObject")

  2. Set File = FSO.OpenTextFile("a.txt",1)

  3. A = Split(File.ReadAll,vbCrLf)

  4. For i = 0 To UBound(A)

  5.    If Trim(A(i)) = "" Then

  6.       N = N + 1

  7.       Str = Str & N & vbCrLf

  8.    Else

  9.       Str = Str & A(i) & vbCrLf

  10.    End If

  11. Next

  12. FSO.CreateTextFile("b.txt",True).Write Str
复制代码
保存为test.vbs，与a.txt放在同一位置，试试看
1

评分人数

TOP

每天几分

Rank: 3Rank: 3

帖子
134 
积分
232 
技术
0  
捐助
0  
注册时间
2012-9-21 
3楼
发表于 2012-10-26 18:08 | 只看该作者
回复 2# apang


    请问这个vbs还能再改善一下么，我想在生成的数字前后加上- 数字 -这种符号。
即：
飞狐外传
- 1 -
雪山飞狐
- 2 -
连城诀
- 3 -
天龙八部
- 4 -
射雕英雄传
- 5 -
白马啸西风
- 6 -
鹿鼎记
- 7 -
笑傲江湖
- 8 -
书剑恩仇录
- 9 -
神雕侠侣
- 10 -
侠客行
- 11 -
倚天屠龙记
- 12 -
碧血剑
- 13 -
鸳鸯刀
……

TOP

forfiles

Rank: 8Rank: 8

帖子
571 
积分
5364 
技术
29  
捐助
0  
注册时间
2012-6-7 
4楼
发表于 2012-10-26 18:40 | 只看该作者
回复 3# 每天几分 
  1. Set FSO = CreateObject("Scripting.FileSystemObject")

  2. Set File = FSO.OpenTextFile("a.txt",1)

  3. A = Split(File.ReadAll,vbCrLf)

  4. For i = 0 To UBound(A)

  5.     If Trim(A(i)) = "" Then

  6.         N = N + 1

  7.         Str = Str & "- " & N & " -" & vbCrLf

  8.     Else

  9.         Str = Str & A(i) & vbCrLf

  10.     End If

  11. Next

  12. FSO.CreateTextFile("b.txt",True).Write Str
复制代码
1

评分人数

TOP

返回列表