[问题] isbn 正规表示法问题

楼主: davidou (老欧 ! 月夜雪岚)   2013-02-08 21:03:49
我现在在用vs2005 写一个功能 是透过isbn去捞一本书的资料
http://192.83.186.170/search~S10?/i9789867299161/i9789867299161/1%2C2%2C5%2CB/marc&FF=i9789867299161&1%2C%2C3
而上面这网页的部份内容如下
<pre>
LEADER 00000cam 2200361 450
001 101771764
010 0 986-7299-16-7|b第1册 : 平装|dNT$160
225 1 Kadokawa fantastic novels
306 v.3, v.4, v.5为2006年第2刷
327 0 1, 红风乍现 = はじまりの风は红く|a2, 黄金的约定 =
黄金の约束|a3, 紫殿花开 = 花は紫宫に咲く|a4, 茶都遥想 =
想いは遥かなる茶都へ|a5, 黑之月宴 = 漆黒の月の宴|a6,
近朱者赤 = 朱にまじわれば红
681 861.57|b8468|v增订七版
</pre>
我只是大致列个范例这样 看得出来前面的数字代表这行的内容为(作者 书名 ..)之类的
而我现在不知道该怎写这个表示式 下面是我写到一半的程式码
想当然而是错的
Dim surl As String = "http://192.83.186.170/search~S10?/i9789867299161/i9789867299161/1%2C2%2C5%2CB/marc&FF=i9789867299161&1%2C%2C3"
Dim aa As WebRequest = HttpWebRequest.Create(surl)
Dim bb As WebResponse = aa.GetResponse
Dim cc As New StreamReader(bb.GetResponseStream)
Dim pattern As String = "200.*?" '这边是错的
Dim input As String = RichTextBox1.Text
For Each m As Match In Regex.Matches(cc.ReadToEnd, pattern)
MessageBox.Show(m.Value)
Next
请问我该怎捞他的资料呢
作者: DeathWatch (爱情模糊理论)   2013-02-12 22:46:00
看不懂,你是要抓哪一段的资料,是作者还是什么?

Links booklink

Contact Us: admin [ a t ] ucptt.com