Я застрял с этим кодом, почему он не работает? - PullRequest
0 голосов
/ 06 октября 2019

Почему этот код не дает мне правильный вывод? Я ожидаю, что вывод будет expptxt = aa ".

Я набрал 02a (RLEText)" "Функция 'Compressdata' не возвращает значение для всех путей кода. При запуске может возникнуть исключение нулевой ссылкивремя использования результата. "

Ожидаемый результат: decomptxt = aa

Это мой код:

x = 0
    For i As Integer = 1 To Len(RLEText)
        Dim st As String = RLEText
        NoChars = st.Substring(x, 2)
        Chars = st.Substring(x + 2, 1)
        decomptxt = String.Join("", Enumerable.Repeat(Chars, NoChars))


        Return decomptxt
        x = x + 3
...