<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="tt_1">
<span id="stnr">
<table width="98%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tt_3" height="250">
<tr>
<td height="100" valign="top">包扎止血不能用的物品是______。</td>
<td width="20%" rowspan="3" align="center" valign="top">

</td>
</tr>
<tr>
<td height="95" valign="top">11111111</td>
</tr>
<tr>
<td 

解决方案 »

  1.   

    提取  包扎止血不能用的物品是______。  和1111内容高手指点
     Dim dWinFolder     As New ShellWindows
      Dim WithEvents eventIE       As WebBrowser_V1
        
      Private Sub Command1_Click()
              Dim objIE     As Object
                
              For Each objIE In dWinFolder
                      If objIE.LocationURL = List1.List(List1.ListIndex) Then
                              Set eventIE = objIE
                              Command1.Enabled = False
                              List1.Enabled = False
                              Text1.Text = ""
                              Exit For
                      End If
              Next
      End Sub
        
    Private Sub Command2_Click()
    Dim MyString
      MyString = Text1.Text         '建立一个字符串。
      Text2.Text = Mid(MyString, 1, 79)               '   返回   "Mid"。
      Text3.Text = Mid(MyString, 80, 188)              '   返回   "Demo"。
     Text4.Text = Mid(MyString, 188)            '   返回   "Funcion   Demo"。
    End Sub  Private Sub eventIE_NavigateComplete(ByVal URL As String)
              Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
      End Sub
        
      '在运行前。点击菜单   Projects   |   References   项,在Available   References   列表中选择Microsoft   Internet   Controls项将Internet对象引用介入到工程中
        
      Private Sub Form_Load()
              Dim objIE     As Object
                
              For Each objIE In dWinFolder
                      If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
                              List1.AddItem objIE.LocationURL
                      End If
              Next
              Command1.Caption = "正文"
      End Sub
        
      Private Sub Form_Unload(Cancel As Integer)
              Set dWinFolder = Nothing
      End Sub
        
      Private Sub List1_Click()
              Dim objDoc     As Object
              Dim objIE     As Object
                
              For Each objIE In dWinFolder
                      If objIE.LocationURL = List1.List(List1.ListIndex) Then
                              Set objDoc = objIE.Document
                        
                              For i = 1 To objDoc.All.length - 1
                                      If objDoc.All(i).tagName = "BODY" Then
                                              Text1.Text = objDoc.All(i).innerText
                                      End If
                              Next
                              Exit For
                      End If
              Next
      End Sub
    这种只能获取全部汉字 
      

  2.   

    你看看我的这个范例吧,相信会对你有帮助
    http://download.csdn.net/source/639058
      

  3.   

    http://topic.csdn.net/u/20090419/23/5f90cd2a-89e9-4830-a88f-27a3a6cb0068.html