《宋史》撰修于元朝末年，全书有本纪四十七卷，志一百六十二卷，表三十二卷，列传二百五十五卷，共计四百九十六卷，约五百万字，是二十五史中篇幅最庞大的一部官修史书。
早在元初，元世祖忽必烈就曾诏修宋史，因体例未定而未能成书。元朝末年，丞相脱脱主张分别撰修宋、辽、金三史，各自独立，这一意见得到元顺帝的同意，于至正三年（公元1343年）三月开局，三史同时修撰。
经过二年半时间，至正五年（公元1567年）十月，《宋史》匆匆成书。
《宋史》是在原宋《国史》的基础上删削而成的。两宋时期，史官组织完备，雕版印刷术广泛应用，书籍流传和保存都较为便利，积累了大量史料。这就为元修《宋史》提供了良好的基础。但是由于《宋史》修撰者匆匆急就，在史料的裁剪、史实的考订、文字的修饰、全书体例等方面存在不少缺点，如一人两传，无传而说有传，一事数见，有目无文，纪与传，传与传，表与传，传文与传论之间互相抵牾等，这使它在二十五史中有繁芜杂乱之称。
尽管《宋史》存在不少缺点，但是它卷帙浩繁，仅《列传》就有二千多人，比《旧唐书·列传》多出一倍；叙事详尽，就史料的学术价值而言详胜于略。同时《宋史》的主要材料是宋代的国史、实录、日历等书，这些史籍现在几乎全部佚失了，而《宋史》是保存宋代官方和私家史料最有系统的一部书。
月度归档： 2024 年 7 月
字符串函数系列之二
Public Function ReplaceMultiChar(ByVal sData As String, ByVal sChar As String) As String ‘用单字符替换连续字符
sData = Trim(sData)
Dim iBefore, iAfter As Integer
Do
iBefore = Len(sData)
sData = Replace(sData, sChar & sChar, sChar)
iAfter = Len(sData)
Loop Until iBefore = iAfter
ReplaceMultiChar = sData
End Function
Public Function GetExtension(ByVal sName As String) As String ‘扩展名
GetExtension = “”
If InStr(1, sName, “.”, vbTextCompare) = 0 Then Exit Function
Dim TempArray As Variant
TempArray = Split(sName, “.”, -1, vbTextCompare) ‘名字可能会含 .
GetExtension = TempArray(UBound(TempArray)) ‘扩展名
End Function
Public Function GetBare(ByVal sName As String) As String ‘不带扩展名的名
GetBare = “”
If InStr(1, sName, “.”, vbTextCompare) = 0 Then Exit Function
Dim TempArray As Variant
TempArray = Split(sName, “.”, -1, vbTextCompare) ‘名字可能会含 .
ReDim Preserve TempArray(LBound(TempArray) To UBound(TempArray) – 1) ‘去扩展名
GetBare = Join(TempArray, “.”)
End Function
Public Function GetFullName(ByVal sPath As String, ByVal sShortName As String) As String ‘文件全名
‘If Right(sPath, 1) = “\” Then
‘GetFullName = sPath & sShortName
‘Else
‘GetFullName = sPath & “\” & sShortName
‘End If
‘下句等同以上内容
GetFullName = IIf(Right(sPath, 1) = “\” Or Left(sShortName, 1) = “\”, sPath & sShortName, sPath & “\” & sShortName)
GetFullName = ReplaceMultiChar(GetFullName, “\”)
End Function
Public Function GetShortName(ByVal sFullName As String) As String ‘文件短名
If sFullName = “” Then
GetShortName = “”
Else
Dim TempArray As Variant
TempArray = Split(sFullName, “\”, -1, vbTextCompare)
GetShortName = TempArray(UBound(TempArray))
End If
End Function
Public Function GetPath(ByVal sFullName As String) As String ‘文件路径
‘Dim I As Integer
‘For I = Len(sFullName) To 1 Step -1
‘If Mid(sFullName, I, 1) = “\” Then
‘GetPath = Left(sFullName, I – 1)
‘Exit Function
‘End If
‘Next I
Dim TempArray As Variant
TempArray = Split(sFullName, “\”, -1, vbTextCompare)
If LBound(TempArray) = UBound(TempArray) Then ‘短名
GetPath = “”
Else
ReDim Preserve TempArray(LBound(TempArray) To UBound(TempArray) – 1) As String
GetPath = Join(TempArray, “\”)
End If
End Function
Public Function GetShortPath(ByVal sFullName As String) As String ‘文件当前文件夹
Dim TempArray As Variant
TempArray = Split(sFullName, “\”, -1, vbTextCompare)
GetShortPath = TempArray(UBound(TempArray) – 1)
End Function
Public Function DirExist(ByVal sData As String) As Boolean ‘(全名)目录存在
DirExist = False
If Trim(sData) = “” Then Exit Function ‘Dir(“”) 出错, 且无声无息
If Dir(sData, vbDirectory) = “” Then Exit Function ‘不存在
If Not (GetAttr(sData) And vbDirectory) = vbDirectory Then Exit Function ‘是文件
DirExist = True
End Function
Public Function FileExist(ByVal sData As String) As Boolean ‘(全名)文件存在
FileExist = False
If Trim(sData) = “” Then Exit Function ‘Dir(“”) 出错, 且无声无息
If Dir(sData) = “” Then Exit Function ‘不存在
If (GetAttr(sData) And vbDirectory) = vbDirectory Then Exit Function ‘是目录
FileExist = True
End Function
二十四史简介——新五代史
《新五代史》，原名《五代史记》，是唐代设馆修史以后唯一的私修正史。撰者欧阳修（公元1007—1072年），大约于景祐三年（公元1036年）至皇祐五年（公元1053年）的十八年间编成此书。
欧阳修，字永叔，号醉翁、六一居士，是北宋古文运动的领袖，唐宋八大家之一，也是著名的史学家，奉命和宋祁领衔编撰《新唐书》。崇儒复古是他的政治主张，也是他修史的指导思想。他意禀承孔子的《春秋》笔法、“褒贬”义例，对《旧五代史》改编重修。
在编排体例上，推翻《旧五代史》一朝一史的基本格局，取法《南史》、《北史》，打破朝代界线，把五朝的人事综合统编在一起，按时间顺序排列。
《新五代史》全书七十四卷，包括本纪十二卷、列传四十五卷、考三卷、世家及世家年谱十一卷、四夷附录四卷。其中的列传，最有特色。它采用类传的形式，设立《家人传》、《臣传》、《死节传》、《死事传》、《一行传》、《唐六臣传》、《义儿传》、《伶官传》、《宦者传》、《杂传》等名目。每类传目，内寓特定涵义，用以贯彻作者的“褒贬”义例。臂如将相大臣，凡专事一朝的在《臣传》，历事几朝的则列《杂传》。又如根据死者忠的不同程度，分为两等，头等的进《死节传》，次等的入《死事传》。
一般史书的“志”，《新五代史》称作“考”，仅有《司天考》、《职方考》，分别相当于《旧五代史》的《天文志》、《郡县志》。作者认为五代是个名分纲常颠倒的乱世，其典章制度一无可取，所以将《旧五代史》的“志”删除。这也是为了体现以“礼”修史的原则。
本书的世家及世家年谱，大致相当于《旧五代史》的《世袭列传》和《僭伪列传》，明确将中原以外的割据政权分为吴、南唐、前蜀、后蜀、南汉、楚、吴越、闽、南平、东汉等十国。各小国的划分编排，条理清晰，首尾完具，显然胜于旧史。《四夷附录》相当于旧史的《外国列传》。
就整体而论，《新五代史》的史料价值比《旧五代史》要略逊一筹，这是欧阳修在删繁就简时，将不少具体资料也一同削去所造成的。至于他对旧“志”部分的大事砍削，人为造成史料空白，更是不足为训。但《新五代史》后出，采用了实录以外的笔记、小说等多种材料，在删削的同时也新增了一些史料，尤其对十国部分的补充。由于《旧五代史》已非原帙，残缺不全，《新五代史》特有的价值就更不应低估。再从其它角度来着眼，欧阳修撰史，浑然一体，结构严谨，选材讲究，文字凝炼；思想上不像旧史那样大肆渲染“天命”而注重人事；创《职方考》，独树一帜，提纲挈领，眉清目秀，颇受称道，都是它的长处。平心而论，两部《五代史》各有短长，可以互为补充，不应偏废。
《新五代史》问世后，即有徐无党注。但徐注旨在解释《春秋》笔法、阐述微言大意，对读者并无多少裨益。
利用 Winsock 控件实现局域网通信
从 0 开始编写一段用于通信的程序，必须对相关的网络协议及其他的一些较底层的技术有较深入的了解，这显然有明显的难度。而利用 Winsock 控件，一切就不同了，它已经替你封装了所有烦琐的技术细节，并提供了访问 TCP 和 UDP 网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中，并且还可以双向交换数据，而这一切都不需你了解 TCP 的细节或调用低级的Winsock APIs。
Winsock 控件可以供 Microsoft Acess、Visual Basic，Visual C++或 Visual Foxpro 的开发人员使用。
本文以 Visual Basic 6 企业版为开发环境来向大家介绍一下 Winsock 控件的初步应用。
Winsock控件可以使用两种协议：TCP 协议和 UDP 协议，下面来分别介绍。
TCP 协议即数据传输协议，它允许创建和维护与远程计算机的连接，使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。
在创建客户应用程序时，必须知道服务器计算机名或其 IP 地址(存于 RemoteHost 属性)、及服务器计算机进行侦听的端口(存于 RemotePort 属性），然后调用 Connect 方法。
创建服务器应用程序时，就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect)，就会发生ConnectionRequest事件。为了完成连接，你可以在ConnectionRequest事件中调用Accept方法。建立连接后，任何一方计算机都可以发送、接收对方数据。如果你要发送数据，需调用SendData方法。当接收到数据时，会发生DataArrival事件，调用 DataArrival 事件中的 GetData 方法就可以获得对方传送的数据。
说了这么多，大家可能还是不太了解，让我用程序来详细说明。
如果只有两台计算机，那十分容易。假设甲机为客户机，乙机为服务器，且其 IP 为192.192.192.1，接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个 Winsock 控件，起名为 sckconnect，并设置其属性：RemoteHost=“192.192.192.1”，（即甲机IP地址）， RemotePort=1200（即甲机侦听端口）；再在乙机服务器程序中加入一个名为sckserver(0)的Winsock控件，其LocalPort=1200。
在乙机服务器程序中Form_Load()加入
sckserver(0).bind sckserver(0).LocalPort ‘与本地端口绑定
sckserver(0).listern ‘ 侦听
如果要传输数据，两机必须先建立连接。建立连接的程序如下：
甲机客户机要先请求连接
sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
此句执行时会触发服务器程序中的ConnectRequest事件，在此过程中决定是否建立连接，其代码如下：
Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)
if sckserver.count=1 then
load sckserver(1)
sckserver(1).accept requestId
end if
end sub
连接建立好以后，甲机或乙机都可以应用SendData方法来传送数据。例如，如果是甲机要传送一个叫string的字符串，只需在代码中加入：
sckconnect.SendData string
甲机传送数据后，会触发乙机的DataArrival事件，在其过程中用GetData方法可以收到传送的数据：
Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)
dim sdata as string
sckserver(1).GetData sdata,vbstring
end sub
最后别忘了在关闭程序前要先关闭Winsock控件
privat sub form_unload(cancel as integer)
if sckconnect.state <>sckclosed then
sckconnect.close
end if
end sub
这只是最简单的情况，如果有多台计算机，那就稍微复杂一些，客户端程序可以不做改动，而服务器端程序需要略做改动：
Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)
dim sip as string
dim I as integer
sip=sckserver(0).RemoteHostIP ‘获得登录者的IP地址
I=1
Do while I<=sckserver.ubound ‘检查是否已经有该地址的记录 If sckserver(I).RemoteHostIP=sip then ‘如有，不必加载新的控件 Sckserver(I).Accept requestid Exit sub End if I=I+1 Loop Load sckserver(I) ‘否则，加载新的控件 Scksrver(I).accept requestID End sub 注意到：以上的信息交谈实际上都发生在客户机与服务器之间，如果要做成聊天室那样，每个人的话都可以被别人“听到”，那就要在服务器端的DataArrival事件中，把接收到的客户机传来的数据，转发给所有客户机即可。 其循环转发信息的代码如下： For I=1 to sckserver.count if sckserver(I).state<>sckclosed then
sckserver(I).SendData sdata
end if
next I
怎么样，这样我们就作好了自己的通信软件！
不过，不知大家注意到没有，上述程序都需要有一台计算机做为服务器，但如果我们的局域网中没有哪台计算机是可以常开的，也就是说，如果服务器端程序没有运行的话，其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少，我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗？
不要急，记得吗，我们的Winsock控件还有另一个主角：UDP协议。
UDP协议也称为用户数据报文协议，是一个无连接协议。何谓无连接协议？就是说利用此协议连接时，不必象TCP协议那样：需要服务器端侦听，客户机端请求连接，服务器端建立连接后双方才能通信。另外，UDP应用程序可以是客户机，也可以是服务器程序，而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。
下面，来简述一下UDP协议通信的过程：UDP协议中，为了在甲乙两机中传输数据，必须先分别设置两机的LocalPort属性；再将甲机的RemoteHost属性设置为乙机的IP地址，RemotePort属性设置为乙机的LocalPort属性值，此时甲机调用SendData方法就可以传送数据了，乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据，只需仿照上面的过程设置即可。
用UDP协议来传输信息较TCP协议来说简单的多，它无须侦听（LISTEN），也无须请求连接（CONNECT），就象我们平时发信一样，只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序，下面来简单介绍以下程序中想实现的功能及其基本思想：
首先，我们一定想让程序的图标显示在system tray中而不显示在任务栏中吧！VB光盘中在common\tools\vb\unsupport\systemTray 中有一个现成的程序，我们只要把它编译成systray.ocx 控件，然后在编写自己的程序时添加此控件即可。其使用方法十分简单，它已经定义好了鼠标单击、双击等事件，你只需编写相应的鼠标事件即可，这里不再多说。如果想自己编写托盘程序，见在系统托盘中显示。
程序的关键是：UDP协议在通讯时要知道对方的IP和Port，这要如何实现呢？最简单的方法是建立一个配置文件，里面放置了局域网上每台计算机的名字、IP和Port，在程序初始化时读出所有信息，在程序中只要知道向谁通信，读出其对应的IP和Port即可。
我们知道了每台计算机的IP和Port，但我们怎样才能知道其它计算机是否在线呢，否则发出信息别人收不到怎么办？我们可以把此程序放在启动菜单中，让其一开机就自动启动，并最小化，放于窗口右下角的system tray中。在程序刚开始运行时，它会自动向它从配置文件中所知道的所有IP发一条信息：“我来了！”，如果有计算机在线，它会自动返回一条信息：“欢迎！”，如此则两机通信成功，它们会分别把对方的名字加入到自己的可通信人名单中去；如果有计算机关机，程序在退出之前会自动向所有人告别：“再见！”，接收到此信息的计算机会自动把发送信息的计算机的名称从自己的可通信人名单中去除。这样，如果某人不在线，你将无法发送信息给它；如果除了你以外，其他人都没有开机，那你的可发送人名单中将没有任何人。而其它人只要一上线，会自动去你那里“登记”，其他人只要一离线，会自动去你那里“告别”，你可以据此知道他人是否正在使用计算机，你甚至可以以此程序来统计他人的每天上机时间，不错吧！
好了，一个局域网通信的程序的基本模型已经有了，并不复杂吧！大家赶快动手吧，来享受用自己的程序来聊天的乐趣！
不过，要想编写一个出色的程序，不光是要有良好的创意与功能，更重要的是程序的兼容性与容错性。本例中，对错误处理没有做详细的解释，关于这一点，大家可以在Winsock控件的error事件及其帮助中找到满意的答案。
另外，还可以从以下几方面来考虑功能的扩充：如传送图形、声音等多媒体信息、局域网互传文件（主动传送）、历史通话记录、系统日志、个人上机时间统计等等，而所有的这一切仅仅取决于你的想象力与你的聪明才智！下面，笔者以传送文件为例来讲一讲其功能实现的代码。
你可以把本地的文件（图形、声音等可以先存成临时文件）以二进制文件的方式来打开它，将其内容全部读入一个byte类型的数组中，本地机代码如下：
dim myfile () as byte
dim position as long
open “filename” for binary as #1
position=0
do while not eof(1)
position=positon+1
redim preserve myfile (1 to position)
get #1,,myfile(position)
loop
close #1
再向远程机传送这个字节数组
sckserver.SendData myfile
远程机收到这个数组之后，再以二进制文件的方式打开一个新目标文件，将数组内容写入这个新打开的文件，如果是bmp图片就将其放入picture图片框中，如果是wav文件，就播放。这样，局域网中的两个人就可以通过语言、图片、文字来交流了。
远程机代码如下：
Private sub sckconnect_DataArrival(byval bytestotal as long)
dim receivefile(1 to bytestotal)as byte
sckconnect.GetData receivefile,vbarray+vbbyte
’告诉Winsock控件收到的是字节数组类型的数据
open “c:\temp\文件名” for binary as #1
for I=1 to bytestotal
put #1,,remotearray(I)
next I
clost #1
end sub
二十四史简介——旧五代史
《旧五代史》，原名《五代史》，也称《梁唐晋汉周书》，后人为区别于欧阳修的《新五代史》，便习称《旧五代史》。
这是由宋太祖诏令编纂的官修史书。薛居正（公元912–981年）监修，卢多逊、扈蒙、张澹、李、刘兼、李穆、李九龄等同修。经始于宋太祖开宝六年（公元973年）四月，至次年闰十月甲子日完竣呈上，前后只用了一年半左右时间。成书如此迅速，主要在于宋太祖十分重视，组织的撰修班子规格高、阵容强；同时也因为去古未远，可资参考的史料相当齐备。
五代各朝均有实录，范质又在此基础上整理出实录简编——《建隆五代通录》，从而为修史提供了极大便利。
在我国历史上，唐朝和宋朝之间曾有过封建社会中最后一次的大规模分裂割据时期。从公元907年朱温代唐称帝到公元960年北宋王朝建立的五十三年间，中原地区相继出现后梁、后唐、后晋、后汉、后周等五代王朝，中原以外存在过吴、南唐、吴越、楚、闽、南汉、前蜀、后蜀、南平、北汉等十个小国，周边地区还有契丹、吐蕃、渤海、党项、南诏、于阗、东丹等少数民族建立的政权，习惯上称之为“五代十国”。《旧五代史》记载的就是这段历史。