grazieOriginariamente inviato da ShaleN
Ciao. Ho buttato giù questo al volo:
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.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
![]()
![]()
piano piano incomincia a prendere forma la stringa
a pensare che ho fatto tanti programmi
e credevo che fosse semplice
![]()

Rispondi quotando