Заменить Одно Слово Другим В String

[CaptainBob]

Привет,
необходимо заменить одно слово другим в string, учитывая что все слова вводятся юзером
необходимо использовать Len, Mid, loop: For...Next
vb.net, для input можно использовать textboxes, as output Msgbox, label
Спасибо

 

[FelixMacintosh]

Привет,
необходимо заменить одно слово другим в string, учитывая что все слова вводятся юзером
необходимо использовать Len, Mid, loop: For...Next
vb.net, для input можно использовать textboxes, as output Msgbox, label
Спасибо

Sub Form_Load()
dim s$, f&

s="New String"

debug.print "s= " & s 'вывод результата в окно Immediate

for f= 1 to len(s)
mid(s,f,1) = "*" 'Замена каждого символа по отдельности звездочкой 
next

debug.print "s= " & s 'вывод результата

End Sub

 

[CaptainBob]

Спасибо за ответ, мне нужно что-то попроще ( более примитивно)
можно как-то заставить работать этот код:

Dim MyString As String
Dim OldWord As String
Dim NewWord As String
Dim strChar As String


Dim i As Integer

MyString = txtMyString.Text
OldWord = txtOldWord.Text
NewWord = txtNewWord.Text

NewWord = ""

For i = Len(OldWord) To 1 Step 1
strChar = Mid(NewWord, i, 1)
NewWord = strChar + NewWord
Next i

'3. Output
MsgBox("New String: " & NewWord, MsgBoxStyle.Information)

 

[FelixMacintosh]

NewWord = strChar + NewWord

во первых так не рекомендуеться связывать текст
это замедляет работу, и результат может трактоваться по разному

например "A" + "B" = "AB" ... "1" + "2" = "3"

для связывания текста используется знак конкатенации &

в твоём случае это NewWord = strChar & NewWord

тогда результ будет корректным

"A" & "B" = "AB" ... "1" & "2" = "12"

во вторых куда проще...

txtNewWord.Text = txtOldWord.Text
txtOldWord = ""

произведена операция присваивания
после этого в текстовом поле txtNewWord
будет виден текст из txtOldWord
а txtOldWord опустошен

и используй теги в сообщениях, а то не понятно
то-ли это текст кода, толи письмо дедушке не деревню )...

а ещё вот глянь

Ссылка скрыта от гостей

там об этом должно быть подробно рассписанно )