唐诗三百首[开源]

阳光宝宝

原帖由 sgz888 于 2008-12-18 20:13 发表
水平还是很高的，全部研究清楚还要是花很多时间的。

发现强人，积分那么高，在线时间那么长，太恐怖了：

总计在线 2853 小时, 本月在线 243 小时

本月才18天，可你居然在线243小时了，难道你电脑24小时全开着，你的浏览器也一直不关闭，就打开本站吗？

bz3zwy

强！楼主的数据文件竟然是用文本文件做的。
如果增加在程序中增添诗文，修改诗文的功能，实用性就更强了。

VBProFan

好像看过这个程序（看到的那个好像是不开源的）

阳光宝宝

原帖由 bz3zwy 于 2008-12-18 22:09 发表
强！楼主的数据文件竟然是用文本文件做的。
如果增加在程序中增添诗文，修改诗文的功能，实用性就更强了。

看它的模块代码应该就明白，增加增、删、改诗文的功能应该是可以的，只是文本的重新组合罢了：

1. Public Type TangPoetry                 '唐诗
   
2.     Rhyme As String             '格律
   
3.     Title As String             '标题
   
4.     Author As String            '作者
   
5.     Content As String           '内容
   
6.     Notes As String             '注-简析
   
7. End Type
   
8. 
   
9. '---------------------------------------------------------------------
   
10. 
    
11. Public fTangPoetry() As TangPoetry            '保存唐诗数据 (二维表)一行一条记录,一列一个字段,下标从0开始记录
    
12. Public intCurIndex As Integer                  '当前是第几首唐诗

复制代码

再回楼上，这个程序楼主好象是发布过的

jiwei79

用文本做出这样的还是不错的

dazuo0459

下的我手都累了。。。

asdf4321

呵呵 论坛里的强人还是不少啊，楼主就是一个。

xwwxyz

路过的，也看一看。

lixingkai0

呵呵，有意思

vbgo

原帖由 阳光宝宝 于 2008-12-18 21:32 发表


发现强人，积分那么高，在线时间那么长，太恐怖了：

总计在线 2853 小时, 本月在线 243 小时

本月才18天，可你居然在线243小时了，难道你电脑24小时全开着，你的浏览器也一直不关闭，就打开本站吗？

那都是挂机惹的祸