VB.Net制作-历朝通俗演义

原先的回数,全是汉语数字,为此我先转换成了阿拉伯数字,遗憾的是阿拉伯数字100居然排在1和2之前!所以必须设置为3位数字才行!否则顺序是乱的。

以下是用VBA批量重命名的代码:

Dim FSO As New FileSystemObject
Dim fd As Folder, fl As File
Sub Test()
    On Error Resume Next
    For Each fd In FSO.GetFolder("E:\Office_VBA\历朝通俗演义").SubFolders
        For Each fl In fd.Files
            fl.Name = D2N(fl.Name)
            Debug.Print fl.Name
        Next fl
    Next fd
End Sub
Function C2N(Source As String) As String
    Const nine = "一二三四五六七八九"
    Dim temp As String
    Dim num As Integer
    If Source Like "自序*" Then
        temp = "第0回 " & Source
        C2N = temp
        Exit Function
    End If
    temp = Split(Source, "回")(0)
    temp = Split(temp, "第")(1)
    If InStr(temp, "百") > 0 Then
        num = 100
        temp = Right(temp, Len(temp) - 2)
    End If
    If InStr(temp, "十") = 1 Then
        num = num + 10
        temp = Right(temp, Len(temp) - 1)
    End If
    If InStr(temp, "十") > 1 Then
        num = num + 10 * InStr(nine, Left(temp, 1))
        temp = Right(temp, Len(temp) - 2)
    End If
    If temp <> "" Then
        num = num + InStr(nine, Left(temp, 1))
    End If
    C2N = "第" & num & "回" & Split(Source, "回")(1)
End Function
Function D2N(Source As String) As String
    Dim temp As String
    temp = Split(Source, "回")(0)
    temp = Split(temp, "第")(1)
    temp = Format(temp, "000")
    D2N = "第" & temp & "回" & Split(Source, "回")(1)
End Function

 

下载:

历朝通俗演义

下载后,必须解压缩,然后双击exe文件即可启动。

原文地址:https://www.cnblogs.com/ryueifu-VBA/p/9026663.html

时间: 2024-10-13 23:59:31

VB.Net制作-历朝通俗演义的相关文章

[历朝通俗演义-蔡东藩-前汉]第007回 寻生路徐市垦荒 从逆谋李斯矫诏

却说始皇出巡东南,行至云梦,道过九嶷山,闻山上留有舜冢,乃望山祷祀.前曾迁怒湘山祠,伐木赭山,此次胡为祀舜?再渡江南下,过丹阳,入钱塘,临浙江,江上适有大潮,风波甚恶,因向西绕道,宽行百二十里.从陿中渡过江流,乃上会稽山,祭大禹陵,又望祀南海.仍依前时故例,立石刻颂.文云: 皇帝休烈,平一宇内,德惠修长.三十有七年,亲巡天下,周览远方.遂登会稽,宣省习俗,黔首斋庄.群臣诵功,本原事迹,追首高朋.秦圣临国,始定刑名,显陈旧彰.初平法式,审别职任,以立恒常.六王专倍,贪戾傲猛,率众自疆.暴虐恣行,负

[历朝通俗演义-蔡东藩-前汉]第011回 降真龙光韬泗水 斩大蛇夜走丰乡

却说秦二世元年九月,江南沛县地方,有个丰乡阳里村,出了一位真命天子,起兵靖乱,后来就是汉朝高祖皇帝,姓刘名邦字季.父名执嘉,母王氏,名叫含始.执嘉生性长厚,为里人所称美,故年将及老,时人统称为太公.王氏与太公年龄相等,因亦呼为刘媪.刘媪尝生二子,长名伯,次名仲,伯仲生时,无甚奇异,到了第三次怀孕,却与前二胎不同.相传刘媪有事外出,路过大泽,自觉脚力过劳,暂就堤上小坐,闭目养神,似寐非寐,蓦然见一个金甲神人,从天而下,立在身旁,一时惊晕过去,也不知神人作何举动.此亦与姜嫄履拇同一怪诞,大抵中国古史

[历朝通俗演义-蔡东藩-前汉]第012回 戕县令刘邦发迹 杀郡守项梁举兵

却说芒砀二山,本来是幽僻的地方,峰回路转,谷窈林冥.刘邦与壮士十余人,寄身此地,无非为避祸起见,并恐被人侦悉,随处迁移,踪迹无定.偏有一妇人带着子女,前来寻邦,好象河东熟路,一寻就着.邦瞧将过去,不是别人,正是那妻室吕氏.夫妻父子,至此聚首,正是梦想不到的事情.邦惊问原委,吕氏道:“君背父母,弃妻孥,潜身岩谷,只能瞒过别人,怎能瞒妾?”邦闻言益惊,越要详问.吕氏道:“不瞒君说,无论君避在何地,上面总有云气盖着,妾善望云气,所以知君下落,特地寻来.”父善相人,女善望气,确是吕家特色.邦欣然道:“有

[历朝通俗演义-蔡东藩-前汉]第009回 充屯长中途施诡计 杀将尉大泽揭叛旗

却说秦二世屠戮宗室,连及亲旧,差不多将手足股肱,尽行斫去.他尚得意洋洋,以为从此无忧,可以穷极欢娱,肆行无忌,因此再兴土木,重征工役,欲将阿房宫赶筑完竣,好作终身的安乐窝.乃即日下诏道: 先帝谓咸阳朝廷过小,故营阿房宫为室堂,未就而先帝崩,暂辍工作,移筑先陵,今骊山陵工已毕,若舍阿房宫而弗就,则是章先帝举事过也.朕承先志,不敢怠遑,其复作阿房宫,毋忽! 这诏下后,阿房宫内,又聚集无数役夫,日夕营缮,忙个不了.二世尚恐臣下异心,或有逆谋,特号令四方,募选才勇兼全的武士,入宫屯卫,共得五万人.于是畜

数据库范式 通俗演义

以某知名搜索引擎公司的研发工程师的一道笔试题开篇: 题目:如果关系模式R=(A,B,C,D,E)中的函数依赖集F={A→B,B→C,CE→D},这是第几范式? 答:F={A→B,B→C,CE→D},主键为(A,E),非主属性B,C,不完全依赖于码(A,E),只依赖于主键 A,因此不符合2NF.因此为1NF. 解析: 第一范式(1NF):属性不可分: 第二范式(2NF):符合1NF,有主键,非主属性完全依赖于主键,而不是依赖于部分主键属性(部分依赖): 第三范式(3NF):符合2NF,非主键不能相

2015年读书列表

<早上3小时完成一天工作> <静观日本> <创造> <世界秩序> <创造> <当我谈跑步时我谈些什么>村上春树 <娱乐至死> <这样装修不后悔> <家庭广袖必须亲自监工的99个细节> <你的时间有限,不要为别人而活> <富爸爸穷爸爸> <知乎日报——读万里书> <程序员健康指南> <久坐致命,我们该怎么办> <我不知道该说什么,关于死

2014年至今的博文目录(更新至2017年06月12日)

拓扑学中凝聚点的几个等价定义(2017-06-12 07:51) 江苏省2017年高等数学竞赛本二试题(含解答)(2017-06-10 20:59) 裴礼文数学分析中的典型问题与方法第4章一元函数积分学练习(2017-06-10 11:04) 2017年厦门大学第十四届景润杯数学竞赛试卷(数学类)评分标准(2017-06-05 15:31) 2017年华东师范大学数学竞赛(数学类)试题(2017-06-05 15:28) 裴礼文数学分析中的典型问题与方法第3章一元微分学练习(2017-05-30

2017年读书计划

前言 这篇博文就暂时不记录技术了,记录下生活.对自己今年2017年做个读书计划安排. 最近在看一部网络剧 - <花间提壶方大厨>,也许你们会感觉我很无聊,我也是被头条带坏了,每天上班一个小时的地下交通-地铁,就借助上海的花生地铁免费WIFi浏览今日头条看看新闻度过,可是每一天今日头条差不多都要给我发一篇该电视剧的相关文章或者视频片段. 剧里有个老先生,是男猪脚的师傅 - 苍满云,他是一个屡次科举不中,从而心灰意冷的看淡功名的人,他也是一个身形瘦高学识渊博,晓医术通八卦的人,平日里是早上说书,中

我读过的书单

这个是读过,不是挑选出来的推荐,这个后面做.读过的书有很多,但是不是全部都是好书,求学路上,谁不坑一坑呀~~~ 这里大概能占到读过的书的一半,因为其他的都找不到购买记录了.这些书都是在淘宝,京东和当当上找到订单整理出来的,亚马逊的密码暂时忘记,悲催,实体书店也买过很多书,朋友也送了很多,尤其是科幻那部分,绝对是连1/10都不到....先列出来吧,以后找到了再补上,有时间推荐一些好书出来. # 国际关系.政治与斗争 无政府社会:世界政治中的秩序研究(第4版)世界秩序:基辛格中国政府管理2025年世