Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.23;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-73755
JrKI
2002-09-11 19:51
2002.09.23
Как сохранять странички из TWebBrowser в файл ? Help pls !


1-73598
AlexNO
2002-09-12 09:40
2002.09.23
Региональные стандарты


1-73643
grigorys
2002-09-12 17:09
2002.09.23
VB И DELPHI


14-73867
Dimich1978
2002-08-28 14:05
2002.09.23
ВСе встречаются, влюбляются...ПЕНЗА


1-73617
Андрей Дмитриев
2002-09-12 13:05
2002.09.23
Access Volidation