Создаем функцию сравнения строк в одной из которых возможны перестановки слов местами - VB

Узнай цену своей работы

Формулировка задачи:

"Serebro - Сладко (Andrei Harchenko Remix).mp3" = "Serebro - Сладко (Remix Andrei Harchenko).mp3"
Нужно оптимизировать код чтоб быстро выполнялся. Я раньше видел что-то про метод сплит, но так и не вкурил и не знаю что быстрее будет работать в цыкле или сплит.

Решение задачи: «Создаем функцию сравнения строк в одной из которых возможны перестановки слов местами»

textual
Листинг программы
<font color="00AA00">'Порівняти текст що в дужках, в якому можуть бути переставлені навіть місцями слова</font>
<font color="blue">Public</font> <font color="blue">Function</font> PorivnannaVDujkah(<font color="blue">ByVal</font> Vhid1 <font color="blue">As</font> <font color="blue">String</font>, <font color="blue">ByVal</font> Vhid2 <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Boolean</font>
 <font color="blue">Dim</font> varArray() <font color="blue">As</font> <font color="blue">String</font>
 <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>
 Vhid2 = LCase(Vhid2)
 varArray = Split(LCase(Vhid1), <font color="teal">" "</font>)
   <font color="blue">If</font> UBound(varArray) = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> <font color="blue">Exit</font> <font color="blue">Function</font>
   <font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> UBound(varArray)
       <font color="blue">If</font> InStr(<font color="darkblue"><b>1</b></font>, Vhid2, varArray(i), vbTextCompare) <font color="blue">Then</font>
         Vhid2 = Replace(Vhid2, varArray(i), <font color="teal">""</font>)
       <font color="blue">Else</font>
         <font color="blue">Exit</font> <font color="blue">Function</font>
       <font color="blue">End</font> <font color="blue">If</font>
   <font color="blue">Next</font>
 PorivnannaVDujkah = (Trim(Vhid2) = <font color="teal">""</font>)
<font color="blue">End</font> <font color="blue">Function</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы