Удаление пробелов

[_tv4_]

Делаю импорт даных из екселя через таблицу Excel Buffer. Большие числа импортируются в эту табличку с разделителем пробелом. Далее пытаюсь его удалить, пробовала:
str:=DELCHR(ExcelBuf."Cell Value as Text",'=',' ');
str:=FORMAT(ExcelBuf."Cell Value as Text",0,2);
не помогает

в чем прикол кто знает?

PS читала Преобразование Decimal в String но не помогло

[kekki]

Можно попробовать сразу в Excel Buffer писать значение без пробела, т.е. например,

ExcelBuffer."Cell Value as Text" := FORMAT(Amount,15,1)

мне помогает

[_tv4_]

т.е. менять механизм в таблице Excel Buffer?

меня беспокоит почему стандартные функции не работают

[Corleone]

Цитата:

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

т.е. менять механизм в таблице Excel Buffer?

меня беспокоит почему стандартные функции не работают

Там может быть не пробел а нечитаемый символ (скорее всего FFh).

[_tv4_]

Цитата:

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

Там может быть не пробел а нечитаемый символ (скорее всего FFh).

да. он. пробовала с символом 160 из аналогичной емой не прокатило, а с 255 прокатило.
спасибо

[Jackal1]

При експорте делаю так, и работает отлично
"Cell Value as Text" := DELCHR(FORMAT(ЧИСЛО),'=',' '));

Вместо
str:=DELCHR(ExcelBuf."Cell Value as Text",'=',' ');
Попробуй
str1 := ExcelBuf."Cell Value as Text";
str:=DELCHR(str1,'=',' ');

[DA_NEAL]

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

[Alexez]

Я написал так

DelSpace(Item : Code[25]) ItemRes : Code[25]
FOR pos:=1 TO STRLEN(Item) DO
BEGIN
str:=COPYSTR(Item,pos,1);
IF str IN ['1','2','3','4','5','6','7','8','9','0'] THEN
ItemRes:=ItemRes+str;
END;

[InTacto]

Вообще-то вызов DELCHR(string) удаляет пробелы без параметров. можно еще evaluate попробовать.

[Control]

Прогоняй через неё.

DelSpace(LocText : Text[30]) Return : Text[30]
FOR step := 1 TO STRLEN (LocText) DO
BEGIN
   Chr := LocText[step];
   IF NOT(Chr IN [32, 255]) THEN Return := Return + FORMAT(LocText[step]);
END;

[Lrundom]

Цитата:

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

Прогоняй через неё.

DelSpace(LocText : Text[30]) Return : Text[30]
FOR step := 1 TO STRLEN (LocText) DO
BEGIN
   Chr := LocText[step];
   IF NOT(Chr IN [32, 255]) THEN Return := Return + FORMAT(LocText[step]);
END;

спасибки огромное.. изменение региональных настроек и удаление пробелов с помощью функции DELCHR помогало почему то лишь на некоторых компьютерах.. а эта функция решила проблемы совершенно у всех

[rruskih]

проще уж написать:


DelChar(LocText : Text[30]) Return : Text[30]
Chr := 32;
Return :=DELCHR(LocText,'=',FORMAT(Chr));
Chr := 255;
Return :=DELCHR(LocText,'=',FORMAT(Chr));