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

Вниз

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

← →
lobach ©   (2007-03-26 13:19) [0]

Скажите пожалуйста, как прочитать строку типа
имя:::фамилия:::год.рождения
в 3 переменные чтоб ::: было разделителем???

---

← →
Desdechado ©   (2007-03-26 13:21) [1]

Pos + Copy

---

← →
lobach ©   (2007-03-26 13:33) [2]

Неизвестно сколько какой длинны будет каждая переменная.

---

← →
_Knight_   (2007-03-26 13:37) [3]

Pos+Copy+Delete

---

← →
Desdechado ©   (2007-03-26 13:50) [4]

lobach ©   (26.03.07 13:33) [2]
И с какого боку это влияет?

---

← →
RASkov   (2007-03-26 14:23) [5]

uses ..., RxStrUtils; //входит в библиотеку RxLib

const Str= "имя:::фамилия:::год.рождения"; Ch = [":"];
var N, J: Integer; ArrS: array of String;
begin
 J:=WordCount(Str, Ch);
 SetLength(ArrS, J);
 for N := 1 to J do ArrS[N-1]:=ExtractWord(N, Str, Ch);
end;

если нужно могу выдерныть оттуда эти функции... хотя самому написать недолго с использованием предложенных функций.

---

← →
Нуб   (2007-03-26 14:36) [6]

можешь так попробывать

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
  i, step,k : integer;
  arrstr : array [1..3] of string;

begin
 str := "aa223a:::daaad:::ccasdcc";
 step :=1;
 k := 1;
   for i := 1 to Length(str) do  begin
        if (str[i] = ":") and (str[i-1] <> ":") and (str[i-2] <> ":")then begin
            arrstr[k] := copy(str,step,i-step);
            step := i+3;
            inc(k);
        end;
   end;

   arrstr[k] := copy(str,step,Length(str)-step+1);
 Label1.Caption := arrstr[1]+arrstr[2]+arrstr[3];

end;


---

← →
Desdechado ©   (2007-03-26 15:07) [7]

> можешь так попробывать
Пробовать можешь, как хочешь. На луну вон из пушки летали.

---

← →
Нуб   (2007-03-26 15:11) [8]

> Desdechado ©  


а какой у Вас фотык и что за велик ? , если не секрет

---

← →
Arm79 ©   (2007-03-26 21:26) [9]

примерно так:

TStringList.Text := StringReplace(Stroka, ":::", #13#10, [rfReplaceAll]);

Str1 := TStringList[0];
Str2 := TStringList[1];
Str3 := TStringList[2];

---

← →
Kolan ©   (2007-03-26 22:43) [10]

TStrings.DelimitedText ?

---

← →
_Аноним   (2007-03-26 22:49) [11]

> Kolan ©

У него там три чара, а delimiter - это чар.
Если бы не это, то через  DelimitedText было бы, безусловно, корректнее.
Можно, конечно, предварительно натравить на источник StringReplace. если бы была уверенность, что в есть какой то символ, которого точно нет в данных.

---

← →
Loginov Dmitry ©   (2007-03-26 22:59) [12]

> Если бы не это, то через  DelimitedText было бы, безусловно,
> корректнее.


Напротив. При работе со StringList"oм проблем будет больше. Правильнее использовать в данной ситуации именно StringReplace.

---

← →
Kolan ©   (2007-03-26 23:05) [13]

> а delimiter — это чар

Да, забыл.

---

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

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

Наверх

Память: 0.49 MB
Время: 0.055 c