vbÈçºÎÕÒ³öÖ¸¶¨µÄÁ´½Ó£¿
VBѧϰÖÐÓöµ½Ò»Ð©À§ÄÑ£¬ÎÒÓÃVB»ñµÃÒ»¸öÍøÕ¾µÄÔ´Îļþ£¬ÏÔʾÔÚÎı¾¿òText1ÖУ¬Õâ¸öÔ´Îļþ°üº¬ÁËһЩÁ´½Ó£¬±ÈÈç
href="http://www.sina.com.cn/¡¡"
Href="http://www.baidu.com/¡¡"
¡¡
ÆäÖÐÖ»ÓÐÒ»¸öÁ´½ÓÊÇÒÔ¡°http://blog.¡±¡¡¿ªÍ·µÄ£¬ÈçºÎÓÃVBÔÚText1.TextÖÐÕÒ³öÕâ¸ö¡°http://blog.¡±¿ªÍ·µÄÁ´½Ó£¬²¢ÔÚÎı¾¿òText2ÖÐÏÔʾ³öÀ´¡£
½âÎöHTMLÖ®ºóö¾ÙËùÓÐ <a>£¬ÅжÏhref¡£
VB code:
dim a() as string
dim i as long
a = split(text1,vbcrlf)
for i=0 to ubound(a)
if LCase(a(i)) like "http://blog.*" then
text2 = a(i)
exit for
end if
next
VB code:
Dim p As Long, q As Long
p = InStr(Text1.Text, "http://blog.")
If p > 0 Then
q = InStr(p + 7, Text1.Text, "/")
Text2.Text = Mid(Text1.Text, p, q - p + 1)
End If
ºÃ¾ÃûÓÐÓÃVBÁË¡£¡£¡£Â¥ÉϵĴúÂë¶¼¿´²»¶®¡£¡£¡£º¹¡£¡£¡£¡£
¸Ðл¸÷λµÄ¹Ø×¢¡£3Â¥µÄ´úÂë²âÊÔͨ¹ý¡£Ð»Ð»£¡
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......