You’re offline. This is a read only version of the page.
231
Hi Everyone is there is any way to seperate numeric value from other data type and store it in integer data type
Eg: Code(Variable) := 'I9087';
I need to seperate 9087 and store it into interger variable
Thanks for the reply i got the value by using DELCHR function
Hello,
I like functions like DELCHR better where possible, as they can do the hard work for you. But if nothing else works, you can scan the string char by char and keep the chars that you want. A string is an array of characters, so this is what you can do:
OBJECT Codeunit 99996 Make Number
{
OBJECT-PROPERTIES
{
Date=20/10/21;
Time=16:56:52;
Modified=Yes;
Version List=;
}
PROPERTIES
{
OnRun=BEGIN
Code := '*oh06es/\@wa08=-hed95';
FOR i := 1 TO STRLEN(Code) DO BEGIN
Char := Code[i];
IF EVALUATE(TestNumber,FORMAT(Char)) THEN
ResultTxt := ResultTxt + FORMAT(Char);
END;
EVALUATE(ResultNumber,ResultTxt);
MESSAGE(FORMAT(ResultNumber));
END;
}
CODE
{
VAR
Code@1000 : Code[10];
Char@1001 : Char;
TestNumber@1005 : Integer;
i@1002 : Integer;
ResultTxt@1003 : Text;
ResultNumber@1004 : Integer;
BEGIN
END.
}
}
Thanks for the reply as you say i tried by using evaluate but it returns zero.
Code := '*oh06es/\@wa08=-hed95';
in here i need to return interger(numeric value) only. I tried the Delchar function, it's working but in the where parameter i need to give manually is there is any way to give the alphabet shortly 'A..Z' is not working
Code := DELCHR(Code,'=','ABCDEFGHIJKLMNOPQRSTUVWXYZ|!|@|#|$|%|<|>|*|/|\|?|=|-');
Try this function: docs.microsoft.com/.../evaluate-function
#1
Sohail Ahmed
782
#2
YUN ZHU
764
Super User 2025 Season 1
#3
Mansi Soni
529
Share
Report
All responses (
Answers (
