Перевести в Single

[Sirik]

У меня в строке есть числа, мне эти числа необходимо перевести в тип Single. Собственно как?

P.S. Знаю что есть функции перевода в Long, Integer - значит должна быть и в Single!
Помогите...

[GSerg]

csng???

[Sirik]

ага, пасибки.

[SHURUP]

Напомните пожалуста, как перевести строку в масив символов! Знаю, что было неоднократно, но найти не могу, а из головы вылетело.
----------
Просто новый топик создавать не хочется

[Sedge]

Split

[Sirik]

2 Sedge

Это наоборот

Вот, моё соображение:

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Dim Stroka As String
    Dim Mas_Out() As String
    Dim I As Long
   
    Stroka = "Пример перевода"
   
    ReDim Mas_Out(Len(Stroka) - 1)
   
    For I = 0 To Len(Stroka) - 1
        Mas_Out(I) = Mid(Stroka, I + 1, 1)
        MsgBox Mas_Out(I)
    Next
   
   
End Sub


[tyomitch]

А правильный ответ вот:

Код: Выделить всё

Dim Mas_Out As Byte
Mas_Out = StrConv(Stroka, vbFromUnicode)


[Sirik]

А правильный ответ вот:

Код: Выделить всё

Dim Mas_Out As Byte
Mas_Out = StrConv(Stroka, vbFromUnicode)


Согласен, мой код длинее, но это не говорит, что он неправильный. Или я ошибаюсь?

[SHURUP]

А правильный ответ вот:

Код: Выделить всё

Dim Mas_Out As Byte
Mas_Out = StrConv(Stroka, vbFromUnicode)


О! Именно оно. Спасибо, tyomitch! (дякую аж підскакую)
Остальным - тоже спасибо!