作者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