Cortar string a las x palabras

[tramjauer]

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.

[richard20]

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.

[daniel00]

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!!

[tramjauer]

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

[richard20]

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.

[tramjauer]

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

[richard20]

No hay de que,

siempre es un gusto dar una mano en este foro.

Saludos.

[zeroyevi]

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