[問題] 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