https://foro.gambas-es.org/viewtopic.php?f=1&t=2980&p=16804#p16804
-----------------------------------
datobinario
Miercoles, 13 Marzo 2013, 17:24

Re: Como Obtener Datos Del Textbox
-----------------------------------
[quote user="maickolmedina" post="16771"][size=12] [/size] como obtener información clave que tengo dentro del textarea para así guardarlas en un textbox[/quote]

Primero debes saber como identificar los datos que están en el textBox, usar lecturas de cadenas y eso, por ejemplo, yo extraigo datos de un Textarea así:

[code linenumbers=false syntax=gambas]Public Sub TexBIO_Change()
  Dim i As Integer
  Dim Separa_, Separa_1, Separa_2, Separa_3 As String[]'para separar cadenas
  pulgadas.Value = ""
  libras.Value = ""
  pies.Value = ""
  Separa_ = Split(TexBIO.Text, "\n")'separo la cadena en lineas
  For i = 0 To Separa_.Length - 1
    Separa_1 = Split(Separa_[i], ":")'separo la cadena en ":" que es la primera palabra y me indica que dato tengo en esa linea.
    If Separa_1.Length > 1 Then
    Select Case Separa_1[0]
      Case "Full Name"
        ncompleto.Text = Trim(Separa_1[1])
      Case "Born"
        Separa_2 = Split(Trim(Separa_1[1]), "/")
        Nacio.Value = Separa_2[0] & "/" & Separa_2[1] & "/" & Mid(Separa_2[2], 1, 4)
      Case "Weight"
        libras.Value = Trim(Separa_1[1])
      Case "Bats"
        batea.Text = BateaLanza(Trim(Separa_1[1]))
      Case "Throws"
        Lanza.Text = BateaLanza(Trim(Separa_1[1]))
      Case "Height"
        Separa_2 = Split(Trim(Separa_1[1]), "'")
        pies.Value = Separa_2[0]
        Separa_2[1] = Replace(Separa_2[1], "\"", "")
        pulgadas.Value = Trim(Separa_2[1])
      Case "Birthplace"
        Separa_2 = Split(Trim(Separa_1[1]), ",")
        If Separa_2.Length > 1 Then
          If Len(Trim(Separa_2[Separa_2.Length - 1])) > 2
            Pais.Text = Trim(Separa_2[Separa_2.Length - 1])
            Estado.Text = ""
            Ciudad.Text = Separa_2[0]
          Else
            Pais.Text = "USA"
            Estado.Text = EstadosUSA(Trim(Separa_2[Separa_2.Length - 1]))
            Ciudad.Text = Separa_2[0]
          Endif
        Endif
        Case "Bats/Throws"
        Replace(Separa_1[1], "HT", "")
        Separa_3 = Split(Trim(Separa_1[1]), "/")
        Try batea.Text = BateaLanza(Trim(Separa_3[0]))
        Try lanza.Text = BateaLanza(Mid(Separa_3[1], 1, 1))
        Separa_3 = Split(Separa_[i], " ")
        Separa_2 = Split(Trim(Separa_3[3]), "'")
        pies.Value = Separa_2[0]
        Separa_2[1] = Replace(Separa_2[1], "\"", "")
        pulgadas.Value = Trim(Separa_2[1])
        libras.Value = Val(Separa_3[Separa_3.Count - 1])
    End Select
    Endif
  Next
END[/code]

Este es el Texto que estoy Separando, para que tengas una idea:

[code linenumbers=false syntax=gambas]Full Name: Jose Cobos
Born: 11/10/1980
Birthplace: Tuxpan, Mexico
Height: 6' 1"
Weight: 200
Bats: R
Throws: R
[/code]


