VBNet - Форум - Как выципить изменившуюся часть слова.

Вопрос: Как выципить изменившуюся часть слова. Добавлено: 29.09.09 01:06

Автор вопроса: J. Smith | Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. | ICQ: ненавижу

В строковых переменных имею слова, Оригинал и Измененное, вопрос как в две переменные получить Разницу т.е. изменившиеся части слов?
В измененном слове от оригинала как минимум остается первая буква, но обычно меняется только окончание.
Пример:
Ориг. Палковника
Измн. Полковника
Раз1. Палковника
Раз2. Полковника
Ориг. Исава
Измн. Исаева
Раз1. ава
Раз2. аева
Ориг. Петровмич
Измн. Петрович
Раз1. вмич
Раз2. вич

Ктоньть имел такой опыт?
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #1	Добавлено: 29.09.09 04:05
	Можно элементарно булевым флажком и одним циклом по оригиналу пока не найдешь первый несовпадающий символ, раз1=райтс(оригинал, первый несовпавший) и со вторым также райтс, тока не оригинал, а измененное. В общих чертах объяснил. Ответить

Номер ответа: 2 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #2	Добавлено: 29.09.09 17:28
	по типу надо сделать 2 массива типа String с размерностью слова( или 1 двумерный массив), забив с помощю цикла каждый элемент массива 1-й буквой, после чего в цикле, сравнить эти массивы, если элементы равны, то ничего не делаеш, если нет выписываеш букву в строчную переменную. Ответить

Номер ответа: 3 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #3	Добавлено: 29.09.09 19:47
	Незнаю нафик незнаю Dim Assist As Boolean Dim tmpInt As Integer Dim PreviousVal As String Dim NewestValue As String PreviousVal = "Пирцхалаева" NewestValue = "Пирцхалава" For tmpInt = 1 To Len(PreviousVal) If Mid$(PreviousVal, tmpInt, 1) <> Mid$(NewestValue, tmpInt, 1) Then tmpInt = tmpInt - 2 Assist = True Exit For End If Next If Assist = False And Len(PreviousVal) < Len(NewestValue) Then Assist = True: tmpInt = 0 If Assist Then PreviousVal = Right$(PreviousVal, Len(PreviousVal) - tmpInt) NewestValue = Right$(NewestValue, Len(NewestValue) - tmpInt) MsgBox "Заменить все [" & PreviousVal & "] на [" & NewestValue & "]", vbQuestion Or vbYesNo, "Ассистент" End If Ассистент ? Заменить все [аева] на [ава] Dim Assist As Boolean Dim tmpInt As Integer Dim PreviousVal As String Dim NewestValue As String PreviousVal = "Пирцхалав" NewestValue = "Пирцхалава" For tmpInt = 1 To Len(PreviousVal) If Mid$(PreviousVal, tmpInt, 1) <> Mid$(NewestValue, tmpInt, 1) Then tmpInt = tmpInt - 2 Assist = True Exit For End If Next If Assist = False And Len(PreviousVal) < Len(NewestValue) Then Assist = True: tmpInt = 0 If Assist Then PreviousVal = Right$(PreviousVal, Len(PreviousVal) - tmpInt) NewestValue = Right$(NewestValue, Len(NewestValue) - tmpInt) MsgBox "Заменить все [" & PreviousVal & "] на [" & NewestValue & "]", vbQuestion Or vbYesNo, "Ассистент" End If Ассистент ? Заменить все [Пирцхалав] на [Пирцхалава] Ответить

Страница: 1 |