Originariamente inviato da ShaleN
Ciao. Ho buttato giù questo al volo:
codice:
 Private Sub SearchForEg(ByVal Text As String, ByRef TxtBox As TextBox)
        TxtBox.Text = String.Concat("[Service]", Environment.NewLine, "service = ")
        Dim ch As Char = Nothing
        Dim Index As Integer = Text.IndexOf("eg: ") + 4

        Do Until (ch = " "c OrElse Index = Text.Length)
            ch = Text(Index)
            TxtBox.AppendText(ch)
            Index += 1
        Loop

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SearchForEg(TextBox1.Text, TextBox2)
    End Sub
In base a quello che c'è nell'immagine dovrebbe funzionare, poi devi vedere tu. Sarebbe meglio usare le espressioni regolari, se vuoi saperne di più cerca su google.

grazie
piano piano incomincia a prendere forma la stringa
a pensare che ho fatto tanti programmi
e credevo che fosse semplice