ayuda urgente!!!!!

[anica87]

hola a tod@s, necesito vuestra ayuda.

Tengo un array con separadores y los tengo que busar en una palabra, pero no me funciona bien, os voy a poner un ejemplo.

tengo esto:

for c=0 to 2
sep=array(" ", "." ,";" )
tramo=split(direccion,sep(c))
next

si tengo este texto: calle america
me coge el espacio como caracter del array, pero si tengo: ca.lle America, primero me pilla el espacio porque en el array esta primero, pero me tiene que coger el punto y ya dejar de buscar.
es decir, recorrer la/s palabras y en el momento que me encuentre un separador del array que deje de buscar, sea cual sea el orden del array.

perdonad si no me explico bien, pero espero que me ayudeis, un saludo

[David]

Puedes usar Instr para saber cuál de los separadores está primero, y luego usar Split.

P.S.: Usa un tema más específico para tu duda, normalmente los "ayuda urgente" no son bien recibidos .

[anica87]

el instr lo uso, pero me dice la posicion donde esta el separador y me pasa lo mismo, los busca por orden del array no por orden en la palabra.
como puedo hacer eso que me dices¿ puedes decirme un ejemplo?

Gracias por el consejo del tema, es la primera vez que escribo aqui.

[David]

Pues como te dije, usamos el InStr para saber cuál separador está primero:

Código PHP:

  Texto = "ca.lle America"
sep = Array(" ", ".", ";")
CurrentPos = Len(Texto)
For Looping = 0 To UBound(sep)
    Find = InStr(Texto, sep(Looping))
    If Find < CurrentPos And Find > 0 Then
        CurrentPos = Find
        CurrentSep = sep(Looping)
    End If
Next Looping
tramo = Split(Texto, CurrentSep)  
   

[anica87]

el instr lo uso, pero me dice la posicion donde esta el separador y me pasa lo mismo, los busca por orden del array no por orden en la palabra.
como puedo hacer eso que me dices¿ puedes decirme un ejemplo?

Gracias por el consejo del tema, es la primera vez que escribo aqui.

[anica87]

vale muchas gracias, entonces aqui me cogeria primero el punto no?? muchas gracias de verdad

[David]

Exacto, pues lo que hacemos es ver cuál de los separadores está primero.

Lo principal es que entiendas lo que estamos haciendo con el código, si tienes alguna duda sobre cómo funciona me avisas.

[anica87]

podrias recordarme como se inicializa un array en visual basic?? estoy un poco pez hace mucho que no lo toco y con el codigo de antes no me funciona la inicializacion del vector, ASIAS!!!!

[David]

A mí me funciona el código sin problemas .

¿A cuál array te refieres?

[anica87]

pongo esto:

Dim sep As Array
Dim currentpos, pos, currentsep As Integer
Texto = "ca.lle America"
sep = (" ",".",";")
y me subraya " " como q no se puede declarar asi

[David]

Defínelo directamente como Variant .

CurrentSep es String.

[anica87]

Dim sep As VariantType
Dim currentpos, pos, currentsep As Integer
Texto = "ca.lle America"
sep = ("-",".",";")

CurrentPos = Len(Texto)
For i = 0 To UBound(sep)

me subraya la coma de los separadores y (Sep) pfff que lio

[David]

Así:

Código PHP:

  Dim sep As Variant
Dim CurrentPos As Byte ' Byte ocupa menos memoria '
Dim CurrentSep As String * 1 'Un texto de un solo carácter '
Dim Texto As String
Texto = "ca.lle America"
sep = Array("-", ".", ";")  
   

[anica87]

me subraya: sep = Array("-", ".", ";")
dice que array es un tipo y no se puede usar como expresion

[David]

¿Qué versión de Visual Basic estás usando?

[anica87]

visual basic 2005

[David]

En ese caso las cosas cambian completamente.
El array deberías definirlo así:

Código PHP:

  Dim sep As String() = { "-", ".", ",", "; "}  
   

Y para buscar usar IndexOf en vez de InStr.

[anica87]

Muchisimas gracias !!! de verdad !! me as solucionado el problema, muchisimas gracias por tu gran ayuda