WriteIni

[rhide]

Script Name: WriteINI
Script Description: I was not satisfied with the WriteIni procedures I could find using the search function here, so I decided to create my own.
Original Author(s): rhide
Core Version: 2.6.3
Requirements: xsplit

procedure WriteINI(FileName,Section,Key,Value: string);

Parameter Info:
  FileName (String): Name of the file (stored in the soldat folder)
  Section (String): Section to write to (specified as [...])
  Key (String): Key to assign
  Value (String): The value to write to the key

Description:
  The function is designed to look as much as the built-in ReadINI as possible
  http://enesce.com/help/html/Functions/ReadINI.html

  If the key exists, it is replaced by the new value, if not, a new key will be created.
  All ini files will be saved in the soldat/server folder.

Bugs:
  None known

Future changes:
  A lot of whitespaces is added quite unneccesarily, i'll remove that soon [Done]

[xmRipper]

Yeah exactly what i needed =)

[rhide]

Ah, the annoying spaces are now gone. However, some newlines are still added to the end of the file, but I think it's more important to get the script up here than to worry about some non-important details..

Enjoy, and please report any bugs
(I havn't tested it properly yet :0)

[chutem]

How about a Readini that you put in the section and key and it returns the value?
I'm not sure if there already is one of these

[DorkeyDear]

How about a Readini that you put in the section and key and it returns the value?
I'm not sure if there already is one of these

function ReadINI(FileName,Section,Key,DefaultValue: string): string;

[rhide]

Description:
  The function is designed to look as much as the built-in ReadINI as possible
  http://enesce.com/help/html/Functions/ReadINI.html

and from my post above

[chutem]

Oh ok lol, it was late when I posted...

[JFK]

TrimINI gave me an Out Of Range error. I localized it and changed the following:

Code: [Select]

for i:=0 to strlen-1 do Begin

to this:

Code: [Select]

for i:=0 to strlen-2 do Begin

I have no idea what i exactly changed, but it seems to work now and im not losing any lines or anything.
I hope you can tell me i did the right thing


Great thanks for these procedures btw, i first tried to use Avkon's WriteINI procedure, but for some reason it did not write the values in the right section, but it just changed the first fitting key it could find. Since all my sections have exactly the same key's this was pretty unwanted.

[NTxC]

Awesome function. Thanks very much As for the newlines at the end of the file, I wrote a function to remove them. Here is it:

Code: [Select]

function TrimNewlines(EntireFile: TStringArray) : TStringArray;
var
   rest    : TStringArray;
   i, filelength : integer;
   resu: string;
Begin
filelength := ArrayHigh(EntireFile);
SetArrayLength(rest, filelength+1);
for i:=0 to filelength do begin
if(EntireFile[i]='') then begin
if(i<>0) then begin
if(EntireFile[i-1]='') then begin
rest[i]:='-';
continue;
end;
end;
end;
rest[i]:=EntireFile[i];
end;
Result:=rest;
end;
To use it, call TrimNewlines instead of TrimINI in the WriteINI function. So the end of it looks like that:

Code: [Select]

   { Remove all annoying whitespace }
   EntireFile := TrimNewlines(EntireFile);
   
   WriteFile(filename,''); { Make sure the file is empty }
   for i:=0 to ArrayHigh(EntireFile) do
begin
      if(EntireFile[i]='-') then continue;
      WriteLnFile(filename, EntireFile[i]);
end;
No more annoying newlines at the end

Cheers!
NT

[freestyler]

NTxC, are you sure it works?... It doesn't seem to cut the newlines; moreover, you declare resu as string and you never use it.

[NTxC]

Yes, it works
It leaves two newlines at the end of a file, instead of always adding one.

And yeah, 'resu' is just a leftover of experiments Forgot to cut it off.

_________
EDIT: I have attached Core.pas for WriteINI with ability to remove additional newlines. I can take it down on OP's request

[amb2010]

Awesome function. Thanks very much As for the newlines at the end of the file, I wrote a function to remove them. Here is it:

-snip-

No more annoying newlines at the end

Cheers!
NT

You said it was suppose to remove the newlines not add 2 lines instead of one...

[NTxC]

It forces only two newlines at the end of file. So if you had 29 newlines at the end, it forces 2. If you had 10, it forces 2. If you had 1, it forces 2. I guess 2 newlines look better than 20 at the end

[KEEN]

hi!!
Im returning to the scripts for soldat... makes enough that had left them... xD

Very useful the function, but it would like to annotate the following:

When the function writes in some [section] of the .ini, the key and the value turns out to be repeated... I want to know if to someone the same was happening.

-------------------
Example:
[Section]
key1=1
key2=0
key2=1
key1=0
-------------------

When it should be:
[Section]
key1=0
key2=0

And modified:
[Section]
key1=1
key2=1

thanks for the work, really it has facilitated the things!