help with ReadFile

[frosty]

seems i dont know how to use the search function, for the life of me i cannot find anything about reading a full file onto something like a writeconsole message

Code: (pascal) [Select]

Const
File_dir = 'Scripts/Adminnote/';
 CRLF = #13#10;

var
File_data:String;

procedure OnJoinTeam(ID,Team: byte);
begin
if Team = 1 then begin
File_data :=ReadFile(File_dir+'Note.txt');
File_data := copy(File_data, 0, length(File_data)-2);
WriteConsole(0,File_data,$EE81FAA1);
end;
end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
if Text = '/adnote' then begin
File_data :=ReadFile(File_dir+'Note.txt');
File_data := copy(File_data, 0, length(File_data)-2);
WriteConsole(0,File_data,$EE81FAA1);
end;
end;
Note.txt attached

all its doing is showing a single blank writeconsole message ingame

all help appreciated

thanks in advance

[Falcon`]

does this work on linux or windows?

[jrgp]

I don't know if scripts themselves are permitted to access the Scripts folder.

[Tehbugerz0r]

Found the problem, while ReadFile is not case sensitive on windows servers it is on linux servers, so you need to make sure you have proper case, for example, change "Scripts" to "scripts" as that is the default name for it.

Weird, I know, but it works.

[tk]

It's HIGHLY recommended not to use ReadFile function in such events as OnJoinTeam, OnPlayerDamage, etc. It lowers stability. Also, each time someone joins/changes the team, your script will rape HDD. And what if it's currently busy? It will cause a lag spike then. Better load it once, at server's startup for example and save what you need.

Would be nice if you didn't hardcore thing such as a script name. It's better to set file directory as 'scripts' + ScriptName

[frosty]

thanks guys, now how would i read a full array to a writeconsole message or how to set the array length based on lines? the bug i have now is that it shows as it should but when the next server message pops up it comes up over the other lines of the writeconsole

[DorkeyDear]

The problem you encountered is the behavior of WriteConsole with newlines. It expects only one line of text; otherwise the other lines will overlap any other text put into the player chat console. You would need to use WriteConsole multiple times, for each line, to avoid this.

To go from the content you read in a file to an array, the Explode function is what you want. File_array := Explode(File_data, CRLF); To get the number of lines in the file, you can use GetArrayLength(File_array). Some example code to spew out everything the server reads from a file (untested):

Code: [Select]

const
  CRLF = #13#10;

procedure SpewOut();
var
  filearraylength, i: integer;
  filename, filedata: string;
  filearray: array of string;
begin
  filename := 'scripts/' + ScriptName + '/Note.txt';
  filedata := ReadFile(filename);
  filedata := Copy(filedata, 0, Length(filedata) - 2);
  filearray := Explode(filedata, CRLF);
  filearraylength := GetArrayLength(filearray);
  WriteConsole(0, 'Length of array: ' + InttoStr(filearraylength), $FFFFFFFF);
  if (filearraylength > 0) then
    for i := 0 to filearraylength - 1 do
      WriteConsole(0, '[' + InttoStr(i) + '] ' + filearray[i], $EE81FAA1);
end;
This is only sample code. As recommended previously, it is a good idea to read the file only once before hand, and have the 'spew out' code not reload the data.