extraer cadena hasta enter

25/05/2005 - 18:39 por JoseLuis | Informe spam
Hola Grupo:

Deseo extraer del todal de una cadena, una cadena hasta el enter.
tengo el siguinete Texto en una variable de tipo String:

Cadena"CREATE PROCEDURE SpName -- SpName 2 -- descripcion
@A TINYINT
AS
SELECT * FROM Tabla WHERE A= @A"

solo quiero que me devuelva el numero de caracteres de:
"-- SpName 2 -- descripcion" que es el comentario.

Lo intento hacer asi: donde I es 24 el inico de la cadena
nSelLen = InStr(I, Cadena, vbCrLf)
Intento detectar el primer enter que encuentre..pero me devuelve 0.
Alguien me puede ayudar, por favor. hay otra forma de hacerlo?

Gracias
Jose Luis H
Peru-Aqp
 

Leer las respuestas

#1 tecsys
25/05/2005 - 19:48 | Informe spam
la constante que estas utilizando equivale a chr(13)+chr(10), si lo que
quieres es detectar el enter utiliza la constante vbCr que es equivalente a
chr(13)

"JoseLuis" wrote:

Hola Grupo:

Deseo extraer del todal de una cadena, una cadena hasta el enter.
tengo el siguinete Texto en una variable de tipo String:

Cadena> "CREATE PROCEDURE SpName -- SpName 2 -- descripcion
@A TINYINT
AS
SELECT * FROM Tabla WHERE A= @A"

solo quiero que me devuelva el numero de caracteres de:
"-- SpName 2 -- descripcion" que es el comentario.

Lo intento hacer asi: donde I es 24 el inico de la cadena
nSelLen = InStr(I, Cadena, vbCrLf)
Intento detectar el primer enter que encuentre..pero me devuelve 0.
Alguien me puede ayudar, por favor. hay otra forma de hacerlo?

Gracias
Jose Luis H
Peru-Aqp


Preguntas similares