Как.....

[GSerg]

А, теперь их двое, я понял...

[Igor_123]

Добрый день!

Сразу вопрос -

1) Брола 1но слово из текста

по каким признакам определить, что какое-то количество символов является словом?
Нужен какой-то критерий!

Следующий вопрос -

дальше проверяла есть ли такое в текстовом поле где содержаца слова в столбик точнее в катором будем искать (проверку я сделал)

первый вопрос относится и ко второму TextBox'у.

Проверка у тебя есть.

Цикличность в алгоритме у тебя есть.

Теперь коды:
С первым пунктом проясниш сам, а второй и третий

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

dim i as long, j as Long
for j = 1 to CountWordsInTextBox1 ' Цикл по словам из первого TextBox'a   
   for i = 1 to CountWordsInTextBox2 ' Цикл по словам из первого TextBox'a
       if ItemsWordInTextBox1(j) = ItemsWordInTextBox2(i) Then
           TextBox3.Text = TextBox3.Text & vbCrLt & WordsFormTextBox1
           ' Добавляем слово в результирующий Бокс и переносом строки
           i =  CountWordsInTextBox2
                        ' Выход, дальше проверять нет смысла, если не нужно
                        ' дублировать запись столько раз, сколько оно
                        ' будет встречаться в TextBox2
       EndIf
   next i
Next j

Вот тебе и код
CountWordsInTextBox1 и CountWordsInTextBox2 - переменные в которых хранится количество слов в текстбоксах,
ItemsWordInTextBox1(j) и ItemsWordInTextBox2(i) - хочешь функции, которые возвращают слово по индексу, а хочешь массивы.
Вообщем решать тебе!

Доделаешь ответ на первый вопрос заполнишь массивы или сделаешь функции и все заработает!

Удачи!

[alibek]

А, теперь их двое, я понял...

Они размножаются делением!!!

[Igor_123]

Почкованием

[t4lli]

Непойму , всеравно беруца из списка толко два первых слова!!! Но у меня неиу "Цикличность в алгоритме у тебя есть." я использую очень прастой код поиска

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

If InStr(1, Text1.Text, Text2.Text, vbTextCompare) Then
'а Сюда пихаю то что мне дал игор
Else
MsgBox "!"
End If


Я непонимаю вчём проблема !!!!

[GSerg]

На последний вопрос ответ давно дан

[Igor_123]

2 GSerg! Все когда-то начинали! Но, тут согласен, не все так агрессивно!

2 t4lli
В TextBox.Text будет содержатся такого вида строка
"слово1|слово2|слово3",
в TextBox2.Text такая строка -
"первое|второе|пятое|десятое"

Вот тебе нужна функция, которая сделает массив строк из этих строк!

а

InStr(1, Text1.Text, Text2.Text, vbTextCompare)

просто ищет строку из TextBox2.Text в TextBox1.Text и если находит, то возвращает номер позиции в TextBox1.Text, строки совпадающей со строкой из TextBox2.Text, а если не находит - то ноль!
А пихать ничего не надо!
А цикличность вот:

2) Если слово найдено то переходим на слово нижеЗдесь подразумевалось пока не достигнем конца списка (Слово может быть не в начале а гденибуть в середине текстового поля в катором ищем)

Почитай, что делают разные функции.
Попробуй сделать такую задачу:
В один TextBox вводишь различные символы с клавиатуры, а в другом выводишь те-же символы, но отсортированные по-убыванию, например.

Ну и Удачи!

[t4lli]

Я конечно извеняюсь за настойчивсть ! Впринципе все слова в масив , ! это получается что мне надо все слова прописать руками типо так

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

dim m(9) as string

m(1.0) = "Hello"
m(1.1) = "hi"
m(2.0) = "Good"
m(2.2) = "Bad"
и тд


а патом уж делать проверку и выписывать нужные слова ! А представте ситуацию , на форме 3 текстбокса "txt1 , txt2 , txt3" , первого txt1 мы делам visible = false и вставляем туда окало 100ни слов , во втаром txt2 пользователь пишет свой текст и дапустим он написал состоящий из 50ти слов текст в катором встречаются слова такие как в txt1 (и повторяются неоднократно) , затем он жмёт кнопку и наконец в третим txt3 выводится текст уже с изменёными словами , тоесть я имею виду что если из этих 50ти слов 33 слова унас акозались такие как в txt1 то прога те слова что несовпали так и перепишет в txt3 а те что совпали будет заменять вот таким спосабом
Это слова в столбик в txt1
"Hello" - это слово дапустим каторое ввёл пользователь (и оно оказалось в txt1 )
"hi" - а это слово на каторое прога заменит Hello
и тд....
"Good"
"Bad"

Я незнаю ка сделать лучше , может легче будет если слова в txt1 будут записаны так Hello hi или Hello - hi , как легче если прога нашла слово и будет заменять его словом ниже или после пробела на одной строчке а ? Пасоветуйте !

Вы только не падумайте что я только вапросы и вапросы задаю и нечего сам неделаю , нет я стораюсь въехать в поставленную мноюже задачу , но пока успехи невелеки !!!

[t4lli]

Ктонить

[FaKk2]

Весь этот топик в юмор пора
На всякий случай напомню основной принцип успешного написания кода:

1. Взять ручку, бумагу и написать простым текстом суть задачи

Хочу заменять слова пользователя

.
2. Не отпуская ручки нарисовать схему работы программы. Как правило зрительное восприятие лучше развито.

Получить текст ---> Заменить слова ---> Показать результат

Тут же надо разбить всю программу на куски.
3.Той же магической ручкой пишем последовательность действий:

Получить текст:
Взять строку, загрузить в массив, отфильтровать.

Заменить слова:
В цикле проверять каждый элемент, при нахождении менять.

Показать результат:
Склеить массив в строку, показать строку


4. И только на этом этапе! Заметьте, далеко не первом, надо алгоритм перевести в код VB.

Конечно одним коротеньким постом курс программирования не передашь, но идея думаю ясна.

Кстати, если будет желание и спрос, могу оформить весь цикл ввиде статьи (хотя сам наобещался тут )

[FaKk2]

t4lliА теперь попробуй последовать этим шагам и скажи где споткнулся.

[t4lli]

Впринципе почти всё получилось , вот только есть небольшое но ! Осталось сделать чтоб прога прола по одному слову из текста1 и проверяла , тоесть у меня проверяет но толко одно первое слово из текста1 а мне надо чтоб попорядку , проверила одно слово насла (сделала опирацию) затем перешла на другое , если не носла то сразу на другое пересла и так весь текст !!!!! Это всё !! Мозна кодам !

[FaKk2]

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

Осталось сделать чтоб прога прола по одному слову из текста1 и проверяла , тоесть у меня проверяет но толко одно первое слово из текста1 а мне надо чтоб попорядку , проверила одно слово насла (сделала опирацию) затем перешла на другое , если не носла то сразу на другое пересла и так весь текст

Ты себе эту операцию представляешь? Как бы ты вместо компа выполнил ее?
Взял первое. Проверил, паменил.
Взял второе. Проверил, заменил.
Взял третье. Проверил, заменил.

А теперь скажи как бы ты это делал? напиши себе программу действий, у тебя в общем то два варианта, либо писать вручную для каждой строки либо использовать цикл.
Если не умеешь использовать цикл, так и скажи, хватит людям голову морочить!

[t4lli]

Неумею!

[FaKk2]

И чего ждем? Машиаха?

[Sedge]

Машиаха?

Кто такой?

[Ennor]

Машиаха?

Кто такой?

Машиах (иврит.) - мессия

[tyomitch]

Машиаха?

Кто такой?

Гугл рулит!!

Слово «Машиах» в переводе с иврита означает «помазанник». В древние времена быть помазанником означало быть избранным Богом на какую-то особую миссию, т.е. иметь какое-то важное предназначение в жизни. Помазанниками в древнем Израиле назывались цари и пророки, и священники, но помазанник, о котором мы говорим – это главный помазанник Израиля, как говорят по-русски Христос.

Мы предпочитаем использование древнееврейского слова “Машиах” или его русского перевода - Мессия вместо других вариантов, так как это первоначальный термин. Когда мы говорим о Мессии, мы используем его еврейское имя Йешуа, так как это Его настоящее имя, данное Ему при обрезании родителями, а Иисус это лишь перевод с греческого языка. Русский или греческий вариант этого имени не имеет никакого особого значения, а с иврита оно переводится как «Спасение Божье».

[Sedge]

Машиаха?

Кто такой?

Гугл рулит!!

Влом...