Explode() en VisualBasic?

[TxT]

Saludos me gustaria tener una funcion (si, es necesario que sea en funcion porque lo voy a llamar varias veces).

a esta funcion voy a pasar una url, y lo que quiero es que me regrese todo lo que viene despues del 000010A/

Gracias :D

[erbuson]

¿ Te importaria poner un ejemplo de lo que pretendes ?

Personalmente veo la pregunta un poco difícil de entender

[TxT]

quisiera obtener todo el contenido (y solo el contenido) que viene despues de un texto el cual es: 000010A/ :) Gracias por la ayuda!

[erbuson]

Hola, si entiendo bien el texto empezará siempre por 000010A/ y si es así no tienes que crear ninguna funciona sino utilizar Mid$ que ya existe en VB

Texto = "000010A/Y esto es lo que quieres"

Mid$(Texto, 9) te devolverá Y esto es lo que quieres

Si esto no es la respuesta esperada, intenta explicar mejor la pregunta.

[TxT]

Es exactamente lo que queria :D muchisimas gracias!

[TxT]

Saludos, tu tecnica me funcionó a la perfección, ahora me gustaria saber si existe alguna manera para poder confirmar que viene despues de ellos?

es decir despues de 000010A/ tiene que venir un http:// entonces me gustaria poder confirmar que es http:// y que si no lo es, que lo agregue ?

Gracias!

[erbuson]

Hola de nuevo:

Si únicamente quieres comprobar esto podrías utilizar la instrucción Left$ por ejemplo de la siguiente manera:

If Left$(Datos, 7) <> "http://" Then Datos = "http://" & Datos

Pero ten en cuenta que esto no deja de ser una verificación muy simple ya que por ejemplo si Datos = "HTTP://LOQUESEA" la comprobación ya no funcionará porque mayúsculas es diferente de minúsculas.

[TxT]

Error 1 'Public Property Left() As Integer' has no parameters and its return type cannot be indexed. C:\Users\***\Documents\Visual Studio 2008\Projects\myBrowser\Form1.vb

Error 2 Type character '$' does not match declared data type 'Integer'. C:\Users\***\Documents\Visual Studio 2008\Projects\myBrowser\Form1.vb

Me salen estos dos errores :S

El codigo que agregue fue:

Dim Datos As String
Datos = ComboBox1.Text
If Left$(Datos, 7) <> "http://" Then Datos = "http://" & Datos

el error me lo da en Left$

[erbuson]

Hola, pues no se donde pueda estar el error, quizás alguien que conozca el VB 2008 pueda ayudarte mejor, el trema es que mi respuesta está adaptada a VB6 y tal vez haya diferencias en la función.

De todos modos, siempre te queda la opción de utilizar el MID$ que al parecer si te ha funcionado. Esta instrucciones es básicamente la misma.

If Mid$(Datos, 1, 7) <> "http://" Then Datos = "http://" & Datos

Prueba de todos modos a quitarle el $ y dejar solo Left ya que en VB6 por ejemplo, ambas funcionan.

Saludos y ya me comentarás si ha funcionado.

[TxT]

Ya lo reparé, lo que necesitaba hacer es esto:

Microsoft.VisualBasic.Left(Datos, 7)

Y quitar el signo de $, muchas gracias erbuson nuevamente :D !!