per poter inserire una stringa in un pdf mi sono imbattuto nel problema di dividerla in più righe di n caratteri. Se a qualcuno serve posto qui un esempio del codice
Public Sub DivisiStringa(stringa As String, lunghezzaRiga As Integer) As String[]
Dim x As Integer = 1
Dim y As Integer = 0
Dim riga As String
Dim i As Integer = 1
Dim ritorno As New String[]
While x <= Len(stringa)
If Len(stringa) < lunghezzaRiga Then
ritorno.Add(stringa)
Break
Endif
If i <= LunghezzaRiga Then
riga &= Mid$(stringa, x, 1)
Inc i
Inc x
Else
While Right$(riga) <> " "
riga = Left(riga, Len(riga) - 1)
Inc y
Wend
ritorno.Add(riga)
riga = ""
x = x - y
y = 0
i = 1
If Len(Right$(stringa, Len(stringa) - x)) <= LunghezzaRiga Then
ritorno.Add(Right$(stringa, Len(stringa) - (x - 1)))
Break
Endif
Endif
Wend
Return ritorno
End