CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

spenzer Nybegynder

07. april 2008 - 20:25 Der er 3 kommentarer

læs tekst ud af en fil?

okay, jeg er total begynder på delphi, og i starten her syntes jeg det er lidt vanskeligt.

Jeg har en fil som hedder fildatabase.xml

Den starter med en masse CRC check info
længere nede i filen står der en path til filerne samt filnavn.

hver linje ser således ud:
<File Name="e:\base\freeware stuff\bootcd.iso" TimeStamp="1143678310" Root="PFW3XEDMJQ2WFM3SDQK3DP2XR63VXLB4JOQ2M5Y"/>

jeg vil kun læse den patch ud som hedder e:\base\freeware stuff\bootcd.iso til en listbox..

hvis jeg gennemgår xml filen ser det ikke ud til at alle filer ligger på e: , nogen er på f: osv..

Nogen som kan vise mig et eksempel hvorpå jeg kan læse path ud af filen. jeg fandt selv ud af at læse hele filen op i et memo, men det hjælper ikke så meget. jeg vil netop gerne have kun path med filnavn læst op i en listbox.

jeg har læst en del på about.delphi og i en delphi for begyndere bog, desværre er netop dette her ikke det mest omtalte, der står faktisk kun om hvordan man åber en alm tekstfil :-(

Synes godt om

kroning Nybegynder

07. april 2008 - 20:45 #1

procedure Path2ListBox(Filename : string; ListBox : TListBox);
var
ST : TStringList;
i : integer;
Temp : string;
begin
ST:=TstringList.Create;
ST.LoadFromFile(Filename);
for i:=0 to ST.Count-1 do
if Copy(ST[i],1,11)='<File Name=' then
begin
Temp:=Copy(ST[i],13,MaxInt);
ListBox.Items.Add(Copy(Temp,1,Pos('"',Temp)-1));
end;

ST.Free;
end;

-----------------

Kaldes f.eks. således ved tryk på en knap:

procedure TForm1.Button1Click(Sender: TObject);
begin
Path2ListBox('fildatabase.xml', ListBox1);
end;

Synes godt om

spenzer Nybegynder

07. april 2008 - 21:14 #2

1000 tak :-)

Synes godt om

kroning Nybegynder

07. april 2008 - 21:15 #3

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
Kodning af element i custom css Af Jacob Hedelund i Andet programmering	3	14/10/202410:35	14/10/202419:46
Delphi 11 - converter webp til jpg fil Af juzas i Andet programmering	5	12/10/202413:28	14/10/202403:54
Trim tekst i batch script Af Dan Elgaard i Andet programmering	5	05/09/202411:08	10/09/202415:29
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29

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