kronic
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sub Repl()
Dim i As Integer, MyString As String, NewString As String, MyVal As Single
MyString = "-1q2w3e4r5t6yu6" 'Пусть это наша переменная
For i = 1 To Len(MyString)
Select Case Mid(MyString, i, 1)
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "-", "+", "."
NewString = NewString & Mid(MyString, i, 1)
End Select
Next
On Error Resume Next
Myval = Val(NewString)
MyVal = CSng(NewString)
If Err = 0 Then MsgBox MyVal Else MsgBox "Преобразование невозможно!"
On Error GoTo 0
End Sub
|
Всего записей: 168 | Зарегистр. 01-11-2006 | Отправлено: 17:45 04-03-2009 | Исправлено: kronic, 17:46 04-03-2009 |
|
