Создаем функцию сравнения строк в одной из которых возможны перестановки слов местами - 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д