Изменять выделенный текст.

[Adolf]

Например у меня есть такая фраза:

Список форумов Конференции VBStreets.

И я хочу изменить слово "форумов" на "ajhevjd", как это сделать - у меня сам код есть, который изменяет весь текст (абсолютно все слова), а мне нужно, чтобы только выделенное слово, как это сделать?

[Andrev]

Есть такая функция Replace. Используй ее.

[Adolf]

Приведи пример на каком-либо коде, пожалуйста, так легче понять.

[Jenizix]

Код: Выделить всё

str = "Список форумов Конференции VBStreets."
str = replace(str,"форумов","ajhevjd")


заменит все слова 'форумов' в строке str на 'ajhevjd'

[Jenizix]

Вот накатал побыстрому...
пишеш в текстбоксе русскими буквами предложение, выделяеш что нужно, нажимаеш на конпку и выделенные слова будут в транслите

на форме:
текст с именем text1
кнопка с именем command1

Код: Выделить всё

Private Sub Command1_Click()
    Dim l_str As String
    Dim mid_str As String
    Dim r_str As String

    ' разбиваем строку
    l_str = Left(Text1.Text, Text1.SelStart)
    mid_str = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength)
    r_str = Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

    ' транслитим выделенный текст
    mid_str = translete(mid_str)

    Text1.Text = l_str + mid_str + r_str ' собираем строку
End Sub

Function translete(Text As String) As String
    Text = Replace(Text, "а", "a")
    Text = Replace(Text, "б", "b")
    Text = Replace(Text, "в", "v")
    Text = Replace(Text, "г", "g")
    Text = Replace(Text, "д", "d")
    Text = Replace(Text, "е", "e")
    Text = Replace(Text, "ё", "e")
    Text = Replace(Text, "ж", "zh")
    Text = Replace(Text, "з", "z")
    Text = Replace(Text, "и", "i")
    Text = Replace(Text, "й", "j")
    Text = Replace(Text, "к", "k")
    Text = Replace(Text, "л", "l")
    Text = Replace(Text, "м", "m")
    Text = Replace(Text, "н", "n")
    Text = Replace(Text, "о", "o")
    Text = Replace(Text, "п", "p")
    Text = Replace(Text, "р", "r")
    Text = Replace(Text, "с", "s")
    Text = Replace(Text, "т", "t")
    Text = Replace(Text, "у", "u")
    Text = Replace(Text, "ф", "f")
    Text = Replace(Text, "х", "x")
    Text = Replace(Text, "ц", "ts")
    Text = Replace(Text, "ч", "4")
    Text = Replace(Text, "ш", "sh")
    Text = Replace(Text, "щ", "sh")
    Text = Replace(Text, "ъ", "")
    Text = Replace(Text, "ы", "i")
    Text = Replace(Text, "ь", "")
    Text = Replace(Text, "э", "e")
    Text = Replace(Text, "ю", "u")
    Text = Replace(Text, "я", "ya")
   
    translete = Text

End Function


[Adolf]

Спасибо.

[Adolf]

А как например взять в ковычки ковычки, т. е.:

Text = Replace(Text, """, "Э") - он говорит что ошибка.

[dimix]

А нужно 4 кавычки написать. Т.е. если нужно получить "dimix", то пишешь: """" & dimix & """"

[Adolf]

Нет, ты не понял меня, мне нужно " превратить в Э - для но как мне в кавычки взять эту ковычку?

[dimix]

Или я тебя не понял еще раз, или ты меня не понял. Но кавычку в кавычки можно взять, написав 4 кавычки: """". А у тебя кавычек 3, вот и говорит, что ошибка.

[Jenizix]

добавь в функцию translete эту строку:

Код: Выделить всё

Text = Replace(Text, """", "Э")

Заменит ковычку(") на букву Э

[dimix]

А! Понял! Я просто написал, как взять кавычку в кавычки, а надо было оказывается просто в предложенном примере три кавычки на четыре заменить!