Mostrar mensajes previos
Ordenar por
por p0is0n-123 Incurable
Con Mid y InStr lo solucionas...o Con Right/Left
PD: Es muy simple si manejas VB,debes de manejar esas funciones internas...

Salu2
Blog técnico dedicado a la seguridad informática y al estudio de nuevas vulnerabilidades.
Blog: http://www.seginformatica.net
Twitter: https://twitter.com/#!/p0is0nseginf
por STX Se conecta desde un manicomio
O con la funcion de texto en medio:

Código: Seleccionar todo

Public Function TextoEnMedio(Text As String, Del1 As String, Del2 As String) As String
On Error Resume Next
Dim Par1() As String
Par1() = Split(Text, Del1)
TextoEnMedio = Split(Par1(UBound(Par1())), Del2)(0)
End Function
Fuente: K-OZ

Para llamar:
Dim str as string
str = TextEnMedio(Text1.text, "[", "]")


Salu2

Mostrar/Ocultar

por Dimitry1110 Se medica
Seritx escribió:O con la funcion de texto en medio:

Código: Seleccionar todo

Public Function TextoEnMedio(Text As String, Del1 As String, Del2 As String) As String
On Error Resume Next
Dim Par1() As String
Par1() = Split(Text, Del1)
TextoEnMedio = Split(Par1(UBound(Par1())), Del2)(0)
End Function
Fuente: K-OZ

Para llamar:
Dim str as string
str = TextEnMedio(Text1.text, "[", "]")


Salu2
O_O brother de donde sacaste esta funcion?
por wh0! Usa camisa de fuerza
pa que tanta bola pa una simple función, ve rápido a [Enlace externo eliminado para invitados]
Temas similares
Que paso con esta comunidad? por YarchoJ en Troyanos y Herramientas
Links sobre el tema
Variantes de tema
Cerrado

Volver a “VB/.NET”