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

Тема в разделе "Visual Basic", создана пользователем CaptainBob, 3 янв 2014.

  1. CaptainBob

    CaptainBob Member

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

    Регистрация:
    6 янв 2014
    Сообщения:
    21
    Симпатии:
    6
    Код (LotusScript):
    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
     
  3. CaptainBob

    CaptainBob Member

    Регистрация:
    3 янв 2014
    Сообщения:
    5
    Симпатии:
    0
    Спасибо за ответ, мне нужно что-то попроще ( более примитивно)
    можно как-то заставить работать этот код:

    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)
     
  4. FelixMacintosh

    Регистрация:
    6 янв 2014
    Сообщения:
    21
    Симпатии:
    6
    во первых так не рекомендуеться связывать текст
    это замедляет работу, и результат может трактоваться по разному

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

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

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

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

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

    во вторых куда проще...
    Код (LotusScript):
    txtNewWord.Text = txtOldWord.Text
    txtOldWord = ""
    произведена операция присваивания
    после этого в текстовом поле txtNewWord
    будет виден текст из txtOldWord
    а txtOldWord опустошен

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

    а ещё вот глянь Учебник по VB.zip
    там об этом должно быть подробно рассписанно )
     
Загрузка...

Поделиться этой страницей