Как преобразовать строку в число?

[Romul_Ner]

Как преобразовать строку в число?

[tyomitch]

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

Val(строка)

[Snussi]

А вот и не факт!
Val воспримет только точку как дес. разделитель.
Имхо, лучше CDbl, CINT,Clng и тд. Правда, они воспринимают как дес. разделитель символ, установленный в региональных настройками.

Так что, смотря что нужно делать

[Andrey Fedorov]

А вот и не факт!
Val воспримет только точку как дес. разделитель.
Имхо, лучше CDbl, CINT,Clng и тд. Правда, они воспринимают как дес. разделитель символ, установленный в региональных настройками.

Так что, смотря что нужно делать

Заменить точку на региональный разделитель и преобразовать в число:

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

CDbl(Replace(MyString,".",Format(0,".")))

Это сработает во всех случаях...

[Viper]

а с еще большей гарантией сработает

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

Val(Replace(MyString,",",".")

[GSerg]

Да ну? Даже когда десятичный разделитель - точка с запятой?

[Andrey Fedorov]

а с еще большей гарантией сработает

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

Val(Replace(MyString,",",".")

Ну большей-то гарантии тут нет совершенно.
Кроме того, если юзер применяет в качестве разделителя нечто отличное от точки и запятой? Ведь теоретически это возможно...

[Viper]

соответственно неплохо бы узнать какой разделитель применяет пользователь.

в реестре это лежит здесь :

HKEY_CURRENT_USER\Control Panel\International

строковый параметр sDecimal

Возможно есть и API функция, которая позволяет получить этот разделитель не заходя в реестр

[GSerg]

Так вот как раз format$(0, ".") и получит этот разделитель.
Внимательно фтыкаем написанное выше.

[Viper]

Так вот как раз format$(0, ".") и получит этот разделитель.

как это????

[GSerg]

Выполни: msgbox format$(0, ".")

[Viper]

Выполни: msgbox format$(0, ".")

Ну и получил я приглашение в виде точки. И что?
Если вместо "." поставить ",", получим запятую и так далее...

в чем фишка то?

[GSerg]

Сходи в свои национальные виндовские настройки. И посмотри, что там стоит десятичным разделителем.

[Viper]

в реестре это лежит здесь :

HKEY_CURRENT_USER\Control Panel\International

строковый параметр sDecimal

тут они и есть. настройки то, национальные

[uhm]

Hint: поменяй ручками десятичный разделитель на что-нибудь непотребное, а потом еще раз выполни msgbox format$(0, ".")

[Viper]

Hint: поменяй ручками десятичный разделитель на что-нибудь непотребное, а потом еще раз выполни msgbox format$(0, ".")

Ура! заработало! Но только в VB6. На VB.NET надо делать

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

Format(0,".0")

- выведет "$0", если в качестве разделителя взять $.

[GSerg]

А зачем этот финальный ноль выводить?

[Viper]

Казалось бы что действительно незачем, но команда

Format(0, ".")

выводит к сожалению пустую строку.

[GSerg]

Ага.
Слишком умно - не лучше, чем слишком глупо
Впрочем, в .NET есть CultureInfo.NumberFormat.NumberDecimalSeparator

[Viper]

На всякий случай поясню разницу между CDbl и Val. Пусть десятичным разделителем является десятичная точка, а пользователь ввел строку в которой вместо точки запятая.

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

Dim dbl As Double
Dim str As String
str = "123,45"
dbl = CDbl(str) 'здесь произойдет ошибка
dbl = Val(str)   'ошибки не будет, но dbl будет равна нулю


[alibek]

Ерунда, dbl будет равен 123

[Viper]

Ерунда, dbl будет равен 123

Вот уж нет. будет ошибка 13 "Type mismatch", то бишь несовпадение типов

[GSerg]

Да ну?

[Viper]

Сорри!!!

для

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

dbl = CDbl("123,45")

будет ошибка несовпадения типов, но для

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

dbl = Val("123,45")

действительно получим, что dbl равен 123.

Но разница между Val и СDbl тем не менее остается, что собственно я и хотел сказать.

[GSerg]

А.

Собственно, это было сказано так много раз до этого