cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 2640|回复: 8

[fx-9860/9750系列] 在直径的书签弄好之前,想看长篇电子书的同学用这个程序应应急吧

[复制链接]
发表于 2011-2-3 17:43:28 | 显示全部楼层 |阅读模式
其他资源
程序名称: 文件分割器
系统要求: Windows XP 
软件要求: vb
版本号: 9999999999
大小(K): 0000000000
更新日期:
描述: 在直径的书签弄好之前,想看长篇电子书的同学用这个程序应应急吧
本帖最后由 GWHBOB 于 2011-2-8 11:01 编辑
  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
复制代码
”得改一改……
发表于 2011-2-3 18:53:16 | 显示全部楼层
这个……我看还是按字节分割小说好了
把一个12MB的分割成无数5KB的(2400)……
这话为了方便就要用FSO了……
发表于 2011-2-4 19:27:00 | 显示全部楼层
建议编译下……或者写成vbs
 楼主| 发表于 2011-2-4 19:40:43 | 显示全部楼层
只是个用来应急的程序……
表示直径没看过小说。坚决要按章分。不然一个词










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


(我不会vbs(应急程序连界面都没做也没面向小白,于是不值得去捣鼓),要编译?我电脑有病毒……呵呵)
发表于 2011-2-5 19:21:32 | 显示全部楼层
只是个用来应急的程序……
表示直径没看过小说。坚决要按章分。不然一个词










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


(我不会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
 楼主| 发表于 2011-2-7 20:01:26 | 显示全部楼层
大家注意。有些TXT小说是开头带目录的。要把这些目录去掉。。。不解释
发表于 2011-2-7 23:20:00 | 显示全部楼层
直径什么时候才弄好?弄不好就用ns了
发表于 2011-2-9 08:52:11 | 显示全部楼层
目录不去掉,后果很严重。
 楼主| 发表于 2011-2-9 12:21:13 | 显示全部楼层
目录去掉后你c盘就悲剧了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2022-5-17 08:53 , Processed in 0.035104 second(s), 24 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表