|
|
 | sortere semikolon separeret data
Fra : Calle. |
Dato : 14-04-03 13:16 |
|
Hej
Jeg læser følgende fra en læser semikolon separeret fil med
readln(fil,data);
bil;lastbil;hus;;kran;;traktor
Hvordan for jeg de forskellige felter tildelt til forskellige variabler.
PS nogle af felterne kan godt være tomme, som i eksemplet.
Er grøn i Delphi
--
Calle
| |
 Calle. (14-04-2003)
| Kommentar
Fra : Calle. |
Dato : 14-04-03 13:28 |
|
Calle. wrote:
> Hej
>
> Jeg læser følgende fra en læser semikolon separeret fil med
> readln(fil,data);
> bil;lastbil;hus;;kran;;traktor
> Hvordan for jeg de forskellige felter tildelt til forskellige
> variabler. PS nogle af felterne kan godt være tomme, som i eksemplet.
>
> Er grøn i Delphi
Jeg har lige et tillægs spørgsmål:
Hvordan finder jeg positionerne på simikolonerne i linien POS giver jo
kun den første.
--
Calle
| |
Finn Bindeballe (14-04-2003)
| Kommentar
Fra : Finn Bindeballe |
Dato : 14-04-03 14:03 |
|
hep der.......
procedure Sortstring (var list : TStringlist; s: String ; Delimiter :
char ) ;
var iy : integer ;
s1: String;
begin
list.Clear;
s1:='';
for iy :=1 to length ( s ) do
begin
if s[iy] = Delimiter then
begin
list.Add ( s1 );
s1 :='';
end else s1:= s1+s[iy];
end ;
if sizeof (s1 ) > 0 then list.add( s1 );
end;
bruges saaledes......
.....
......
var l:tstringlist;
begin
l:=tstringlist.create;
sortstring(l,'bil;lastbil;hus;;kran;;traktor',';');
........ gør noget.........
l.free;
end;
l.items[0] vil indeholde 'bil'
l.items[1] vil indeholde 'lastbil'
osv.....
/finn
| |
Ulrik Vadstrup (15-04-2003)
| Kommentar
Fra : Ulrik Vadstrup |
Dato : 15-04-03 11:11 |
|
"Calle." <Calle@fjernjyde.dk> wrote in message
news:3e9aa778$0$143$edfadb0f@dtext02.news.tele.dk...
> Hej
>
> Jeg læser følgende fra en læser semikolon separeret fil med
> readln(fil,data);
> bil;lastbil;hus;;kran;;traktor
> Hvordan for jeg de forskellige felter tildelt til forskellige variabler.
> PS nogle af felterne kan godt være tomme, som i eksemplet.
>
> Er grøn i Delphi
> --
> Calle
>
Du kan bruge funktionen ExtractStrings - den er med i D7, ved ikke hvor
"tidlig" den er med
Ulrik
| |
Toke Herkild (16-04-2003)
| Kommentar
Fra : Toke Herkild |
Dato : 16-04-03 23:14 |
|
Hejsa Calle,
Hvad skal du bruge den text fil til ? Skal felterne indeholde komma'er ?
Hvis ikke så prøv at leg lidt med TStringList.CommaText.
MVH
Toke
Calle. wrote:
> Hej
>
> Jeg læser følgende fra en læser semikolon separeret fil med
> readln(fil,data);
> bil;lastbil;hus;;kran;;traktor
> Hvordan for jeg de forskellige felter tildelt til forskellige variabler.
> PS nogle af felterne kan godt være tomme, som i eksemplet.
>
> Er grøn i Delphi
> --
> Calle
>
>
| |
|
|