Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/11/2011, 05:26
pep0te
 
Fecha de Ingreso: agosto-2010
Mensajes: 81
Antigüedad: 14 años, 3 meses
Puntos: 3
Pregunta Leer MultiLine TextBox línea a línea - ¿Cómo?

Hola,

Estoy haciendo un programa y en dicho programa necesito que al hacer click en un botón, comience a leer un MultiLine y por cada línea ejecute la acción correspondiente a ese botón. Es un botón un poco rebuscado, y así es el código:

Código vb:
Ver original
  1. Private Sub GetDatesBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetDatesBtn.Click
  2.  
  3.         Dim allelements1 As HtmlElementCollection = WebBrowser1.Document.All
  4.         Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
  5.  
  6.         WebBrowser1.Document.GetElementById("mat").SetAttribute("value", Matnumb.Text)
  7.         For Each webpageelement1 As HtmlElement In allelements1
  8.             If webpageelement1.GetAttribute("value") = "Datar" Then
  9.                 webpageelement1.InvokeMember("click")
  10.             End If
  11.         Next
  12.  
  13.         For Each CurElement As HtmlElement In PageElements
  14.             Dim GetDate As String = CurElement.GetAttribute("id")
  15.             If GetDate.Contains("datacion") = True Then
  16.                 Dim innerText As String = CurElement.InnerHtml
  17.                 'MessageBox.Show("Fecha:" & innerText)
  18.                TextBox3.Text = TextBox3.Text & Environment.NewLine & innerText
  19.             End If
  20.         Next
  21. End Sub

Lo que hace el botón creo que no influye, el problema es que no sé cómo si en el MultiLine tengo 4 líneas, leer una a una metiéndola en el otro TextBox y ejecutando la acción del botón. Estoy automatizando, por así decirlo.


A ver si alguien sabe... Muchas gracias,

Un saludo.