Преглед садржаја
Издвоји нумерички део низа
Следећа функција ће извући нумерички део из низа:
Функција Ектрацт_Нумбер_фром_Тект (Пхрасе Ас Стринг) Као Доубле Дим Ленгтх_оф_Стринг Ас Интегер Дим Цуррент_Пос Ас Интегер Дим Темп Ас Стринг Ленгтх_оф_Стринг = Лен (Пхрасе) Темп = "" Фор Цуррент_Пос = 1 То Ленгтх_оф_Стринг Иф (Мид (Пхрасе, Цуррент_Пос, 1) =-- ") Затим Темп = Темп & Мид (Пхрасе, Цуррент_Пос, 1) Енд Иф Иф (Мид (Пхрасе, Цуррент_Пос, 1) =". ") Тхен Темп = Темп & Мид (Пхрасе, Цуррент_Пос, 1) Енд Иф Иф (ИсНумериц (Средњи (израз, тренутни_позитив, 1))) = Тачно Тада је темп = Темп и средњи (израз, Тренутни_позитиви, 1) Крај ако је следећи Тренутни_позиција ако је Лен (Темп) = 0 Онда Извуци_број_из_текста = 0 Остало Издвоји_број_из_текста = ЦДбл (Темп) Крај Ако Завршна функција
Тако на пример:
Ектрацт_Нумбер_фром_Тект (“ууиггуо 995”) ће вратити 995
Ектрацт_Нумбер_фром_Тект (“ууиггуо 0.12995”) ће вратити 0.12995
Ектрацт_Нумбер_фром_Тект (“иу00.000456”) ће вратити 0.000456
= Ектрацт_Нумбер_фром_Тект (“јуии -0009.9987иихиии”) ће вратити -0.9987
Ако у фрази нема броја, враћа се нула.
Кликните овде да бисте преузели .КСЛСМ датотеку из овог чланка.
