generatore di testo

[Ciccetto]

HELP:

oramai il programma di partenza che avevo preparato ha preso diverse forme

Imports System.Text   
 
Public Class Form1     


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        
 Dim builder As New StringBuilder         
Dim i As Integer         
For i = 0 To Me.TextBox1.Lines.Length - 1           
Dim str As String = Me.TextBox1.Lines(i).Replace("  ", " ").Trim             
Do While (str.IndexOf("  ") > -1)                
 str = str.Replace("  ", " ")            
 Loop             
Dim strArray As String() = str.Split(New Char() {" "" "})            
 builder.Append(String.Format("service" & "{1} {2} {3}{0} {4} 7 ", New Object() {(i + 1), strArray(1), strArray(2), strArray(3), strArray(4)}))             
If (i <> (Me.TextBox1.Lines.Length - 1)) Then                
 builder.Append(ChrW(13) & ChrW(10))             
End If           
 Next i         
Me.TextBox3.Text = builder.ToString            
 End Sub 
End Class

il programma con il seguente codice lo trovate qui:
http://www.megaupload.com/?d=I31N02QZ

link per l immagine:
http://imageshack.us/photo/my-images...mmagineye.jpg/


di cosa ho bisogno se è possibile

al posto di scrivere come da foto tante volte
F DDD 1234 RRR TTT

Scriverlo solo una volta e dare tutti i valori gia pre impostati

senza stravolgere il codice che gia faticosamente ho messo appunto
anche con l aiuto di shalen (consigli piccoli ma utili)


spero sia chiaro

[tas]

Il titolo della discussione non è conforme al regolamento, mandami per favore un messaggio privato con la rettifica.