请高人提供一个将txt小说导入excel的思路,百分相赠。

[复制链接]
查看11 | 回复3 | 2009-1-27 20:55:05 | 显示全部楼层 |阅读模式
想要将一篇篇幅很长(怎么也要有二十万字吧)的txt格式的小说,导入到excel表格中。
要求:共两列,共N行。
第一列,放入小说的章节名称(比如第xxx章)
第二列,放入对应章节的内容。
每一行对应小说的一章,直到小说完结。
请问谁能提供一个能将这样的小说快速导入excel文件中的操作思路,(最好能提供相应函数,或者第三方软件。)
个人认为,难点在于怎样识别txt文件中的章节名称,并在两个不同的章节名称之间提取章节内容。
其实我的最终目的是将txt小说按上面的格式导入access数据库中,而我能想到的目前只有通过excel的函数整理好内容之后,再放入access中。
或许这样的想法根本就是南辕北辙,或许会有更加简单的方法能实现这个想法。
请各位高人提供行之有效的解决问题的思路,100分奉上,不成敬意。

回复

使用道具 举报

千问 | 2009-1-27 20:55:05 | 显示全部楼层
给你一个宏,可以完成这个工作。注意,只有主要功能。至于其它辅助防错等等,需要的话,你可以自己加工。 前提: 1、TXT文件为:c:\1.txt——可以根据实际需要更改程序参数 2、章号独立占一行,首字为“第”,最后一字为“章”——可以根据实际情况调整程序 程序如下: Sub readtxt() Filename = "c:\1.txt" Open Filename For Input As #1 '读文件内容 Dim InputStr, TxtBuf As String Line Input #1, InputStr i = 1 TxtBuf = "" While Not ...
回复

使用道具 举报

千问 | 2009-1-27 20:55:05 | 显示全部楼层
先将txt的文件复制到word文档中,选定整个第一章,将文本转换成表格,以段落标记作分隔,列数为一列,复制到excel,然后在excel中选定整个有文字的单元格,复制后到表二选择性粘贴,勾选转置,效果为第一列为第一章,其余列为内容,合并除第一列以外的单元格。以此类推制作第二章、第三章.......
回复

使用道具 举报

千问 | 2009-1-27 20:55:05 | 显示全部楼层
首先我不是高人,我很笨,如果文件不是太大,就一个一个的复制然后粘贴到表格中,复制一行就在TXT文件中删相应部分,是不是把文件导入到WORD文档中会比较容易分出各章节?也可以使用搜索CTRL+F各章节。我并没有明白你的最终目的。希望有高手能帮你解决...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行