Notifikationer

Markér alle som læst Log ud

ht-delphi Nybegynder

29. oktober 2003 - 16:25 Der er 1 kommentar og
1 løsning

Finde tekst i en fil

Hej,
jeg skal trække tal ud fra en tekst fil.

Efter jeg har fundet "KORTSALG-" vil jeg forsætte med at læse i filen indtil jeg finder
"--------------------------------------".
I dette stykke vil jeg lede efter
"KORTGRUPPE: 60"
og vælge tallet til højre i linien under kortgruppe 60 linien, som jeg sætter i en variabel.
Der er en 3 - 4 ting jeg skal bruge i hvert stykke jeg udvælger.

Jeg er ikke kommet ret langt med koden.

Håber der er en som har en stump kode.

vh
Harald

0KORTSALG-
0RAPPORT
0RAPPORTKODE: 003 SN1:0035 SN2:0112
0 2003-08-26 10:09
0STATION: 0054354
0
0SEKVENSNUMMER: 6096 - 6180
0
0RAPPORTPERIOD START: 2003-08-25 11:31
0 SLUT: 2003-08-26 09:51
0
0KORTAUTOMAT NR: 1
0BLYFRI 95 1006,46L 7679,30
0NITRO 3000 206,37L 1622,07
0DIESEL 975,80L 5366,89
0BLYFRI 92 400,07L 3028,54
0TOTAL 2588,70L 17696,80
0
0
0TOTALT
0BLYFRI 95 1006,46L 7679,30
0NITRO 3000 206,37L 1622,07
0DIESEL 975,80L 5366,89
0BLYFRI 92 400,07L 3028,54
0TOTAL 2588,70L 17696,80
0
0
0
0***KORTGRUPPE: 14
0TRANSAKTIONER: 33 6121,81
0
0***KORTGRUPPE: 15
0TRANSAKTIONER: 5 2026,92
0
0***KORTGRUPPE: 35
0TRANSAKTIONER: 2 409,61
0
0***KORTGRUPPE: 60
0TRANSAKTIONER: 44 8883,62
0
0***KORTGRUPPE: 64
0TRANSAKTIONER: 1 254,84
0
0TOTAL 85 17696,80
0CENTRAL RABAT 0 0,00
0LOKAL RABAT 0 0,00
0***V[RDI 17696,80
0--------------------------------------

Synes godt om

stone Forsker

29. oktober 2003 - 18:42 #1

her er et eksempel:

procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.SelStart := 0;
end;

procedure TForm1.Find1Click(Sender: TObject);
begin
FindDialog1.FindText := RichEdit1.SelText;
FindDialog1.Execute; //åbner finddialogen
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
var
st: TSearchTypes;
newpos: integer;
cd: TFindDialog;
begin

cd := (Sender as TFindDialog);

if frMatchCase in cd.Options then
st := st+[stMatchCase];

if frWholeWord in cd.Options then
st := st+[stWholeWord];

if RichEdit1.SelLength > 0 then
RichEdit1.SelStart := RichEdit1.SelStart + 1;

newpos := RichEdit1.FindText(cd.FindText,
RichEdit1.SelStart,
Length(RichEdit1.Text),
st);

if newpos <> -1 then
begin
RichEdit1.SelStart := newpos;
RichEdit1.SelLength := Length(cd.FindText);

end;

end;

Synes godt om

ht-delphi Nybegynder

30. oktober 2003 - 18:50 #2

det ser spændende ud

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Hjælp til Api.asmx Af lurup i Andet programmering	1	17/03/202609:27	17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering	2	12/11/202514:10	02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering	16	17/08/202522:26	19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering	8	24/07/202513:06	28/07/202517:03
hta - powershell eller lign. Af tjodense i Andet programmering	2	28/04/202515:22	29/04/202512:00

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS