Fpdf e testo che fuoriesce

[centro]

Ciao a tutti,
creo un pdf da una textarea........
sembrava tutto ok...
cosa strana però se si copia il testo da word (dove ho una paginetta tutta giustoificata...)con pochi accapo....
quando vado a creare il pdf il testo esce fuori....

faccio così....

pdf.MultiCell 0,4, testo,1,"L"



inoltre.. sono andato a leggere le proprietà della textarea o visto che con WRAP=PHYSICAL
il testo nel riquadro va a capo, e viene spedito allo stesso modo.

ma non è proprio così almeno per quanto riguarda il mio caso...
c'è qualche altra proprietà in fpdf che mi possa risolvere questo porblemino....?
omagari qualcuno ha avuto un problema simile.. e mi sà dire che sistema ha adottato...?

grazie e buona serata
Giuseppe

[centro]

ciao ragazzi... visto che non ho trovato una funzione in fpdf che mi faccia quello che voglio cioè obbligare il testo anche se copiato da wword nella pagina...

(eppure.. io so sicuro che qualcosa ci deve essere.....)

vabbè alla fine stavo a provare con questa funzione trovata nel forum e che mi taglia le stringhe lunghe
la stringa per prova è questa:


Pippo pluto…
Il Timing per gionoa , dasdasd e ang asdasdas iomi

Le leddddsioni ddddd che nell’età ddddd vengono, per ddddd diversi, candidate alla dddd ddddd, non xxxx xxx di urgenza. xxx così di xxxxx in xxxxxx nel xxxxxxx o nel conxxxxxxsigliare il xxxxxxxx e il come xxxxxxxx xxxxxxxxxx xxxxxxxxx.




la funzione che sto utilizzando e che forse ho modificato male..... è questa

Function dividiStringa(sStr, iInizio, iProg)

    Dim sTesto 
    Dim lLenght
    Dim sFinal 

    If Len(sStr) > 20 Then
       If Mid(sStr, 21, 1) = " " Then
          sFinal = Mid(sStr, 1, 20) &  vbCrLf '& "
"
              'response.write(sFinal)
           sTesto = Mid(sStr, 22, Len(sStr) - 21)
          iProg = iProg + 1
          dividiStringa sTesto, 1, iProg
       Else
          lLenght = InStrRev(Mid(sStr, 1, 20), " ")
          If Not lLenght = 0 Then
             sFinal = Mid(sStr, 1, lLenght) &  vbCrLf ' & "
" 
                 'response.write(sFinal)
             sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
          Else
             sFinal = Mid(sStr, 1, 20) &  vbCrLf '& "
" 
                   ' response.write(sFinal)
             sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
          End If
          iProg = iProg + 1
          dividiStringa sTesto, 1, iProg
       End If
    ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
         sFinal = sStr
          ' response.write(sFinal)
    End If
dividiStringa=sFinal
End Function 

e poi


pdf.MultiCell 0,4, dividiStringa(testo_abstract, 1, 1),1,"L"


ma lui mi taglia a


Pippo pluto…
Il




troverò una soluzione prima o poi... !!!??
buu

ggrazie
ragazzi e buon week end

[centro]

ciao,.. continuo a rispondermi da solo...
ho trovato questo scriptino di santino83

dim testo,maxLen,att
maxLen=150 'splitto ogni 100 caratteri spazi inclusi)
testo=miotesto

    parole=split(testo," ")
    

    testo=""
    att=0
    
    for each parola in parole
    testo=testo & " " & parola
    att=att+len(parola)+1
    
    if att>=maxLen  then
        testo=testo &  vbCrLf 
        att=0
    end if
    next 

mi funge.. almeno questo mi fa andare a capo nel pdf... c'è solo un piccolo problem che lo scritp calcola la lunghuezza non tendendo ocnto delgi a capo che già sono presenti nel testo
io ho pensato di aggiungere

if InStr(testo,vbCrLf)=0


così...

dim testo,maxLen,att
maxLen=150 'splitto ogni 100 caratteri spazi inclusi)
testo=testo_abstract




    parole=split(testo," ")
    

    testo=""
    att=0
    
    for each parola in parole
    testo=testo & " " & parola
    att=att+len(parola)+1
    if InStr(testo,vbCrLf)=0then 
        if att>=maxLen  then
           testo=testo &  vbCrLf 
           att=0
          end if

       end if
    next 

ma non mi funge... cosa mi sfugge...?

ciao e grazie....