寻找帮助!!

原创 2005年05月27日 10:44:00
      我是一个学图书馆学的学生,老师现在要我们做一个管理系统,因此我希望自己的系统能够对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
希望能够得到有心人的帮助!谢谢!!!

相关文章推荐

altium designer怎么寻找元件封装

  • 2017年11月20日 10:53
  • 5KB
  • 下载

国际象棋走马规则寻找路径

  • 2017年10月30日 16:32
  • 1011B
  • 下载

opencv3寻找最小包围矩形-minAreaRect函数

#include #include #include using namespace cv; using namespace std; int main() { Mat srcImage(Siz...

使用搜索引擎解决谷歌被墙问题——寻找可用vpn

想要翻墙上谷歌,youtube等国外网站吗?看这里。

Labview设置寻找pattern

  • 2015年07月31日 10:04
  • 68KB
  • 下载

如何在大数据时代寻找下一个机遇

  • 2015年02月07日 10:58
  • 1.85MB
  • 下载

编程之美之2.5 寻找最大的K个数

【题目】 有很多无序的数,从中找出最大的K个数。假定他们都不相等。 【解法一】 如果数据不是很多,例如在几千个左右,我们可以排一下序,从中找出最大的K个数。排序可以选择快速排序或者堆排序 ...

bms最后版本寻找2详细的标题

  • 2014年09月20日 12:17
  • 50MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:寻找帮助!!
举报原因:
原因补充:

(最多只允许输入30个字)