Buenas tardes,
tengo un report, y observo que si el texto es muy largo, la palabra se corta, y sigue en la siguiente lnea.
Hay alguna manera de solucionar esto?
Ejemplo: Esto es un texto muy bon
ito.
Cuando debera ser:
Esto es un texto muy
bonito.
Eso si ya seria la bomba como poder justificar el texto.
Un saludo-
Angel
Se llama “Word Wrap”
Se lo dar a continuacin …
[code]Function textwrap(testo As String, lunghezza as Integer) As String
// converto i ritorni a capo unix o mac CR o LF o il ritorni a capo dos CR + LF in EndOfLine (xojo)
dim resto as string
dim posix as integer
dim stringa as string
dim haritorno as integer
dim quanto as integer
dim lunga as integer
dim ritorno as string
resto = testo.trim
if resto.lenb <= lunghezza then
Return resto
end if
do until lunga <> 0
lunga = resto.lenb
if lunga <= 30 then
stringa = resto
else
stringa = resto.leftB(lunghezza)
if InStrB(0,stringa,EndOfLine) > 0 then
// posix = InStrB(0,stringa,EndOfLine)
posix = instrRev(stringa,EndOfLine)
else
posix = instrRev(stringa," “)
end if
end if
stringa = stringa.LeftB(posix).trim
ritorno = ritorno + stringa + EndOfLine
lunga = resto.lenb
if instrB(0,resto,EndOfLine) > 0 then
resto = replace(resto,EndOfLine,”")
end if
resto = MidB(resto,posix,lunga - posix+1)
lunga = 0
if resto.trim = "" then
lunga = 1000
end if
loop
Return ritorno
End Function
[/code]