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

每天几分 · 发表于 2012-10-20 12:21:37

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

比如：
飞狐外传

雪山飞狐

连城诀

天龙八部

射雕英雄传

白马啸西风

鹿鼎记

笑傲江湖

书剑恩仇录

神雕侠侣

侠客行

倚天屠龙记

碧血剑

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

apang · 发表于 2012-10-20 13:03:12

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt",1)
A = Split(File.ReadAll,vbCrLf)
For i = 0 To UBound(A)
If Trim(A(i)) = "" Then
N = N + 1
Str = Str & N & vbCrLf
Else
Str = Str & A(i) & vbCrLf
End If
Next
FSO.CreateTextFile("b.txt",True).Write Str

复制代码

保存为test.vbs，与a.txt放在同一位置，试试看

每天几分 · 发表于 2012-10-26 18:08:15

回复 2# apang

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

forfiles · 发表于 2012-10-26 18:40:59

回复 3# 每天几分

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt",1)
A = Split(File.ReadAll,vbCrLf)
For i = 0 To UBound(A)
If Trim(A(i)) = "" Then
N = N + 1
Str = Str & "- " & N & " -" & vbCrLf
Else
Str = Str & A(i) & vbCrLf
End If
Next
FSO.CreateTextFile("b.txt",True).Write Str

复制代码

		自动登录	找回密码
密码			注册

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

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

评分

评分

评分