https://foro.gambas-es.org/viewtopic.php?f=1&t=1793
-----------------------------------
CanihoJR
Lunes, 08 Agosto 2011, 10:28

Introducir Salto De Linea Cada 45 Caracteres.
-----------------------------------
Buenas!
LinuxMint 11
Gambas 2.21 <---- Aunque hoy no creo que sea necesario especificar estos datos :P

Tengo un TextArea desde el que introduzco un texto (imaginemos 255 caracteres) y lo guardo en mysql sin problemas.

El problema lo tengo, al recuperar ese texto, para imprimirlo en un folio A5, quiero introducir un salto de linea cada 45 caracteres (en principio me da igual que me corte palabras dejando una sola letra (ya arreglaré eso)) solo quería saber como orientarme, pongo una variable contador que valla sumando letras y cada 45 caracteres introduzca un "\n" ?? o como debería introducir el "intro"?

Hay alguna función que cuente palabras y no caracteres?? (podría servirme para enfocar lo de que no corte una palabra)

Gracias! :P


-----------------------------------
Invitado
Lunes, 08 Agosto 2011, 11:04

Re: Introducir Salto De Linea Cada 45 Caracteres.
-----------------------------------
¿Y si pones ScrollBar a "none"? Cuando una palabra no cabe la pasa a otra línea


-----------------------------------
CanihoJR
Lunes, 08 Agosto 2011, 11:08

Re: Introducir Salto De Linea Cada 45 Caracteres.
-----------------------------------
aun así, cuando lo guarda en la base de datos, lo guarda como un único string y no lo baja automáticamente... sin embargo, si cuando voy llegando al final, le voy dando intros, si que me los guarda y a la hora de imprimir, lo vá haciendo tal y como le fui dando.


-----------------------------------
Invitado
Lunes, 08 Agosto 2011, 11:35

Re: Introducir Salto De Linea Cada 45 Caracteres.
-----------------------------------
Igual te interesa más esto...

[code linenumbers=false syntax=gambas]
DIM scadena AS String
DIM sAuxiliar AS String
DIM iContador AS Integer
scadena = "En un lugar de la Satania de cuyo nombre no quiero acordarme..."


FOR iContador = 0 TO Len(scadena) - 1 STEP 1
  IF iContador MOD 10 = 0 THEN 
    sAuxiliar = Left(scadena, iContador) & "\n"
    scadena = sAuxiliar & Right(scadena, Len(scadena) - iContador)
  END IF
NEXT 

[/code]

Retorna esto:
En un lug
ar de la 
Satania d
e cuyo no
mbre no q
uiero aco
rdarme...


Suerte


