Buscar caracter

[meru-kun]

Bueno, siento sr tan pesado, pero es que esto de las funciones VB/ASP me vuelve loco.
Necesito hacer una funcion o algo, que me permita saber si una variable tiene o no un espacio(" ").
Tengo las funciones

Código:

Function cortarApartir(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'a partir de la aparicion del caracterCortador
'de la posicion especificada en desde.
dim enc
enc = instr(desde,cadena,caracterCortador)
cortarApartir = mid(cadena,enc + 1)
end Function

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
' v1.0
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function

Entonces, necsito saber si exite el caracter " " en la variable cadena, para asi poder pasar esa cadena a la funcion correspondiente, o, en caso contrario, dejar la variable tal cual.
Algo asi:

If TieneEspacio(cadena) Then
cortarHasta(cadena)
Else
'dejar igual
End if

¿Alguien me dice alguna funcion que compruebe si existe un espacio?
Siento ser tan pesado...

[CHuLoSoY]

con split()

Cadena=Split(cadena," ")

Así recorres una cadena por espacios, si hay espacios pues haces lo que veas. Puedes cortar un texto de una base de datos así:

Cadena=result("campo")
Cadena=Split(cadena," ")
For i =0 to 20 'pon aqui cuantos espacios quieres contar
Response.Write Cadena(i)&" "
Next
Response.Write "..."

[meru-kun]

Creo que no entiendo muy bien lo qeu dices...
¿Con split() lo que hago es cortar una cadena por donde haya un espacio? Si eso es asi, entonces creo que no es lo qeu busco.
Necesito algo que me diga si en una cadena existe un determinado carcater (en este caso, un espacio).

[CHuLoSoY]

No, con split puedes hacer muchas cosas, pero la función sirve para recorrer una cadena por medio de un caracter predeterminado que tú le pongas:

cadena=split(cadena," ") --> recorre por espacio
cadena=split(cadena,"@") --> recorre por arrobas
cadena=split(cadena,"=") --> recorre por signos igual

y así sucesivamente.

[tunait]

Buenas,

prueba a usar la función Instr

cadena="perico de los palotes"
cadena2= Instr(cadena,"m")

eso buscará si cadena contiene la letra m.
Al no estar contenida, devolverá 0
Si estuviera contenida devolvería la posición de la primera m que encontrara.

Así puedes verificarlo si devuelve 0 es que no existe.

Saludos

[meru-kun]

Muchas gracias, tunait, eso era lo que estaba buscando.
Ahora ya esta todo solucionado.

Muchas gracias tambien a ChuloSoy