GWHBOB 发表于 2011-2-3 17:43:28

在直径的书签弄好之前，想看长篇电子书的同学用这个程序应应急吧

本帖最后由 GWHBOB 于 2011-2-8 11:01 编辑

Private Sub Command1_Click()
Dim s As String, I As Long
I = 0
Open "c:\b.txt" For Input As #1
Open "c:\b\000.txt" For Output As #2
While Not EOF(1)
Line Input #1, s
If (Mid(s, 1, 1) = "第") And (InStr(s, "章") <> 0) Then
I = I + 1
Close #2
Open "c:\b\" + Format(I, "000") & ".txt" For Output As #2
End If
Print #2, s
Wend
Close #1, #2
End Sub
把文件另存为"c:\b.txt"，在c盘建立"b\"的文件夹
鉴于一些小说“第x章”之前有空格，判断语句“If (Mid(s, 1, 1) = "第") And (InStr(s, "章") <> 0) Then”得改一改……

diameter 发表于 2011-2-3 18:53:16

这个……我看还是按字节分割小说好了
把一个12MB的分割成无数5KB的（2400）……
这话为了方便就要用FSO了……

Zms 发表于 2011-2-4 19:27:00

建议编译下……或者写成vbs

GWHBOB 发表于 2011-2-4 19:40:43

只是个用来应急的程序……
表示直径没看过小说。坚决要按章分。不然一个词










语被隔在俩文件里。就象这样。极不给力……


（我不会vbs（应急程序连界面都没做也没面向小白，于是不值得去捣鼓），要编译？我电脑有病毒……呵呵）

Zms 发表于 2011-2-5 19:21:32

只是个用来应急的程序……
表示直径没看过小说。坚决要按章分。不然一个词










语被隔在俩文件里。就象这样。极不给力……


（我不会vbs（应急程序连界面都没做也没面向小白，于是不值得去捣鼓 ...
GWHBOB 发表于 2011-2-4 19:40 http://www.cncalc.org/images/common/back.gif

vbs完完全全是VB的语法，读写文件也可用FSO
（大概可以写成以下形式，我正在用linux无法测试）
[*]Dim s As String, I As Long[*]I = 0[*]Open "c:\b.txt" For Input As #1[*]Open "c:\b\000.txt" For Output As #2[*]While Not EOF(1)[*]Line Input #1, s[*]If (Mid(s, 1, 1) = "第") And (InStr(s, "章") <> 0) Then[*]I = I + 1[*]Close #2[*]Open "c:\b\"Format(I, "000") & ".txt" For Output As #2[*]End If[*]Print #2, s[*]Wend[*]Close #1, #2

GWHBOB 发表于 2011-2-7 20:01:26

大家注意。有些TXT小说是开头带目录的。要把这些目录去掉。。。不解释

疯狂地快ZZZ了 发表于 2011-2-7 23:20:00

直径什么时候才弄好？弄不好就用ns了

zhj 发表于 2011-2-9 08:52:11

目录不去掉，后果很严重。

GWHBOB 发表于 2011-2-9 12:21:13

目录去掉后你c盘就悲剧了
页: [1]
查看完整版本: 在直径的书签弄好之前，想看长篇电子书的同学用这个程序应应急吧