Здравствуйте подскажите пожалуйста мучаюсь с написанием цикла как перебрать все возможные комбинации подставляя буквы е/ё в Соловьёв Артём Фёдорович, Соловьев Артём Фёдорович. И совсем не представляю как сделать перебор когда двойное имя или фамилия с теми же злосчастными ё/е Ёжиков-Соловьёв Артём Фёдорович
Код |
---|
Function check(snmn) r2 = Len(snmn) count = 0 For r1 = 1 To r2 If Right(Left(snmn, r1), 1) = "Ё" Or Right(Left(snmn, r1), 1) = "ё" Then 'не мог никак посчитать кол-во ё в строке кроме этого странного метода count = count + 1 End If If Right(Left(snmn, r1), 1) = "Е" Or Right(Left(snmn, r1), 1) = "е" Then 'не мог никак посчитать кол-во е в строке кроме этого странного метода count = count + 1 End If Next r1 str1 = Split(snmn, " ", 3) comb2 = 2 ^ count For comb1 = 1 To comb2 'str2 = Replace(str1(0), "ё", "е")& Next c1 end function |