• Anatoly
  • Восстановленный участник
  • На форуме с 10 декабря 2003г.
  • Сообщений: 6
  • Спасибо: 0

Тема: сравнение похожих строк

есть ли у кого-нибудь программа для выполнения операции сравнения строк, способная показать например, что степень совпадения строк 'ЗАО Рога и КАпыта' и 'Копыта и Рога, ООО' достаточно большая.

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: сравнение похожих строк

Посмотрите здесь
http://www.vbnet.ru/faq/showtopic.asp?id=429

  • Anatoly
  • Восстановленный участник
  • На форуме с 10 декабря 2003г.
  • Сообщений: 6
  • Спасибо: 0

Re: сравнение похожих строк

Спасибо

  • Откуда: Самарская обл. / Самара
  • На форуме с 23 сентября 2008г.
  • Сообщений: 69
  • Спасибо: 0

Re: сравнение похожих строк

Как изящней всего получить True при сравнении 1.0 и 1

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,316
  • Спасибо: 1

Re: сравнение похожих строк

stas_org пишет:

Как изящней всего получить True при сравнении 1.0 и 1

MsgBox 1# = 1 '?

  • Откуда: Самарская обл. / Самара
  • На форуме с 23 сентября 2008г.
  • Сообщений: 69
  • Спасибо: 0

Re: сравнение похожих строк

brigval пишет:

Цитатаstas_org пишет:

Как изящней всего получить True при сравнении 1.0 и 1



КодMsgBox 1# = 1 '?


Дело в том, что я сравниваю уже созданные числа, в одной БД у меня 1.0, а в другой 1, и при сравнении неверный результат, приходится переписывать 1.0 на 1, 2.0 на 2, 3.0 на 3 итд.

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,316
  • Спасибо: 1

Re: сравнение похожих строк

stas_org пишет:


Цитата

brigval пишет:
Цитатаstas_org пишет:

Как изящней всего получить True при сравнении 1.0 и 1



КодMsgBox 1# = 1 '?


Дело в том, что я сравниваю уже созданные числа, в одной БД у меня 1.0, а в другой 1, и при сравнении неверный результат, приходится переписывать 1.0 на 1, 2.0 на 2, 3.0 на 3 итд.

Приведите код...

  • Откуда: Самарская обл. / Самара
  • На форуме с 23 сентября 2008г.
  • Сообщений: 69
  • Спасибо: 0

Re: сравнение похожих строк

For x = 0 To UBound(NameSm1)
str_array = Split(NameSm1(x), "_")

'следующие условия не хотелось бы
If str_array(3) = 1# Then str_array(3) = 1
If str_array(3) = 2# Then str_array(3) = 2
If str_array(3) = 3# Then str_array(3) = 3

' сравнение строк
If StrComp(str_array(3), str_db, vbTextCompare) = 0 Then.................

next

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,316
  • Спасибо: 1

Re: сравнение похожих строк

stas_org пишет:


Код


For x = 0 To UBound(NameSm1)
str_array = Split(NameSm1(x), "_")

'следующие условия не хотелось бы
If str_array(3) = 1# Then str_array(3) = 1
If str_array(3) = 2# Then str_array(3) = 2
If str_array(3) = 3# Then str_array(3) = 3

' сравнение строк
If StrComp(str_array(3), str_db, vbTextCompare) = 0 Then.................

next

Сравнение переменных типа String и Double не корректно.


Здесь информации не достаточно, что порекмендовать что-то конкретное
Можно попробовать так:

str_array(3)=Format(str_array(3),"0")

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: сравнение похожих строк

stas_org пишет:

Дело в том, что я сравниваю уже созданные числа

Если речь идет о числах в виде строки, то почему бы в целях сравнения не конвертировать их в числовой тип, например:

If CSng(str_array(3))=CSng(str_db) then ....

Ответ от stas_org (изменено: stas_org, 22 апреля 2009г. 16:28:45)

  • Откуда: Самарская обл. / Самара
  • На форуме с 23 сентября 2008г.
  • Сообщений: 69
  • Спасибо: 0

Re: сравнение похожих строк

LeonidSN пишет:

Цитатаstas_org пишет:
Если речь идет о числах в виде строки, то почему бы в целях сравнения не конвертировать их в числовой тип, например:


Ну да. Спасибо всем!