Почему этот код не дает мне правильный вывод? Я ожидаю, что вывод будет 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