How many lines of text

[shantec]

Any way to check from text / ini file how many lines of text there is?

[Furai]

Use notepad ++??

[shantec]

I meant with script
I want SCRIPT to check how many lines there is so it can do stuff

[danmer]

something along these lines:
writeln(inttostr(getarraylength(xsplit(readfile('path/to/file'),#10))));

Or just count the linebreaks with a loop similar to xsplit, cba writing it all up for you

[shantec]

Code: [Select]

function GetLines(FileDir: string): integer;
var i,lines: integer;
file: string;
begin
Lines := 0;
file :=ReadFile(Filedir);
For i := 1 to 1000 do begin
If GetPiece(file,chr(13) + chr(10),i) <> '' then begin
lines := i+1;
end else break;
end;
Result := lines;
end;
Okay fully working script
there is just one problem.. if there are whitespaces in the file, it stops
Anyone, how could i fix that?

[CurryWurst]

Code: [Select]

function DoesFileExist(Name: string): boolean;
begin
  if (GetSystem() = 'windows') then
  begin
    if (FileExists(Name)) then
    begin
      result:= true;
    end;
  end else
  begin
    if ((FileExists(Name)) or (ReadFile(Name) <> '')) then
    begin
      result:= true;
    end;
  end;
end;

function GetLines(const PATH: string): integer;
var
  i, x: integer;
  s, FILE: string;
begin
  i:= 1;
  if (DoesFileExist(PATH)) then
  begin
    FILE:= ReadFile(PATH);
    while (i <= length(FILE)) do
    begin
      s:= Copy(FILE, i, 2);
      if (s = #13#10) then
      begin
        Inc(Result, 1);
        Inc(i, 2);
      end else
      begin
        Inc(i, 1);
      end;
    end;
  end;
end;

Always check if the file exists you want to access before reading it.

[JFK]

Code: [Select]

function GetLines(FileDir: string): integer;
var i,lines: integer;
file: string;
begin
Lines := 0;
file :=ReadFile(Filedir);
For i := 1 to 1000 do begin
If GetPiece(file,chr(13) + chr(10),i) <> '' then begin
lines := i+1;
end else break;
end;
Result := lines;
end;
Okay fully working script
there is just one problem.. if there are whitespaces in the file, it stops
Anyone, how could i fix that?

I asume you mean a white line. That's pretty logical. You're checking everything between two newline chars. A white line is 'nothing' between two newline chars, so your for-loop will break.
Im not sure if it will work, but you could try out something with chr(3) wich should be the ascii number for end-of-text.
Would be a bit more elegant solution then checking every character.. still very nice function, curry

[danmer]

Would be a bit more elegant solution then checking every character.

thats what i meant by something similar to xsplit...

@ shantec: Also, make sure your linebreaks are #13#10, not just #10 But i assume your server runs on windows, so you should be fine

[iDante]

Code: [Select]

function StringOccurs(needle, haystack: string): integer;
begin
   while strpos(needle,haystack) <> 0 do begin
      Result := Result + 1;
      haystack := copy(haystack,strpos(needle,haystack)+1,length(haystack));
   end;
end;

function CountLines(Filename: string): integer;
begin
   Result := StringOccurs(chr(13)+chr(10), ReadFile(Filename));
end;
Not tested, but you get the idea.

[CurryWurst]

I asume you mean a white line. That's pretty logical. You're checking everything between two newline chars. A white line is 'nothing' between two newline chars, so your for-loop will break.
Im not sure if it will work, but you could try out something with chr(3) wich should be the ascii number for end-of-text.
Would be a bit more elegant solution then checking every character.. still very nice function, curry

Yeah, I just wanted him to show how a function similar to xsplit may look like.