作者davidou (老歐 ! 月夜雪嵐)
看板RegExp
標題[問題] isbn 正規表示法問題
時間Fri Feb 8 21:03:49 2013
我現在在用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
請問我該怎撈他的資料呢
--
只有正妹的無名才有連結價值阿..
http://www.wretch.cc/blog/fancyou
非正妹 所以沒有連結價值
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.170.12.216
1F：推 DeathWatch:看不懂，你是要抓哪一段的資料，是作者還是什麼？ 02/12 22:46