Добрый день!
Помогите пожалуйста изменить пользовательскую функцию.
Три добрых человека написали для меня функцию, которая сравнивает две аминокислотные последовательности и выводит список отличий:
Например "MFV" сравниваем с "MFG" и функция выдает "V3G". Проблема во вставках (смотрите прикрепленный файл). Инсерции (т.е. вставки относительно референсной последовательности) должны обозначаться как ins и нумерация в референсе не должна учитывать "-".
На всякий случай дублирую код функции от Игоря Гончаренко:
Помогите пожалуйста изменить пользовательскую функцию.
Три добрых человека написали для меня функцию, которая сравнивает две аминокислотные последовательности и выводит список отличий:
Например "MFV" сравниваем с "MFG" и функция выдает "V3G". Проблема во вставках (смотрите прикрепленный файл). Инсерции (т.е. вставки относительно референсной последовательности) должны обозначаться как ins и нумерация в референсе не должна учитывать "-".
На всякий случай дублирую код функции от Игоря Гончаренко:
| Код |
|---|
Function Differ(a$, b$) Dim s$, i& For i = 1 To Len(a) If Mid(a, i, 1) <> Mid(b, i, 1) Then s = s & " " & Mid(a, i, 1) & i & Mid(b, i, 1) Next Differ = Right(s, Len(s) - 1) End Function |
