• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы CaptainBob
  • Дата начала
C

CaptainBob

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

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
 
C

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)
 
F

FelixMacintosh


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

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

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

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

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

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

во вторых куда проще...
Код:
txtNewWord.Text = txtOldWord.Text
txtOldWord = ""

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

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

а ещё вот глянь
там об этом должно быть подробно рассписанно )
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!