[VB2010 winform] cambiare testo in visual 2010

[Ciccetto]

ciao vorrei modificare quel testo
conosco visual basic ......
ma li mi perdo
comunque solo le scritte dopo

eg:

a

service1=

spero sia chiaro!


grazias

[cyanuro]

Guarda nel framework il metodo replace della classe string

[Ciccetto]

grazie
ok il replace!

ma il problema è che inquesta stringa qui esempio:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         
 Dim k As String                
 k = TextBox1.Text.Replace(qui nelle parentesi vorrei che: non ci fosse una parola pre stabilita ma una parola qualunque che con la funzione replace viene aggiunto ":" ) esempio 
 k = TextBox1.Text.Replace (" parola", "parola :" )               
TextBox1.Text = k                  
 End Sub 
End Class

mamma mia speriamo che si è capito!

[tas]

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

[ShaleN]

Guarda che come l'hai scritto è giusto. Basta che metti tutto in una funzione come questa:

Private Function MyReplace(Byval s As String, Byval word As String) As String
   return s.Replace(word, String.Concat(word, ":"))
End Function

Poi, nel Form, basta che fai

TextBox1.Text = MyReplace(TextBox1.Text, "parola")

Naturalmente questo torna utile nel caso in cui tu debba richiamare MyReplace più volte ed in più punti del codice. Altrimenti puoi fare direttamente

TextBox1.Text = TextBox1.Text.Replace("parola", String.Concat("parola", ":"))

[Ciccetto]

pr il titolo del post
scusatemi... cambialo pure


ho rimesso la foto perche nel post precedente non mi ero accorto
della miniatura

niente purtroppo lavoro tanto + famiglia e la sera prendo l unica oretta e la dedico al forum+
visualbasic

con replace ho provato funziona sinceramente
ma con parole predefinite
io le stringhe le devo ancora creare!

ne ho creata una come da foto

ciao

http://imageshack.us/photo/my-images...ualstudio.jpg/

[ShaleN]

Ciao. Ho buttato giù questo al volo:

 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.

[Ciccetto]

Originariamente inviato da ShaleN
Ciao. Ho buttato giù questo al volo:

 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

[ShaleN]

Originariamente inviato da Ciccetto
grazie

Di niente e buon lavoro.

[tas]

Originariamente inviato da Ciccetto
pr il titolo del post
scusatemi... cambialo pure

Il titolo non me lo posso mica inventare io! Questa volta te l'abbuono perché sei nuovo nel forum, la prossima volta chiudo la discussione.
Ne approfitto per invitare gli altri utenti a rispettare e a far rispettare il regolamento. Grazie