extraer cadena hasta enter

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

lo he probado, tampoco me devuelve una cantidad, que puede ser?
debe existir alguna manera de extraer esa cadena..

donde estan los maestros del .Net!!

Gracias

JoseLuisHuamaní
Peru

Hola:
Prueba esto (No soy ningun maestro):

Dim lsCadena As String
Dim lsSubCadena As String
Dim liPosicion As Integer
lsCadena = "En el bosque se alza el castillo negro"
'IndexOf() Busca una Subcadena y devuelve la posicion
liPosicion = lsCadena1.IndexOf("el") 'Devuelve 3
'Para buscar un enter seria asi
'lsCadena.IndexOf(vbCr)
'Substring() Obtiene una Subcadena comenzando por
'una posicion y extrayendo un numero de caracteres
lsSubCadena = lsCadena.Substring(3, 5) 'Devuelve el bo

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"JoseLuis" escribió en el mensaje
news:
lo he probado, tampoco me devuelve una cantidad, que puede ser?
debe existir alguna manera de extraer esa cadena..

donde estan los maestros del .Net!!

Gracias

JoseLuisHuamaní
Peru

Si después del enter siempre va el @, no sería mejor encontrar el @ y
restarle 1 caracter para extraer lo que necesitas.



"JoseLuis" escribió en el mensaje
news:

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

no.. puede ir cualquier cosa..
un comentario en un Sp puede ir en cualquier lado...