Avatar billede anold Nybegynder
20. april 2001 - 12:11 Der er 2 kommentarer og
1 løsning

find og erstat linje i tekstfil

jeg har en tekstfil hvor jeg gerne vil vide om der er en linje der hedder \'programnr\'
hvis der er det så skal den erstates med en linje der hedder \'programnr 1\'
Hvis der ikke er en linje der hedder programnr skal den sættes ind som linje 2 i tekstfilen

Hvordan gør jeg det ??

Anold
de få point skyldes at jeg ikke har flere :(
Avatar billede borrisholt Novice
20. april 2001 - 12:17 #1
husk at ændere filnavnet :

Procedure FindAndReplace;
var
i : Integer;
begin
  with TStringList.Create() do
  try
    LoadFromFile(\'unit1.pas\');

    i:= IndexOf(\'programnr\');
    if i<> 0 then
      Strings[i] := \'programnr 1\'
    else
      Insert(2, \'programnr 1\');

    SaveToFile(\'unit1.pas\');
  finally
    free;
  end;


Jens B
Avatar billede anold Nybegynder
20. april 2001 - 12:33 #2
Øh der er et lille problem
jeg glemte at fortælle at \'programnr\' kun er starten på linjen så kan det ikke lade sig gøre at læse en del af linjen

anold
Avatar billede martinlind Nybegynder
20. april 2001 - 12:43 #3
Så løb listen igennem og brug :
if Pos() <> 0 then

/Martin
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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