hfly2005的专栏

用心追求

寻找帮助!!

      我是一个学图书馆学的学生,老师现在要我们做一个管理系统,因此我希望自己的系统能够对MARC进行处理。但是,我写的程序却得到想要的结果,所以希望能够得到大家的帮助!
我的程序代码如下:

private Sub Form_Load()
Dim aa As String 'marc记录
Dim slen As Integer '数据长度
Dim adress As Integer '数据地址
Dim sum As Integer '字段数
Dim tag As String '字段标识
Dim middle As String '目次区数据
Dim data As String '数据区数据
Dim x As Integer '
Dim jsq As Integer '计数器
Dim tlen As Integer ' 字段长度
Dim tadress As Integer '字段起始地址
Dim b As String '字段标识


aa = "00366nam0 2200157 45 010002800000092000500028100003800033102000700071106000500078200005100083210002700134215000600161300000700167801002900174960000500203 a7-80109-746-7dCNY25.00 b a20040521d2004 y0chiy0110 ea aCN a1 a黄金法则书系——管理的100条黄金法则f文光 编著 c中央编译出版社d200404 d a  aCNbMarcStudioc20040521 t"
slen = Val(Mid(aa, 1, 5))
adress = Val(Mid(aa, 13, 5))
sum = (adress - 26) / 12
middle = Mid(aa, 25, adress - 24 - 1)
data = Mid(aa, adress, slen - adress + 1)


b = "200" '要求取得题名责任项并在text1.text中显示
x = 1
jsq = 1
tag = ""
While jsq <= sum
tag = Mid(middle, x, 3) ' 字段标识符
tlen = Val(Mid(middle, x + 3, 4)) ' 字段长度
tadress = Val(Mid(middle, x + 7, 5)) '字段起始地址
If tag = b Then
Text1.Text = Mid(data, tadress + 1, tlen)
End If
jsq = jsq + 1
x = x + 12
Wend
End Sub

取得200字段的结果竟然是:1 a黄金法则书系——管理的100条黄金法则f文光 编著 c中央编译出版社d200404
希望能够得到有心人的帮助!谢谢!!!
阅读更多
文章标签: integer string 出版 c
想对作者说点什么? 我来说一句

寻找帮助

wuxihan04 wuxihan04

2009-08-02 17:08:00

阅读数:113

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭