[DELPHI] Suddivisione di una stringa con carattere separatore

[danz67]

Ciao a tutti,

ho una stringa formata pressapoco cosi:

dato1@dato2@dato3@dato4@dato5@

ho la necessita di frammentare la stringa e di eliminare il simbolo @ e suddividere il risultato

esempio...

dato1

dato2

dato3

dato4

[123delphi321]

ciao, ho avuto un problema simile.

cercando su internet ho trovato del codice che poi ho un po adattato alle mie esigenze....


function split(input:string;schar:char;s:integer):string;
var
i,n:integer;
schop: string;
begin
n := 0;
for i := 1 to length(input) do
begin
if (input[i] = schar) then
begin
inc(n);
if n = s then
split := schop
else
schop := '';
end
else
schop := schop + input[i];
end;

inc(n);
if n = s then split := schop;

end;


per estrarre i dati devi fare cosi:

StringaDati:='dato1@dato2@dato3@dato4@dato5@'

MiaStringa:= SPLIT(StringaDati,'@',3);

in questo caso MiaStringa conterra 'Dato3'.

ciao

[danz67]

Sei stato di grande aiuto, sono riuscito ad adattare perfettamente la tua soluzione alle mie esigenze.
Grazie mille

[alka]

Penso sia possibile usare anche la classe TStringList e la proprietà DelimiterChar, ma dato che hai già risolto brillantemente...

[danz67]

Originariamente inviato da alka
Penso sia possibile usare anche la classe TStringList e la proprietà DelimiterChar, ma dato che hai già risolto brillantemente...

Visto che c'è sempre da imparare, penso che sarebbe interessante usare anche questa tecnica.
Eventualmente postero' i miei dubbi.

[danz67]

Originariamente inviato da 123delphi321
ciao, ho avuto un problema simile.

cercando su internet ho trovato del codice che poi ho un po adattato alle mie esigenze....


function split(input:string;schar:char;s:integer):string;
var
i,n:integer;
schop: string;
begin
n := 0;
for i := 1 to length(input) do
begin
if (input[i] = schar) then
begin
inc(n);
if n = s then
split := schop
else
schop := '';
end
else
schop := schop + input[i];
end;

inc(n);
if n = s then split := schop;

end;


per estrarre i dati devi fare cosi:

StringaDati:='dato1@dato2@dato3@dato4@dato5@'

MiaStringa:= SPLIT(StringaDati,'@',3);

in questo caso MiaStringa conterra 'Dato3'.

ciao

Ho un'altra necessità.
Invio una query... select cognome, nome from clienti where idcliente = 23
il risultato mi viene restituito formattato da una pagina php cosi:

rossi@mario@

a questo punto mi serve estrarre i due valori restituiti e dividerli cosi:

rossi
mario

mi puoi aiutare perfavore?

Grazie

[danz67]

Fermi tutti, ci sono riuscito con il suggerimento di Alka.

Grazie a tutti,