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

Вниз

Как сделать такое?   Найти похожие ветки 

← →
maxim2   (2002-09-12 09:45) [0]

Привет всем!
Возникла проблемка никак додуматься немогу.
Короче есть строка типа "Данное1___Данное2____Данное3_______Д4"
Так вот мне нодо из этой строки сделать вот такую
"Данное1,Данное2,Данное3,Д4"
то есть все пробелы между данными надо заменить на 1 запятую.

Подскажите у кого есть идей.

---

← →
Lord Warlock   (2002-09-12 09:54) [1]

uses SysUtils; Новая строка:=StringReplace(Старая строка, StringOfChar("_",количечтво подчеркиваний), ",", [rfReplaceAll]);

---

← →
MBo   (2002-09-12 09:56) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
k:integer;
begin
//1 способ

s:="aa aaa sfjdkjh kjkjk";
with tstringlist.create do begin
commatext:=s;
s:=commatext;
free;
end;
label1.caption:=s;

//Способ 2

s:="aa aaa sfjdkjh kjkjk";
k:=pos(" ",s);
while k>0 do begin
delete(s,k,1);
k:=pos(" ",s);
end;
s:=stringreplace(s," ",",",[rfReplaceAll]);
label2.caption:=s;

---

← →
Kaban   (2002-09-12 09:57) [3]

while pos("__"{два пробела}, S)>0 do
Delete(S, pos("__"{два пробела}, S),1);
while pos("_"{один пробел}, S)>0 do
S[pos("_"{один пробел}, S)]:=",";

---

← →
Dimka Maslov   (2002-09-12 10:05) [4]

function ReplaceChars(Str: string; OldChar, NewChar: Char): string;
var
P1, P2: PChar;
S: String;
begin
Result:="";
S:=PChar(@Str[1]);
P1:=PChar(S);
repeat
P2:=StrPos(P1, PChar(String(OldChar)));
if P2 = nil then begin
Result:=Result+P1;
Break;
end;
P2^:=#0;
Result:=Result+P1+NewChar;
P1:=P2;
Inc(P1);
while (P1^ = OldChar) and (P1^<>#0) do Inc(P1)
until false;
end;


ReplaceChars("Данное1___Данное2____Данное3_______Д4", "_", ",");

---

← →
maxim2   (2002-09-12 12:02) [5]

Cпасибо всем!

---

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

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

Наверх

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