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

GWHBOB

1. Private Sub Command1_Click()
   
2. Dim s As String, I As Long
   
3. I = 0
   
4. Open "c:\b.txt" For Input As #1
   
5. Open "c:\b\000.txt" For Output As #2
   
6. While Not EOF(1)
   
7. Line Input #1, s
   
8. If (Mid(s, 1, 1) = "第") And (InStr(s, "章") <> 0) Then
   
9. I = I + 1
   
10. Close #2
    
11. Open "c:\b" + Format(I, "000") & ".txt" For Output As #2
    
12. End If
    
13. Print #2, s
    
14. Wend
    
15. Close #1, #2
    
16. End Sub
    

复制代码

把文件另存为"c:\b.txt"，在c盘建立"b\"的文件夹
鉴于一些小说“第x章”之前有空格，判断语句“

1. If (Mid(s, 1, 1) = "第") And (InStr(s, "章") <> 0) Then

复制代码

”得改一改……

diameter

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

Zms

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

GWHBOB

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










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


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

Zms

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










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


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

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

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

疯狂地快ZZZ了

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

zhj

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

GWHBOB

目录去掉后你c盘就悲剧了