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

[danada1]

суть в чём, при вводе символа программа преобразует его в ascii-код.
код для преобразования я написал, вот:

КОД НА VISUAL BASIC

Dim s As String
Dim z As String
Dim a As Integer
z = ""
s = Text1
For i = 1 To Len(s)
f = Mid(s, i, 1)
a = Asc(f)
z = z + Str(a)
Next i
Text2 = Trim(z)

но ещё нужно выполнить обратное, т.е из ascii-кода получить его значение. причём, обратное преобразование выполняется не одного символа, а нескольких слов.

т.е. например:
преобразуем слово "слово", получим -> 241 235 238 226 238
теперь нужно преобразовать 241 235 238 226 238 -> слово

[hon]

А по каковски вы пишите код? Не по д`Эльфийски, не по Паскальски, не по JavaScriptски. По каковски вы пишите код?

[Serge_Bliznykov]

если я правильно понимаю, то это код на VBA (или Visual Basic)

[Utkin]

Визуал басик. Попробуйте CHR, должна быть антогонистом ASC.

[danada1]

я же специально выделил:

причём, обратное преобразование выполняется не одного символа, а нескольких слов.

chr - используется для преобразования одного символа (числового значения)

для целых слов chr не применим

[danada1]

в результате преобразования получится: 241 235 238 226 238

нужно по отдельности рассмотреть, сначала 241 -> преобразовать код в букву (или символ), далее 235 и так далее

[raxp]

...элементарно ...VBS мне ближе:

Dim s 
Dim z
Dim a
s = "слово"
For i = 1 To Len(s)
f = Mid(s, i, 1)
a = Asc(f) '
z = z + cstr(a)
Next
msgbox z + " - это перевод строки в ASC-набор"
'
i = 1
s = ""
Do While i < Len(z)
f = Mid(z, i, 3)
a = chr(f) '
s = s + a
i = i + 3
Loop
msgbox s + " - это перевод ASC-набора в строку"

[danada1]

что-то вторая часть не работает
к тому же не все буквы (символы) имеют 3х-значный код

...
f = Mid(z, i, 3)
...

плюс ко всему, должны учитываться пробелы

[raxp]

что-то вторая часть не работает

работает.

к тому же не все буквы (символы) имеют 3х-значный код

верно, не все ж коту масленица, подумайте.

плюс ко всему, должны учитываться пробелы

это тоже ваша задача

зы: пробелы, кстати, учитываются, ибо они тоже символы ...ладно, сжалюсь, добавим всего лишь условие:

if len(cstr(a))<3 then z = z + "0" + cstr(a) else z = z + cstr(a)

[danada1]

что-то не совсем так работает
к тому же слово вводит пользователь в поле text3 (в моём случае)

а если изменить

s = "слово"

на

s = text3

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

a = Chr(f)