Код:
Func NextString($sString, $sCurrent) ; первый параметр строка ("abcd"), второй - номер символа (номер последнего - StringLen($sString))
Local $iSymbolCode
If $sCurrent = 0 Then
Return ""
Else
$iSymbolCode = Asc(StringMid($sString, $sCurrent, 1)) + 1
If $iSymbolCode = 256 Then
Return NextString(StringLeft($sString, $sCurrent - 1) & Chr(0) & StringRight($sString, StringLen($sString) - $sCurrent), $sCurrent - 1)
Else
Return StringLeft($sString, $sCurrent - 1) & Chr($iSymbolCode) & StringRight($sString, StringLen($sString) - $sCurrent)
EndIf
EndIf
EndFunc
Код работает неверно. После aaaю:
aaaя
aab
aac
Где ошибка?