Текущий архив: 2007.06.10;
Скачать: CL | DM;

Вниз

Разделение строки   Найти похожие ветки 

← →
_vl_   (2007-05-21 16:02) [0]

Как разделить строку по заданным значениям.
Пример:
Строка: #12032007 1245
Значения: 1       - служебный символ заголовка
              2-3    - день
              4-5    - месяц
              7-9    - год
              10-14 - количество измерений
Надо получить: в массиве все по отдельности.
Есть ли способ, кроме простого перебора по циклу?

---

← →
clickmaker ©   (2007-05-21 16:07) [1]

если поля строго на своих местах и фиксированного размера, то Pos() + Copy()

---

← →
_vl_   (2007-05-21 16:12) [2]

Спасибо, попробую.

---

← →
clickmaker ©   (2007-05-21 16:12) [3]

вернее, даже Pos тут нафик не нужна

---

← →
{RASkov} ©   (2007-05-21 16:29) [4]

> если поля строго на своих местах и фиксированного размера

type TRes = (rCapt, rDay, rMonth, rYear, rMeasure);
function GetData(const S: String; const R: TRes): String;
begin
 case R of
  rCapt   : Result:=Copy(S, 1, 1);
  rDay    : Result:=Copy(S, 2, 2);
  rMonth  : Result:=Copy(S, 4, 2);
  rYear   : Result:=Copy(S, 6, 4);
  rMeasure: Result:=Copy(S, 11, 4);
 else Result:=S;//Result:="";
 end;
end;
Вызов
var S: String;
.....
S:=GetData("#12032007 1245", rDay);

---

← →
_vl_   (2007-05-21 17:05) [5]

Всем огромное спасибо, все получилось.

---

Страницы: 1 вся ветка

Текущий архив: 2007.06.10;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.042 c