divisione di una stringa in righe di n caratteri

[doublemm]

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

Codice: [Seleziona]

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

[vuott]

Molto bene, grazie a te.... ma perché non crei un paragrafo ad hoc nella WIKI ?
Magari in questo capitolo su "Stringhe, caratteri e testo":
http://www.gambas-it.org/wiki/index.php/Guide_della_comunit%C3%A0#Stringhe.2C_caratteri_e_testo

[doublemm]

ho modificato il codice perchè c'era un errore.
Lo farei molto volentieri ma sabato parto per le ferie e sono un po indietro con i lavori e non ho mai scritto nulla sul wiki quindi devo prima capire come funziona. Prometto che quando torno lo faccio, magari mi date una mano visto che sarebbe la prima volta. APRO POSITO (magari poi lo chiudo alla fine), in ferie vado in Francia, magari se incontro Benoit faccio presente che in Italia abbiamo problemi con la Cheskonite.

[vuott]

non ho mai scritto nulla sul wiki quindi devo prima capire come funziona. Prometto che quando torno lo faccio, magari mi date una mano visto che sarebbe la prima volta.

Molto volentieri.  

[Picavbg]

in Francia, magari se incontro Benoit faccio presente che in Italia abbiamo problemi con la Cheskonite.

...capirà che sei affetto anche tu da ceskhonite ! 

Ma perchè, non è proprio B.M.  il nostro untore?   
 

[vuott]

 

Ma perchè, non è proprio B.M.  il nostro untore?    

Ahia !