ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сравнение строк
12 сообщений из 12, страница 1 из 1
сравнение строк
    #32901798
_гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_гость
Участник
Привет
как можно сравнить две строки и вывести разницу?
спасибо
...
Рейтинг: 0 / 0
04.02.2005, 16:12:41
| Ответить | Цитировать | Написать  
сравнение строк
    #32902029
Flare
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Flare
Участник
string1="Проценты по овердрафту"
string2="Депозит корпоративной карты"

Ответьте мне, задающий столь фундаментальнейший вопрос о сравнении строк, какой по вашему в этом случае должна получиться разница?
:)
...
Рейтинг: 0 / 0
04.02.2005, 17:30:34
| Ответить | Цитировать | Написать  
сравнение строк
    #32902088
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
i=vba.StrComp(s1,s2,vbTextCompare)
...
Рейтинг: 0 / 0
04.02.2005, 17:52:09
| Ответить | Цитировать | Написать  
сравнение строк
    #32903329
MrDDT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDDT
Участник
А чё вам так не нравится If Строка1 = Строка2 Then ...? :)
...
Рейтинг: 0 / 0
07.02.2005, 08:08:59
| Ответить | Цитировать | Написать  
сравнение строк
    #32903353
_гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_гость
Участник
string1 = "Проценты по овердрафту"
string2 = "Проценты по овердрафту такие"
после сравнения должно получиться:
string3 = " такие"
...
Рейтинг: 0 / 0
07.02.2005, 09:04:28
| Ответить | Цитировать | Написать  
сравнение строк
    #32903367
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
авторstring1 = "Проценты по овердрафту"
string2 = "Проценты по овердрафту такие"
после сравнения должно получиться:
string3 = " такие"

при таких условиях
вероято ф-ция REPLACE

REPLACE(string2, string1,"")

и надо чтоб строка с большей длиной была 1 параметром, 2 строка - 2 параметром
...
Рейтинг: 0 / 0
07.02.2005, 09:19:14
| Ответить | Цитировать | Написать  
сравнение строк
    #32903476
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Для того, чтобы "сравнить две строки и вывести разницу" надо "сравнить две строки и вывести разницу" :-)
если надо сравнить по вхождению слов:
1. преобразовать обе строки в массивы слов a1 и a2
2. поиск слов массива a1 в массиве a2 -> всё что не найдено сохраняем в массив c1
3. поиск слов массива a2 в массиве a1 -> всё что не найдено сохраняем в массив c2
4. вывести в качестве результата массивы c1 и c2
если надо сравнить по символам - алгоритм явно сложнее, но прицип тот же
...
Рейтинг: 0 / 0
07.02.2005, 10:14:05
| Ответить | Цитировать | Написать  
сравнение строк
    #32903525
_гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_гость
Участник
2 Marvan
я так и делаю (пытаюсь), но ClearQuest с массивами не дружит... вот и извращаюсь... думаю чем массивы заменить можно
...
Рейтинг: 0 / 0
07.02.2005, 10:40:30
| Ответить | Цитировать | Написать  
сравнение строк
    #32903650
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
А чем пример HandKot не устраивает?
Доработать лишь немного и все:
Код: plaintext
1.
2.
3.
4.
5.
6.
Function Разница(Строка1 As String, Строка2 As String) As String
   If InStr( 1 , Строка1, Строка2) >  0  Then
      Разница = Replace(Строка1, Строка2, "")
   ElseIf InStr( 1 , Строка2, Строка1) >  0  Then
      Разница = Replace(Строка2, Строка1, "")
   End If
End Function
...
Рейтинг: 0 / 0
07.02.2005, 11:31:11
| Ответить | Цитировать | Написать  
сравнение строк
    #32903671
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
_гостьClearQuest с массивами не дружит
если в нём есть VBA, то дружит.
...
Рейтинг: 0 / 0
07.02.2005, 11:39:43
| Ответить | Цитировать | Написать  
сравнение строк
    #32903728
_гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_гость
Участник
сделал так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
\t\tfor\xa0i\xa0=\xa01\xa0to\xa0len(oldVal)\xa0step\xa013
\' msgbox(left(cstr(oldVal),i+11) + ". " + cstr(i) + " - Old array")
\' msgbox(right(left(cstr(oldVal),i+11),12) + ". " + cstr(i) + " - Old array")
\' msgbox(left(cstr(newVal),i+11) + ". " + cstr(i) + " - New array")
\' msgbox(right(left(cstr(newVal),i+11),12) + ". " + cstr(i) + " - New array")
\' msgbox(cstr(arrOld(i)) + " " + i + " - Old array")
\t\t\tif\xa0not\xa0right(left(cstr(oldVal),i+11),12)\xa0=\xa0right(left(cstr(newVal),i+11),12)\xa0then
\t\t\t\tdefVal\xa0=\xa0right(left(cstr(oldVal),i+11),12)
\' msgbox(cstr(defVal))
\t\t\t\texit\xa0for
\t\t\tend\xa0if
\t\tnext
Как отформатирован этот код?

а VBA там даже без дебагера и сильно урезанный.
Всем спасибо.
...
Рейтинг: 0 / 0
07.02.2005, 11:56:13
| Ответить | Цитировать | Написать  
сравнение строк
    #32903747
_гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_гость
Участник
забыл пояснить:
строки разбиваю по 12 симолов (такая длина ID в ClearQuest) и несовпадение сохраняю
Всем еще раз спасибо.
...
Рейтинг: 0 / 0
07.02.2005, 12:00:46
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сравнение строк
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32901798&tid=2168246]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 205ms
total:  301ms
созд. / загр.: 301ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]