Как сделать обратное преобразование

[raxp]

...заменил, все оки :


...а, так вы с контролом работаете, думать будем или как?

p.s.: и с типами данных у себя разберитесь.

[danada1]

ну вы не понимаете
text3 - это не слово (фраза), а объект, в который вводится код
т.е. есть поле с именем text3, пользователь сам вводит в него код, например: 241 235 238 226 238 (это кодовое обозначение слова "слово"), вместо этого кода может быть любой другой (например: 234 238 228 232 240 238 226 224 237 232 229 или 248 232 244 240 238 226 224 237 232 229), т.е. заранее неизвестный (т.к. пользователь сам вводит код с клавиатуры) и нужно этот код преобразовать в буквы.

что-то подсказывает мне, что эту задачу можно решить двумя способами
1 способ. подсчитать количество пробелов, затем прибавить 1, тем самым мы получим количество выборок из кода, после чего каждую выборку загнать в массив размером p+1 (где p - количество пробелов). тем самым мы сможем рассматривать каждую выборку по отдельности
2 способ (не особо грамотный). добавить ещё две переменные mv и kv, где mv - начало выборки (кода), а kv - соответственно конец выборки, значения которых изменяются в процессе выполнения цикла, а возможно даже и нескольких циклов.

я больше склоняюсь к первому способу, вот только как это грамотно реализовать - вот в чём вопрос

[Zer0]

Сообщение от danada1

ну вы не понимаете
text3 - это не слово (фраза), а объект, в который вводится код
т.е. есть поле с именем text3

Вы практически сами ответили на свой вопрос Если код от raxp был в неизменной виде, то Вы пытаетесь работать непосредственно с самим контролом как со строкой. А у него есть еще и поле, из которого можно получить искомый введенный текст

[danada1]

вот что у меня получилось, но почему-то не работает

Dim x As Integer
Dim i As Integer
Dim s As String
Dim f As String
Dim z As String
Dim b As String
Dim y As String
f = Clear
z = Clear
s = Text3
For i = 1 To Len(s)
b = Mid(s, i, 1)
If b <> " " Then
f = f + b
End If
If b = " " Then
x = Val(f)
y = Chr(x)
End If
z = z + Str(y)
f = Clear
Next i
Text4 = z

[Sasha_Smirnov]

Сообщение от danada1

здесь бьёт ошибку

a = Chr(f)

Бедная-бедная ошибка!