SRL Archive - Help and Support

I have a file with 144 lines in it, and a string on each line. I need to read these strings, and out put it with a writeln. I don't think ReadFileString will work for this.


Helpz?



EDIT: If you wanted to know, its for an Array object in Java script… So I'm gonna use a For loop to create it, and the line of the file it reads will be its array number. (I am going to start the array at one, so the first object will be blank).

Does every line have the same amount of characters?

No, sadly. Thats one reason why I realized why ReadFileString would not work.

If you upload it to the internet i can do it, I don't know of any other way.

Sure, how would I get it from the internet? I could just make it an attachment to a post.

Its only for a single use though. No huge ideas please :p.

Freewebs. They have file attaching which you can view. Or

Procedure ReadFString(var S : string; FileNum : integer);
var
  tmpStr : string;
  S2 : Integer;
  Rslt : Boolean;
begin

  S2 := OpenFile({FilePath}'C:\text.txt',{Shared}false);

  Rslt := ReadFileString(S2,tmpStr,1000);

  tmpStr := Trim(tmpStr);



  Writeln(tmpStr);

end;

end;

No. Sorry :\ wouldn't work. I need to get each line of the file and return it :D.


I remember a tutorial on getting stuff from the web, but not single lines…

someone made a read fie line thing… hang on till i try find it.

edit: Got it. By lordgreggreg

function readFileLine(GregFile:Integer):String;//By Greg Hendrickson!
var
  s,bigs:String;
begin
  while not EndOfFile (GregFile) do
    begin
      ReadFileString(GregFile,s,1);
      bigs:=bigs+s;
      if(s=#10) then
      begin
        result:=bigs;
        exit;
      end;
      writeln(bigs);
   end;
end;
 

Got this from a site :

function explode(cDelimiter,  sValue : string; iCount : integer) : TStringArray;
var
  s: string;
  i,p : integer;
begin
  s := sValue; i := 0;
  while length(s) > 0 do
  begin
    Inc(i);
    SetLength(result, i);
    p := pos(cDelimiter,s);
    if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then
    begin
      Result[i - 1] := copy(s,0,p-1);
      s := copy(s,p + length(cDelimiter),length(s));
    end else
    begin
      result[i - 1] := s;
      s :=  '';
    end;
  end;
end;

Now use it like this :

  FileNumber := OpenFile('PATH', False);
  ReadFileString(FileNumber, FileString, FileSize(FileNumber));
  FileStrings := Explode(Chr(13), FileString, 0);
  for i := 0 to Length(FileStrings) - 1 do
    Writeln(FileStrings[i]);

Thanks you. Although, Sumillion, do you always have to be smarter than everyone :p?


EDIT: Well, smarter if it compiled…

program New;

Var I, FileNumber: Integer;
Var FileStrings, FileString: String;

function explode(cDelimiter,  sValue : string; iCount : integer) : TStringArray;
var
  s: string;
  i,p : integer;
begin
  s := sValue; i := 0;
  while length(s) > 0 do
  begin
    Inc(i);
    SetLength(result, i);
    p := pos(cDelimiter,s);
    if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then
    begin
      Result[i - 1] := copy(s,0,p-1);
      s := copy(s,p + length(cDelimiter),length(s));
    end else
    begin
      result[i - 1] := s;
      s :=  '';
    end;
  end;
end;


begin
  FileNumber := OpenFile('C:\Documents and Settings\Sid.KAY\Desktop\worldprefix.txt', False);
  ReadFileString(FileNumber, FileString, FileSize(FileNumber));
  FileStrings := Explode(Chr(13), FileString, 0);
  For i:= 0 to Length(FileStrings) - 1 do
   Writeln('Worlds['IntToStr(I+1)+'] = AddWorldInfo('+IntToStr(I+1)+
           ', "'+FileStrings[I]+'", "", "")');

end.

Failed when compiling
Line 33: [Error] (33:47): Type mismatch in script

Ron and Moparisthebest both made explode type functions btw.

From: r0b0t1
Thanks you. Although, Sumillion, do you always have to be smarter than everyone :p?


EDIT: Well, smarter if it compiled…

ermm yah! :)

the strings var must be TStringArray silly…

*Speechless*

program New;

Var
 I, FileNumber: Integer;
 FileString: String;
 FileStrings: Array [0..144] of String;

function explode(cDelimiter,  sValue : string; iCount : integer) : TStringArray;
var
  s: string;
  i,p : integer;
begin
  s := sValue; i := 0;
  while length(s) > 0 do
  begin
    Inc(i);
    SetLength(result, i);
    p := pos(cDelimiter,s);
    if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then
    begin
      Result[i - 1] := copy(s,0,p-1);
      s := copy(s,p + length(cDelimiter),length(s));
    end else
    begin
      result[i - 1] := s;
      s :=  '';
    end;
  end;
end;


begin
  FileNumber := OpenFile('C:\Documents and Settings\Sid.KAY\Desktop\worldprefix.txt', False);
  ReadFileString(FileNumber, FileString, FileSize(FileNumber));
  FileStrings := Explode(Chr(13), FileString, 0);
  For i:= 0 to Length(FileStrings) - 1 do
   Writeln('Worlds['+IntToStr(I+1)+'] = AddWorldInfo('+IntToStr(I+1)+
           ', "'+FileStrings[i]+'", "", "")');

end.

Type mismatch line 35…

Change it to

var
  FileStrings: TStringArray;

a line eh?
let's say the line is:
[PHP]help me out you freaking nubs![/PHP]

you can use "between" and place two //

[PHP]<help me out you freaking nubs!>[/PHP]
then getpage, and let it read the text between the <> (or some other charls like: / * -)

I dunno if i explained it clear enough, plz PM me if you don't udnerstand it..

TSN.

EDIT: between does:
returns a string by checking between 2 substrings in a string, for example:

function between(s1, s2, s: string): string;

string: 'I love the new SRL 4 include.'
substring#1: 'new '
substring#2: ' include .'

it will return '4' as a string :)

Explanation:
It checks for the string in the sentence between the 2 substrings and it also results the result as a string :)

ALL WORSHIP THE 1337n33s THAT IS THE BARKER!


Bob Barker Bob Barker show us how to get down. D-O-W-N show us how to get down.

From: r0b0t1
ALL WORSHIP THE 1337n33s THAT IS THE BARKER!


Bob Barker Bob Barker show us how to get down. D-O-W-N show us how to get down.

Um…Ok…:spot: :spot: (had to throw in a dance cause he asked :p)