buen día amigos de la comunidad! Quisiera que me ayudaran un poco en este tema:
estoy trabajando con un equipo remoto mediante ssh, todos los datos que obtengo mediante el terminal los recibo en un textarea, lo que necesito es saber como obtener información clave que tengo dentro del textarea para así guardarlas en un textbox y luego guardar los datos obtenidos en la base de datos .
He buscado alguno ejemplos pero nada claro con lo que necesito, de antemano gracias
Como Obtener Datos Del Textbox
Objetivo: Re: Como Obtener Datos Del Textbox
Tendras que usar las funciones para trabajar con cadenas ( http://cursogambas.blogspot.com.es/...caracteres.html )
Dependerá que base de datos uses (mysql, sqlite,... etc), mirate los ejemplos y manuales que existen de gambas o videotutoriales.
última edición por jsbsan el Martes, 12 Marzo 2013, 18:07; editado 1 vez
Citar:
Tendras que usar las funciones para trabajar con cadenas ( http://cursogambas.blogspot.com.es/...caracteres.html )
Citar:
Dependerá que base de datos uses (mysql, sqlite,... etc), mirate los ejemplos y manuales que existen de gambas o videotutoriales.
última edición por jsbsan el Martes, 12 Marzo 2013, 18:07; editado 1 vez
Objetivo: Re: Como Obtener Datos Del Textbox
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í:
Este es el Texto que estoy Separando, para que tengas una idea:
maickolmedina escribió: [Ver mensaje]
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í:
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
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
Este es el Texto que estoy Separando, para que tengas una idea:
Full Name: Jose Cobos
Born: 11/10/1980
Birthplace: Tuxpan, Mexico
Height: 6' 1"
Weight: 200
Bats: R
Throws: R
Born: 11/10/1980
Birthplace: Tuxpan, Mexico
Height: 6' 1"
Weight: 200
Bats: R
Throws: R
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4736s (PHP: -61% SQL: 161%)
Consultas SQL: 46 - Debug off - GZIP Activado