[Baldares]

Привет.

Зла нехватает, с этими бюррократами

Короче ставлю "," ручками в Языках и Стандартах Виндов. А с нумпада опять точка вводится, и не воспринимается как число.

Что за х?

[Forrest_Gump]

переключитесь на русскую раскладку - будет Вам счастье.

[Елпанов Евгений]

а ты перезагрузился, после смены настроек?

[Baldares]

Сообщение от Forrest_Gump переключитесь на русскую раскладку - будет Вам счастье.

Нуту щастья на земле (

Сообщение от Елпанов Евгений а ты перезагрузился, после смены настроек?

Нет )

[Елпанов Евгений]

бывает...

[Baldares]

Елпанов Евгений, Вы еще не ушли. Я перегрузился. Не помогло.
Т.е. нет, разделитель теперь запятая, все путем, но.
Опишу ситуацию подробней: В VBA-шной форме есть TextBox для ввода массы. После ввода проверка на число - IsNumeric(TextBoxMassa).
Набираю число с нумпада. И ,собака, точку пишет. Ну а проверка по IsNumeric дает false.
Ну не принудительно же ставить запятую.

Причем это только на моем компе задрипанном замечается.
У других запятая вводится с нумпада.

У меня AMD Athlon 1100. У остальны Пеньки III и IV.
Может в этом дело?

[Елпанов Евгений]

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

[Елпанов Евгений]

Хотя, начинается гадание на кофейной гуще - точного рецепта нету.

[Baldares]

Сообщение от Елпанов Евгений посмотри настройки в мс. оффисе... может оттуда цепляется?

Где посмотреть?
В екселе все пучком. Вводится зпт с нумпада.

[Елпанов Евгений]

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

[Baldares]

Сообщение от Елпанов Евгений а в панели управления, ты где менял? разделитель целой и дробной части в разделе числа или в разделе денежная единица?

В мс-Офисе я ниче не менял.
Менял как обычно Пуск-Панель управл. - Язык и Стандарты.
А в экселе просто в любую ячейку число с запятой вбивается с нумпада.
Эксперимент: 0,12 - Вот тут с нумпада "," )
А блин, у себя в проге - точка вылазиет (.

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

Не хило Вы медитируете. Щас соображу:
Windows XP Professional 2002, SP2.
Языки: англ и рус как у всех. Англ по умолчанию.
Права юзера, но с большими возможностями. В смысле у нас нет никаких запретов/ограничений (как например в комп.клубах).

И что тут можно раскурить?

[Елпанов Евгений]

Сообщение от Baldares Менял как обычно Пуск-Панель управл. - Язык и Стандарты.

посмотри, там есть закладки - числа и деньги..

[Елпанов Евгений]

и еще, нет ли у тебя, клавиатурных перехватчиков? Может они шалят..

[Елпанов Евгений]

еще одно видение (даже не знаю, как это по другому назвать, я даже не знаю, в каком городе ты живешь)...
Может у тебя все нормально?
Зайди в эксель, Сервис - Параметры - Международные и посмотри, стоит ли у тебя галка - использовать системные разделители...
Ну и само собой настройки разделителей в офисе...

[Baldares]

Вот здесь зпт стоит.
Щас вторую картинку прикреплю про деньги)

[Baldares]

Вот деньги
Оно?

[Baldares]

Сообщение от Елпанов Евгений и еще, нет ли у тебя, клавиатурных перехватчиков? Может они шалят..

У меня точно нет. А ваще хз.

Сообщение от Елпанов Евгений еще одно видение (даже не знаю, как это по другому назвать, я даже не знаю, в каком городе ты живешь)... Может у тебя все нормально? Зайди в эксель, Сервис - Параметры - Международные и посмотри, стоит ли у тебя галка - использовать системные разделители... Ну и само собой настройки разделителей в офисе...

Местный я. С засранска-Саратова.
Чет в 2007 я не нашел (.

[Baldares]

А глобально объясни, при чем тут может быть мсОффис? Какая связь.
Говорю комп рухлядь, может поэтому.

[Елпанов Евгений]

А глобально объясни, при чем тут может быть мсОффис? Какая связь.

vba любит оттуда брать настройки..
А вообще, это шалит обработчик, те. подмена происходит либо во время проверки на число, либо самим контролом. Других предположений нету...

[Baldares]

Елпанов Евгений, ну а чем может грозить принудительная замена точки на зпт менять.
Допустим так:

Код:

[Выделить все]

TextBoxMassa = Replace(TextBoxMassa, ".", ",")

Или лучше Chr использовать.

А и еще какой функцией переключается разделитель в WinAPI?
Или что-то типа Application.International(xlDecimalSeparator)

[Кулик Алексей aka kpblc]

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

[ShaggyDoc]

В своей программе совсем не обязательно, чтобы автоматически учитывались региональные настройки. Это зависит от используемых компонентов и мозгов программиста. А с мозгами "в стране напряженка". Поэтому программисты часто уверены, что у всех DECIMAL_SEPARATOR должен быть установлен, как и у них.

В хороших программах это обязательно учитывается. В момент ввода данных и в моменты преобразования для вычислений и для вывода на экран. Хороший компонент также не даст ввести неправильный разделитель в момент ввода числа. Это у хорошего компонета "в мозги зашито".

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

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

[Pastor]

Думается мне, что дело тут не в мозгах, а всего лишь в отсутствии опыта.
А все, что подобает сделать опытному старшему товарищу - это привести короткий исчерпывающий пример кода, в котором грамотно "разруливается" подобная ситуация. Многим пригодилось бы (и мне в том числе).

[ShaggyDoc]

Например, так (на Pascal):

Код:

[Выделить все]

 
function strUStofloat(value: string): double;
var
  OldSeparator: char;
begin
  result := 0;
  OldSeparator := DecimalSeparator;
  DecimalSeparator := '.';
  try
    result := StrToFloat(value);
  except
    //
  end;
  DecimalSeparator := OldSeparator;
end;

Здесь StrToFloat - штатная функция, которая "любит" разделитель, указанный в DecimalSeparator.

DecimalSeparator - глобальная переменная Windows. Она временно переопределяется на точку, получаем правильное число штатной функцией. Возможно и противоположное применение, например

Код:

[Выделить все]

 
function strRUStofloat(value: string): double;
var
  OldSeparator: char;
begin
  result := 0;
  OldSeparator := DecimalSeparator;
  DecimalSeparator := ',';
  try
    result := StrToFloat(value);
  except
    //
  end;
  DecimalSeparator := OldSeparator;
end;

А какую применять - зависит от используемых компонентов. Их можно настроить на разные DecimalSeparator. Причем лучше, если это будет именно "американская" точка, так как за много лет люди привыкли, что в большинстве программ надо именно точку вводить.

Для вывода данных на печать используются подобные функции, только заменяющие разделитель на нужный.

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

Тогда в могло бы быть наподобие

Код:

[Выделить все]

 
function MyStrToFloat(value: string): double;
var
  OldSeparator: char;
begin
  result := 0;
  OldSeparator := DecimalSeparator;
  DecimalSeparator := MyDecimalSeparator();
  try
    result := StrToFloat(value);
  except
    //
  end;
  DecimalSeparator := OldSeparator;
end;

MyDecimalSeparator - функция, возвращающая из настроек программы разделитель.

В каждую программу это пихать не надо, это может быть в одном модуле, а в программе, вместо StrToFloat использовать MyStrToFloat.

[Baldares]

Невъехал как #24 применить в "гребаном" VBA.
Вот помогло это:
Замена точки или запятой в строке на разделитель установленный в реестре.

Код:

[Выделить все]

Public Function ReplaceDelimiter(InputStr As String) As String
   Dim WSHShell As Object
   Set WSHShell = CreateObject("WScript.Shell")
   InputStr = Replace(InputStr, ".", WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\sDecimal"))
   InputStr = Replace(InputStr, ",", WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\sDecimal"))
   ReplaceDelimiter = InputStr
End Function

Вредоносность оценить не могу.

[Baldares]

Упс! А чето не найду сам References Windows Script Host Object Model. Ведь должон быть!?

[ShaggyDoc]

У путёвого админа непременно стоит запрет на запуск Windows Script Host - распахнутых настежь ворот для атак на компьютер. Зачем из-за такой ерунды всё это запускать?

Одно из достоинств (самое большое) этого "гребаного" (по твоему выражению) в том, что из него можно вызывать функции обычных dll, в том числе WinAPI. Ну уж и реестр-то наверняка напрямую читать умеет, без всяких шеллов.

[Baldares]

ShaggyDoc, махнемся головами не глядя!

[Кулик Алексей aka kpblc]

Что умеет без Shell - это да. Но "напрямую" - это вряд ли