225
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
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
290,252
Super User 2024 Season 2
#2
Martin Dráb
228,089
Most Valuable Professional
#3
nmaenpaa
101,148
Share
Report
All responses (
Answers (