【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了VB开源代码-ISBNr10 和ISBNr13 批量互换算法及程序 - 期刊论文的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
6 08年 第 2期 总第 11期 20S N- 0和 IB 1IB 1 S N- 3批量互换算法及程序黎邦群( 105 惠州学院图书馆 惠州 561 )【 S N- 0和 IB 1 摘要】主要介绍 IB 1 S N- 3之间的差异, S N- 0和 IB 1 给出 IB 1 S N- 3之间进行批量互相转换的算法,并在对算法进行分析的基础上, B. S N- 0和 IB 1 采用 V 60实现了 IB 1 S N- 3批量互换程序。
【 S N- 0 S N- 3 关键词】IB 1 IB 1 批量互换 算法分析 程序设计【 207 分类号】G 5 . h l i ms n rga f ac a s migB t e ot hT o wT eAgr h a dP orm o B t rnfr n e enS N- 0a dIB 1IB 1 n S N- 3 i agu L B nqn u huU i rt b r u hu561 h a z v syL r y z n (H i o n e i i a ,H i o 105C i )【 bt c h ae m i yd cs st ie nebtenIB 1 n S N- 3 r i st l rh so r 】T sp n s e ed f e w v e ea o t A s at i pr a l i us h fr c e e S N- 0adIB 1 ,po d h g i m f a ht nf mn t e S N- 0adIB 1 ,adr i sh o abt r s r i e enIB 1 n S N- 3 n ele t r r f a ht nf mn e enIB 1 c a o gb w c a o gbt e S N- 0 az ep g mo bt r s r i wn S N- 3bsdo h a s f l rh ea y s g i mb B ..adIB 1 ae nt nl io a o t yV 60 K y od】IB 1 IB 1 B t r s r i c a o g l i maa s Po a n s n ot ys g m gd g【 ew rs S N- 0 S N- 3 a ht nf mn Agrh nl i r r i ei It ntnl t dr o u br S N 是国际标准化组织(S ) 17 e i a dB , 国际标准书号 (n raoa S na okN m e IB ) IO 于 92年通过并在国际出版界推行的、 07年 1月 1日起, 用于唯一识别文献的标准编号。
从 20 0位更改为 1 国际标准书号的长度从 1 3 “S N- 0 表示旧版的 1位。
按照业界的协定, IB 1 ” S N 而“S N- 3 表示新版的 1 0位 IB , IB 1 ” SN 3位 IB 。
由于图书馆原 S N为 1有的 IB 0位的图书存在巨大库存,而新采访的又是新版的 IB S N为 1 3位的图书, S N- 0和 IB 使得 IB 1 S N-13将在一段时间内并存。
这样就给图书馆的采访、编目、检索等
工作造成了一定的影响。
有时候需要进行大量的S N- 0和 IB 1IB 1 S N- 3互换。
为此, 07年开发了惠州学院图书馆 IB 1 笔者于 20 S N- 3批量互换程序。
S N- 0和 IB 1本文主要对这一程序的算法作一简要分析, B. S N- 0和 IB 1 并在分析的基础上采用 V 60实现了 IB 1 S N- 3批量互换程序,以供同行参考。
IB 1 S N- 3的差异1 S N- 0和 IB 1 . IB 111 S N- 0的结构 S N- 0由 1 IB 1 0位阿拉伯数字组成, 第 并由 3条短横线分成 4段。
每段都有不同含义, 1段是由 1到 5位数 第字组成的地区号, 2段是由 2到 5位数字组成的出版社
代码, 3段是由 1到 6位数字组成的书序号, 4段是 第 第 S N7- 01 47-校验码。
如 IB 第 01 第 3 807- 3 9中的第一段 7代表中国, 2段 807代表长城出版社, 3段 47代表由长城出版社出版的《红楼梦》 1 一书, 4段 9为校验码 〔 〕。
第 . IB12 S N的升位
方案 S N号增加前缀“ 7 ” IB 将现有的 IB 0位上升为 1 98 ,S N从 1 S N- 3将 3位。
结构上有了新的变化。
升位后的 IB 1 20 0 2 收稿日期: 07- 6- 2 20 0 0 收修改稿日期:07- 8- 1 9 IN A T S UQN B OJ U 1 XA D I U H IG A IH S 应用实践 A与现今印 制 在 条 形 码 上 的 E N-13号 码 形 式 完 全 S N文件、 行循 环判 别 与 转 的。
分为读 取待 转换 IB 进 2 〔〕相同 。
换、输出转换后的文件 3个部分。
. IB 1 S N- 3的差异13 S N- 0和 IB 1 1 读取待转换 IB ( ) S N文件程序 S N- 0 S N- 3除了 IB 1 多了一 比较 IB 1 与 IB 1, S N- 3 批量互换程序是利用 V xe 对象来 B创建外部 E cl 98 , S N- 0的组前缀号“7” 其校验算法也不同。
其中 IB 1 S N文件的。
每个 M c sfOfe 读取待转换 IB r t i i oo fc 应用程 用 0校验算法为: 1 至 2 9 这 个数分别去乘标准书号的前 序都提供了一个顶层的 A p ctn i i 在 B中引用 plao 对象, V9 然后以 1 为模计算得到。
取值范围为 0 1,0 位数, 1 - 01 M c sfE cl . b c Lba 对象来创建外部 E i oo xe90O j t i r r t e ry x S N- 3的校验算法为:由 X代替。
而 IB 1 SN 1分别乘 IB e对象具有简单方便、 cl 功能强大的优点。
利用 VB打的前 9 用 位中的奇数位, 3乘以偶数位, 0 乘积之和以 1 S N文件, 开文件对话框选择待转换 IB 再通过
程序来读 3 〔〕 -为模即可得到校验位的值。
其值范围为 0 9 。
取待转换 IB S N文件数据。
xe对象: 首先定义 E cl2 批量互换及其实现原理 i l pA E cl plao A . i i Dmx p s xe A p ctn . 批量互换的意义21 A ex p aO e( r e j t E cl plao” St lp = Cet b c ” xe A p ctn ) . i i 批量互换就是利用计算机程序读取含有若干条书 S N文件: 然后读取待转换 IB i l o s xe B . r ok k Dmx okA E clWo bo S N文件数据,目数据记录的待转换的 IB 并自动批量转 ex o B l p Wo ok. pn “ A k St lok = x p. rbosO e( 待转换 IB S N文件换成需要的 IB 1 S N- 3文件, S N- 0或 IB 1 然后根据需 的路径和名称”) S N文件。
要将其导出为已转换的 IB S N文件的行数 k 取得待转换 IB : S N- 0和 IB 1 惠州学院图书馆 IB 1 S N- 3批量互换 l et a〕 C r n g n R w. on - S . eR o k = x he 〔1 . ur tei . o sC ut 1程序
设计的目的,就是以
计算机批量转换来取代人工 S N文件中的工作薄: 最后打开待转换 IB逐条转换方式,提高转换的效率,减少劳动强度,在短 Dmx he A E clWo set i l et s xe S . r he k时间内完成大量转换工作。
e x he S l o. r he ( ) B k s St l et= x ok Wo set 1 . 批量互换的算法原理22 r t i oo xe 文件、 b页、 用这种方法可读取 M c sfE cl We 批量互换程序是通过计算机自动读取存储在本地 文本文件、 u Lt 1- 3文件、Q ar r/
查询文件、 o s 2- tP uto o介质上的 IB S N文件数据,依次从上到下逐条根据需要 O D S文件等 1 4 xe兼容的不同格式的文件 〔 〕。
0种与 E cl进行互换,并将转换后的 IB S N文件数据输出保存。
S . l l et es xy 语句来逐条读取待转 可以通过 x he cl( , ) S N文件中的单元格内容, 换 IB 和 分别表示 其中变量 x y3 批量互换程序的设计 单元格的行与列。
待转换 IB S S N文件表中可能含有 I . 系统结构图31 N 书名、 B、 出版社等字段, 作者、 其文件结构如图 2所示: 批量互换程序大致可分为 4个流程,其
系统结构如图 1所示: 图2 S N文件结构图 待转换 IB S N文件中的数据的语句如下: 循环读取待转换 IB on ok Fr =2T +1 () l et esn 1 . a e S . l u X n = x he C l( , ) V l et N x 图1 批量互换程序系统结构图 这样, S N文件的 IB 就将待转换 IB S N列数据的值 (。
全部保存到数组 X ) . 批量互换程序32 2 进行循环判别与转换 ( ) i oo i l ai . r t u c 批量互换程序是用 M c sfVsa B s 60编写 S N文件后, 读取待转换 IB 进行循环判别与转换,9 2 现代图书情报技术 6 08年 第 2期 总第 11期 20 (,并将转换后的数据保存到数组 Y ) 这是程序的核心 98 , “ 7 ” 在其后加校验号; S N为 IB 1 , 如果原 IB S N- 0 则部分。
其关键
代码如例 1所示。
如果用户选择的是转 不变。
S N- 3换为 IB 1 : 3 输出转换后的文件 ( ) 例 1: S N文件的语句如下: 输出并保存转换后的 IB on ok Fr =2T +1 on ok Fr =2T +1 f e( ( ) 1 t ILf X n , ) = ” ”T e 7- hn x he C l( , ) V l l et esn 1 . a e= Y n S . l u () = el e ” 7 ”&X n , a i R p c( 98- ,” / ( ) ”-” ” ) /去掉 -并加前 et N x 缀号 l p C l n. u Ft A u o x p. o m sA t i i yna = 0- ItM d , 1 )+ n( i(, 1 ) a (1 2 joaho 1 (n( i i ,) ItM d i , ) 3 x ok SvA ( 要保存的 IB l o.ae s “ B ) lm T .