开源！把txt小说文本转换成HTML页面模块

a285166531 · 发表于 2016-10-15 17:26:09

小说格式必须是
小说名
第XXXX章
正文。。。。。。
第XXXX章

否则转换失败

一下是源代码
新建4个常量
.版本 2
.常量 head, "<文本长度: 158>"
.常量 wei, "<文本长度: 24>"
.常量广告, "<文本长度: 0>"
.常量代码前缀1, "<文本长度: 165>"

内容为

常量_head 内容:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gbk" /><style type="text/css">pre{word-wrap: break-word;}</style></head><dir><h1><pre>
常量_wei 内容：
</pre></H1></dir></html>
常量_广告内容:
自定义
常量_代码前缀1 内容:
<p><a name=0><a/></p><table align= "center "><tr><td></td><td></td><td>目录</td><td></td><td></td><td></td></tr></table> <hr /><table border= "1" align= "center" >

.版本 2
.子程序 txt小说转html, 文本型
.参数 txt文本, 文本型, , 传进来的txt小说文件
.局部变量章节_第, 文本型
.局部变量章节名, 文本型, , "0"
.局部变量章节名2, 文本型, , "0"
.局部变量章节名3, 文本型, , "0"
.局部变量删_换行, 整数型
.局部变量计次, 整数型
.局部变量章节代码, 文本型
.局部变量判断html, 整数型
.局部变量添加代码1, 文本型, , "0"
.局部变量添加goto1, 文本型
.局部变量添加goto2, 文本型, , "0"
.局部变量计次A, 整数型
.局部变量计次B, 整数型
.局部变量完整, 文本型
.局部变量上次位置_第, 整数型
.局部变量上次位置_章, 整数型
.局部变量上次位置_换行符, 整数型
.局部变量判断HTML_zj, 整数型
信息框 (“单击'确认'开始生成小说文本，很慢(文件越大越慢)，请勿操作电脑谢谢!!!!” ＋ #换行符＋ “如果处理不成功，请将小说的章节格式改成 ” ＋ #换行符＋ “ ‘第XX章小说名+换行’”, 0, )
.判断开始 (信息框 (“请确认标题是否过长，如果标题过长，将无法正常添加标题！” ＋ #换行符＋ “请确认以继续处理！”, #确认取消钮, ) ＝ 0)
txt文本＝ #head ＋ txt文本＋ #wei
.计次循环首 (30000, 计次)
      .判断开始 (上次位置_第＝ 0)
         上次位置_第＝寻找文本 (txt文本, “第”, 1, 假)
      .默认
         上次位置_第＝寻找文本 (txt文本, “第”, 上次位置_第＋ 2, 假)
      .判断结束
      章节_第＝取文本中间 (txt文本, 上次位置_第, 50)
      .判断开始 (上次位置_第＝ -1)
         跳出循环 ()
      .判断 (上次位置_章＝ 0)
         上次位置_章＝寻找文本 (章节_第, “章”, 1, 假)
      .默认
         上次位置_章＝寻找文本 (章节_第, “章”, 上次位置_章, 假)
      .判断结束
      .判断开始 (上次位置_章 ≠ -1)
         .判断开始 (上次位置_换行符＝ 0)
            上次位置_换行符＝寻找文本 (章节_第, #换行符, 1, 假)
         .默认
            上次位置_换行符＝寻找文本 (章节_第, #换行符, 上次位置_换行符, 假)
         .判断结束
         .判断开始 (上次位置_换行符 ≠ -1)
            添加goto1 ＝取文本中间 (章节_第, 1, 上次位置_换行符)
            加入成员 (章节名, 添加goto1)
         .默认
            上次位置_换行符＝寻找文本 (章节_第, #换行符, 上次位置_换行符, 假)
            添加goto1 ＝取文本中间 (章节_第, 1, 上次位置_换行符)
            加入成员 (章节名, 添加goto1)
         .判断结束
      .默认
      .判断结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (章节名), 计次)
      .判断开始 (章节名 [计次] ＝ “”)
         章节名 [计次] ＝ “第” ＋到文本 (计次) ＋ “章”
      .默认
      .判断结束
      加入成员 (章节名2, 章节名 [计次])
.计次循环尾 ()
.计次循环首 (取数组成员数 (章节名2), 计次)
      加入成员 (章节名3, 子文本替换 (章节名2 [计次], 字符 (13), , , , 假))
.计次循环尾 ()
.判断开始 (取数组成员数 (章节名3) ＝ 0)
      信息框 (“您的小说没有章节信息！请确认！”, 0, )
.默认
.判断结束
.计次循环首 (取数组成员数 (章节名3), 计次A)
      判断HTML_zj ＝寻找文本 (txt文本, 章节名3 [计次A], , 假)
      添加goto2 ＝分割文本 (txt文本, 章节名3 [计次A], )
      .判断开始 (判断HTML_zj ＝ -1)
      .默认
         txt文本＝添加goto2 [1] ＋ “<hr /><a name=” ＋到文本 (计次A) ＋ “>” ＋章节名3 [计次A] ＋ “ || <a href='#0'>回到顶部</a> ||” ＋添加goto2 [2]
      .判断结束
.计次循环尾 ()
章节代码＝ #代码前缀1 ＋ #换行符
.计次循环首 (取数组成员数 (章节名3), 计次)
      .判断开始 (计次％ 6 ＝ 1)
         章节代码＝章节代码＋ “<tr><td><a href='#” ＋到文本 (计次) ＋ “'>” ＋章节名3 [计次] ＋ “</a></td>” ＋ #换行符
      .默认
      .判断结束
      .判断开始 (计次％ 6 ＝ 2)
         章节代码＝章节代码＋ “<td><a ?href='#” ＋到文本 (计次) ＋ “'>” ＋章节名3 [计次] ＋ “</a></td>” ＋ #换行符
      .默认
      .判断结束
      .判断开始 (计次％ 6 ＝ 3)
         章节代码＝章节代码＋ “<td><a ?href='#” ＋到文本 (计次) ＋ “'>” ＋章节名3 [计次] ＋ “</a></td>” ＋ #换行符
      .默认
      .判断结束
      .判断开始 (计次％ 6 ＝ 4)
         章节代码＝章节代码＋ “<td><a ?href='#” ＋到文本 (计次) ＋ “'>” ＋章节名3 [计次] ＋ “</a></td>” ＋ #换行符
      .默认
      .判断结束
      .判断开始 (计次％ 6 ＝ 5)
         章节代码＝章节代码＋ “<td><a ?href='#” ＋到文本 (计次) ＋ “'>” ＋章节名3 [计次] ＋ “</a></td>” ＋ #换行符
      .默认
      .判断结束
      .判断开始 (计次％ 6 ＝ 0)
         章节代码＝章节代码＋ “<td><a ?href='#” ＋到文本 (计次) ＋ “'>” ＋章节名3 [计次] ＋ “</a></td></tr>” ＋ #换行符
      .默认
      .判断结束

.计次循环尾 ()
章节代码＝章节代码＋ “</table>”
判断html ＝寻找文本 (txt文本, “<a name=1>”, 1, 假)
添加代码1 ＝分割文本 (txt文本, “<a name=1>”, )
.判断开始 (判断html ＝ -1)
      信息框 (“请添加html代码后再操作”, 0, )
.默认
      txt文本＝添加代码1 [1] ＋ “</pre>” ＋章节代码＋ “<pre><hr />” ＋ “<a name=1>” ＋添加代码1 [2]
.判断结束

.默认
.判断结束
返回 (txt文本)

txt转换HTML.rar (2.86 KB, 下载次数: 71)