Приведение строки к типу переменной

[viter.alex]

Можно ли преобразовать строковое значение в значение переменной?
Нужно нечто такое:

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

Sub MyConvert(ByRef Variable As Object, ByVal TypeName As String)
  Dim obj As Object = TypeName
  Try
    Variable = CType(obj, Variable.GetType)
  Catch ex As Exception

  End Try
End Sub

Т.е. если передать этой процедуре переменную типа Integer, а в TypeName строковое значение "43434", чтобы в переменную записалось значение 43434. Строка точно будет содержать нужное значение, которое точно можно преобразовать к типу этой переменной.

[1Steps]

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

        Dim t As System.Type
        Dim s As Object = "344344"
        Dim ss As Object = 344344
        t = s.GetType
        MsgBox(t.ToString)
        t = ss.GetType
        MsgBox(t.ToString)

[viter.alex]

Это всё понятно, но как записать выражение

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

ss=Ctype(s,ss.GetType)

[Roman Koff]

Для частных случаев правильно использовать функцию .TryParse (или .Parse) от необходимого типа данных, например:

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

Dim S01 As String = "10"
Dim I01 As Integer
If Not Integer.TryParse(S01, I01) Then
   I01 = 0
End If

Сделать универсальный преобразователь это, ихмо, чтото некорректное. Тогда уж лучше сводить задачу к сериализации.

[FireFenix]

Можно ещё заюзать TryCast или DirectCast (по словам мсдн - лучше их использовать для преобразования типов)

или

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

Try
    Value = Convert.ToInt32(Object) 'Convert.ToSingle  и т.д.
Catch ex As Exception
    MsgBox("Ошибка: Несоответствие типа Intger (32-bit)")
End Try