寻找帮助!!

原创 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
希望能够得到有心人的帮助!谢谢!!!

寻找帮助

  • wuxihan04
  • wuxihan04
  • 2009年08月02日 17:08
  • 108

寻找帮助的途径

昨晚女友要去应酬,喝酒到凌晨才回来。         早上五点多的时候被她吵醒了,说喝酒皮肤过敏睡不着,要我去买药,于是我急忙忙赶下去了。         去到附近的两家连锁药店,却都大门紧闭,无...
  • skydesign
  • skydesign
  • 2011年08月27日 06:45
  • 277

Emacs 帮助系统

Emacs是一个可定制,可扩展,self-documenting(自己就可以提供文档)的编辑器,本文探讨如何使用Emacs的帮助系统。打开帮助向导c-h t根据emacs启动时的语言环境,会自动切换对...
  • sheismylife
  • sheismylife
  • 2015年08月01日 21:25
  • 1475

ABAP 中的搜索帮助

在abap中,我们用到的搜索帮助个人遇到的情况如下,进行简要总结:选中屏幕中的搜索帮助 ;SE11创建搜索帮助;ALV中的搜索帮助。...
  • u011576750
  • u011576750
  • 2016年03月28日 19:13
  • 3871

Python获取帮助详解

1. 列出模块中的函数标注 2.查看完整的python内置函数清单 3. 查看某个函数的文档帮助信息...
  • number1killer
  • number1killer
  • 2017年08月30日 09:32
  • 272

ABAP:ALV中自定义搜索帮助

如果希望ALV中某字段具有搜索帮助,第一种办法当然是对表中某字段的引用,设置ref_table、ref_field,将自动触发该字段所带的搜索帮助。 可不可以直接设置Searh Help呢?应该不可...
  • zhongguomao
  • zhongguomao
  • 2011年08月11日 15:18
  • 1201

寻找制作帮助的繁琐过程

帮朋友写了一个函数,忘记写使用说明了!朋友提起的时间才想起来。既然写使用说明 干嘛不制作一个帮助那! 记忆中好像vs自动生成xml文档,把各个函数的注释都给标记了出来,但是怎样才能把xml制作成帮助那...
  • sdgxboy
  • sdgxboy
  • 2008年08月24日 07:13
  • 417

帮助寻找图灵奖得主Jim Gray

据Mercury News报道,图灵奖得主、数据库先驱、现供职于微软研究院的Jim Gray 1月28日独自驾船出海失踪。当时天气状况良好。美国海岸警卫队在大范围搜救之后,没有发现任何踪迹,已经于2月...
  • turingbook
  • turingbook
  • 2007年01月31日 09:06
  • 2770

IntelliJ IDEA的帮助和快捷键

IntelliJ IDEA的帮助和快捷键刚刚接触IDEA的Java开发人员,可能会被IDEA的大量设置和另类做法搞得迷昏头脑,不得不承认IDEA的设置确实比较复杂,有些操作完全不符合常规,但这一切的目...
  • mt530
  • mt530
  • 2005年01月10日 17:47
  • 3889

ABAP 用户选择屏幕 搜索帮助 实现代码

代码实现如下: 屏幕字段: 为一区间 对前后的两个区间字段分别开发搜索帮助;因是同一数据,可共用一个搜索帮助; 第一步: 字义一内表,注:包含的若干字段为搜索帮助显示的内容; 第二步:在INIT...
  • zhongguomao
  • zhongguomao
  • 2011年11月14日 13:13
  • 2981
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:寻找帮助!!
举报原因:
原因补充:

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