Подскажите числовое значение №

[Sova_imported]

Уважаемые форумчане!
Подскажите числовое значение символа №
# - 35, к примеру. А №... ?
Нигде не могу найти...

[apanko]

252


_char:='№';
_integer:=_char;
message(format(_integer));

[Sova_imported]

Цитата:

Сообщение от apanko

252
_char:='№';
_integer:=_char;
message(format(_integer));

В том-то и дело, что
252 не работает, вылезает мягкий знак, а не "номер"!
Проблема в перекодировке из видоса в дос. Все перекувыривыается, кроме символа "№".
Я ее заменяю решеткой, но это некрасиво

IF OneChar = 185 THEN
OneChar := 252;

252 точно не пашет.
Еще будут мнения?

[apanko]

А куда Вам это нужно вставить?

[Sova_imported]

Цитата:

Сообщение от apanko

А куда Вам это нужно вставить?

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

[Sova_imported]

Цитата:

Сообщение от helga

Для Клиент-Банка мы заменяем его на латинский N.

ну.. можно и так, в принципе
как бухгалтерия скажет

[Fordewind]

Ну, раз никто не знает, то сделайте цикл и пробегитесь по всем номерам. Где-то он должен всплыть

[Captain]

Может это поможет::-)


SC Automation 'Microsoft Script Control 1.0'.ScriptControl
CHR252 Text 30


CREATE(SC);
SC.Language :='vbscript';
CHR252 :=SC.evаl('CHR(252)');
CLEAR(SC)

[Sova_imported]

Цитата:

Сообщение от captain

Может это поможет::-)
SC Automation 'Microsoft Script Control 1.0'.ScriptControl
CHR252 Text 30
CREATE(SC);
SC.Language :='vbscript';
CHR252 :=SC.evаl('CHR(252)');
CLEAR(SC)

Это прям гаубица по воробью!

[apanko]

Цитата:

Сообщение от Sova

>Цитата(apanko @ 27.12.2007,13:15)
>А куда Вам это нужно вставить?

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

Я на самом деле не просто так спросил.
Если в файл выгружать - то код символа 185 мне подошел (определен кстати таким же методом, как предложил Fordewind)

_file.TEXTMODE(TRUE);
_file.WRITEMODE(TRUE);
_file.CREATE('C:/123.txt');
_char:=185;
_file.WRITE(_char);
_file.CLOSE;


-------------------------------------
В догонку.

Цитата:

IF OneChar = 185 THEN
OneChar := 252;

Может дело в том, что лучше:
IF OneChar = 252 THEN
OneChar := 185;