Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

Текстовой Файл   Найти похожие ветки 

← →
Unicode   (2004-06-03 13:09) [0]

Есть текстовой файл записей в одной строке 5 записей то есть допустим

запись1 запись2 запись3 запись4 запись5

только вот между записями "запись1 и запись2" много пробелов иногда 5 иногда 10 иногда 20 как методом дельфи срезать пробелы и оставить только один или же заменить один из многих пробелов на символ ; понятно?.. то есть нужно создать сепаратор..

---

← →
Reindeer Moss Eater ©   (2004-06-03 13:11) [1]

Пока Pos("  ",Моя_строка) > 0 do Delete(Моя_строка,Позиция,1);

---

← →
IgorR   (2004-06-03 13:14) [2]

RX-Lib  rxStrUtils   DelSpace1

---

← →
panov ©   (2004-06-03 13:17) [3]

примерный код:

function DeleteSpaces(const aSrc:String): String;
var
 isSpace: Boolean;
 i,j: Integer;
begin
 SetLength(Result,Length(aSrc));
 isSpace := False;
 j := 0;
 for i := 1 to Length(aSrc) do
 begin
   if aSrc[i]<>" " then
   begin
     Inc(j);
     Result[j] := aSrc[i];
     isSpace := False;
     Continue;
   end;
   if isSpace then Continue;
   Inc(j);
   Result[j] := aSrc[i];
   isSpace := True;
 end;
 SetLength(Result,j);
end;
 
end;


---

← →
Unicode   (2004-06-03 13:33) [4]

спасибо всем особенно
panov

---

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

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

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