Как сделать такое?

← →
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пасибо всем!

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