Foros del Web » Programando para Internet » ASP Clásico »

Cortar string a las x palabras

Estas en el tema de Cortar string a las x palabras en el foro de ASP Clásico en Foros del Web. Muy buenas, He estado mirando y tratando de hacer y no se si es por el rato que llevo intentandolo, pero no lo consigo. Lo ...
  #1 (permalink)  
Antiguo 15/03/2007, 13:15
 
Fecha de Ingreso: marzo-2007
Mensajes: 22
Antigüedad: 17 años, 3 meses
Puntos: 0
Cortar string a las x palabras

Muy buenas,

He estado mirando y tratando de hacer y no se si es por el rato que llevo intentandolo, pero no lo consigo. Lo que quiero hacer es que si tengo un texto muy largo por ejemplo de 100 palabras cortarlo para que solo me muestre las 15 primeras palabras.

Espero que me puedan ayudar muchas gracias.

Tram.
  #2 (permalink)  
Antiguo 15/03/2007, 13:54
Avatar de richard20  
Fecha de Ingreso: marzo-2006
Mensajes: 139
Antigüedad: 18 años, 2 meses
Puntos: 0
Re: Cortar string a las x palabras

mmm si quieres verlo por palabras lo que podrias hacer es ocupar la funcion split y separar por espacios en blanco.

palabras=split(cadena," ")

totalPalabras=Ubound(palabras)

y luego invocas las palabras

palabras(0) & " " & palabras(1)

espero te sriva de algo.

Saludos.
__________________
-.No Sueñes tu Vida, Vive tus Sueños.-
  #3 (permalink)  
Antiguo 15/03/2007, 14:12
 
Fecha de Ingreso: noviembre-2006
Ubicación: México
Mensajes: 866
Antigüedad: 17 años, 7 meses
Puntos: 8
Re: Cortar string a las x palabras

Que tal.

Al menos hay un par de soluciones:

1.- Si dices que tienes como 100 palabras(pocas), puedes pasarlo a un arreglo con la función split, de la siguiente manera:
Código:
myArray = Split(myText, " " )  ' Hay un espacio entre comillas
'Posteriormente sólo "barrer" myArray.
2.- También podrías usar la función InStr(Desde, Texto, QueBuscar), por ejemplo,

Código:
myFirstSpace = InStr(1,strText," " ) ' Hay un espacio entre comillas
myFirstWord = Mid(strText,1, myFirstSpace)
'-----
mySecondSpace = InStr(myFirstSpace+1,strText," " ) '' Hay un espacio entre comillas
mySecondWord = Mid(strText,myFirstSpace+1, mySecondSpace )
'-----

'Lo anterior, claro, lo puedes meter a un arreglo.


Saludos y suerte!!
  #4 (permalink)  
Antiguo 15/03/2007, 14:21
 
Fecha de Ingreso: marzo-2007
Mensajes: 22
Antigüedad: 17 años, 3 meses
Puntos: 0
Re: Cortar string a las x palabras

Muy buenas,

lo de la longitud de las palabras de 100 era por decir algo, en realidad es texto dinamico, es decir que puede que tenga 5 como 3000 por decir algo.

No he acabado de entender ni la primero ni la segunda opcion:
1.- el la primero quando dices barrer te refieres a que imprima el array hasta la longitud que quiera no?

2.- Que seria hacer para cada palabra tantas veces eso?

Muchas gracias de nuevo.

Tramjauer
  #5 (permalink)  
Antiguo 15/03/2007, 14:33
Avatar de richard20  
Fecha de Ingreso: marzo-2006
Mensajes: 139
Antigüedad: 18 años, 2 meses
Puntos: 0
Re: Cortar string a las x palabras

mmm mira tendrias que hacer un bucle, creo que es la opcion se me ocurre algo asi:
dim CPal

palabras=split(cadena," ")

totalPalabras=Ubound(palabras)

for CPal=1 to 15
textoFinal = textoFinal & " " & palabras(CPal)
next
Response.write(textoFinal)
textoFinal=""
y bueno el resto lo muestras

for C2Pal = CPal to totalPalabras
textoFinal = textoFinal & " " & palabras(C2Pal)
next

Response.write(textoFinal)

Asi le veo una solucion ahi tendrias que implementarlo para que quede mejor pero creo que por ahi iria la base, espero te ayude.
__________________
-.No Sueñes tu Vida, Vive tus Sueños.-
  #6 (permalink)  
Antiguo 15/03/2007, 14:51
 
Fecha de Ingreso: marzo-2007
Mensajes: 22
Antigüedad: 17 años, 3 meses
Puntos: 0
Re: Cortar string a las x palabras

Muchas gracias Richard,

lo he provado y me a funcionado a la perfeccion. Lo que yo queria con el primer bucle ya lo he consegido.

Gracias de nuevo

Tramjauer
  #7 (permalink)  
Antiguo 15/03/2007, 15:04
Avatar de richard20  
Fecha de Ingreso: marzo-2006
Mensajes: 139
Antigüedad: 18 años, 2 meses
Puntos: 0
Re: Cortar string a las x palabras

No hay de que,

siempre es un gusto dar una mano en este foro.

Saludos.
__________________
-.No Sueñes tu Vida, Vive tus Sueños.-
  #8 (permalink)  
Antiguo 25/07/2008, 15:05
 
Fecha de Ingreso: septiembre-2007
Mensajes: 54
Antigüedad: 16 años, 8 meses
Puntos: 0
Respuesta: Cortar string a las x palabras

hace poco hice el mismo ejercicio con la diferencia de que el string no puede cortar en un largo de una frace me explico ej

"juan pablo perez gonzalez"

que en total son 25 caracteres

ok si lo lo quiero separa en 4 columnas de 7 caracteres
la primera columna me deve querar

"juan "
y no "juan pa"

lo cual como puedo hacer para seguir o hacer un retroceso para que me quere

"juan " , "pablo ", "perez ","gonzale"

la aplicacion lo hice con largos o nombres largos el cual son mas caracteres y 4 columnas , de excel + aplicacion guardado en access o SQL ,,

mi parte del codigo es

Function LimpiaCorte(nr As String) As String
'mas variables

'primera frace--------------------------------------------------------
sacarespacio = Replace(UCase(nr), " ", "")
v = Mid(sacarespacio, 1, 37)
palabras = Split(v, " ")
cantidad = Len(v)
totalPalabras = UBound(palabras)
If (Mid(sacarespacio, 37, 1) = " ") Then
For CPal = 0 To totalPalabras
textoFinal = textoFinal & " " & palabras(CPal)
Next
nr = Trim(textoFinal)
Else
totalPalabras = totalPalabras - 1
For CPal = 0 To totalPalabras
textoFinal = textoFinal & " " & palabras(CPal)
Next
nr = Trim(textoFinal)
End If
'segunda frace--------------------------------------------------------

end function

alguna forma de hacerla mas corta la segunda y tercera parte uf muy largas aparte el ajuste cuesta saludos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:56.