Welcome to our new forum
All users of the legacy CODESYS Forums, please create a new account at account.codesys.com. But make sure to use the same E-Mail address as in the old Forum. Then your posts will be matched.
Close
Hi,
I'm trying to read strings from file.
The file is organized in this way:
[CONFIG FILE]Value A=xxxxxValue B=xxxxxValue C=xxxxxValue D=xxxxxValue E=xxxxxValue F=xxxxxand so on...
The total length of the file is about 600 bytes.
The file is written by part of the same application in CODESYS. The writing process goes right.
The issue happens when the reading routine starts.
The code I used is the following:
PROGRAMConfigFileLoadVAR
  sFileName     : CAA.FILENAME;
  FileOpen     : File.Open;
  FileClose    : File.Close;
  FileRead    : File.Read;
  iState      : UINT; Â
  hfile      : CAA.HANDLE;
  sReadLine    : STRING(1000);  END_VARVAR_INPUT
  xInit      : BOOL;END_VARVAR_OUTPUT
  xError      : BOOL;
  xDone      : BOOL;  END_VAR
  CASEiStateOF
   0:
    sFileName :='/configfile.cfg';
    xDone :=FALSE;
    xError :=FALSE;
    iState:=3;
 Â
  3: //Openthefilewithreadaccess.
    FileOpen(xExecute:=TRUE, sFileName:=sFileName, xExclusive:=FALSE, eFileMode:=File.MODE.MREAD);
    IFFileOpen.xDone=TRUETHEN
      hfile :=FileOpen.hFile;
      FileOpen(xExecute:=FALSE);
      iState :=4;
    ELSIFFileOpen.xError=TRUETHEN
      iState:=32767;
      FileOpen(xExecute:=FALSE);
    END_IF
 Â
  4: //Readthestringfromthefile.
    FileRead(xExecute:=TRUE, hFile:=hfile, pBuffer:=ADR(sReadLine), szBuffer:=SIZEOF(sReadLine));
    IFFileRead.xDone=TRUETHEN
      iState :=5;
      //Cutofftheunusedcharacters.
      //sReadLine :=MID(sReadLine, ANY_TO_INT(FileRead.szSize), 1);
      FileRead(xExecute:=FALSE);
    ELSIFFileRead.xError=TRUETHEN
      iState:=32767;
      FileRead(xExecute:=FALSE);
    END_IF
   Â
  5: //Closethatfile.
    FileClose(xExecute:=TRUE, hFile:=hfile);
    IFFileClose.xDone=TRUETHEN
      iState:=6;
      FileClose(xExecute:=FALSE);
    ELSIFFileClose.xError=TRUETHEN
      iState:=32767;
      FileClose(xExecute:=FALSE);
    END_IF
 Â
  6: //extractvalues
 Â
  [......]
At the step 4:
  4: //Readthestringfromthefile.
    FileRead(xExecute:=TRUE, hFile:=hfile, pBuffer:=ADR(sReadLine), szBuffer:=SIZEOF(sReadLine));
the function FileRead seems to return into sReadLine a string 266 bytes long and no other. All the remaining bytes are lost. The string sReadline is defined like
sReadLine    :STRING(1000); Â
I expect to read a total bytes of 1000.
Could someone help me to solve the reading issue?
Many thanks.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Nothing sticks out based off the information you have here. I see you have MID commented out which is only a string of 255 and you should look at using StrMidA in the StringUtils library.
What does the buffer equal after read is complete? Have you tried increasing sReadLine to STRING(2000) and see if you get more back?
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
The issue is around FileRead function: the function does not return a string longer than 255 bytes.
Actually, I'm trying to solve the problem using file position pointer reading byte per byte and generating substring less than 255 bytes long. I will post code as soon as I tested it... could be useful for others
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
The File.Read doesn't have a limit besides the size of the buffer. I have multiple applications that read well over 255 (closer to 1600) and you said even yours returns over 255 (266 to be exact) so not sure why you have come up with that assumption.
Any of the string functions built into the STANDARD library (LEN, MID, FIND, REPLACE, LEFT, RIGHT, ....) have a limit of 255 and that is one reason you should use the STRING UTIL library. Also from what has been said on the forums the STRING UTIL library is much quicker.
Hope you find an answer either way but reading byte for byte sounds slow.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Mine looks very similar to yours. I would still be interested in seeing the output of sReadLine to see if it is reading the whole file at state 5 before you hit state 6. The difference of mine is I am looking for Unicode characters (16bit) instead of ANSI characters(8bit) since the files i'm reading can be in many different languages.
To extract data from the buffer you would use something like (Not Tested but hopefully gives you the idea):
VARÂ Â sValueDelimiter:STRING:='=';Â Â sNewLineDelimiter:STRING:='$r$n';Â Â nBufferLength:DINT;Â Â nValueLocation:INT;Â Â nNewLineStart:INT;Â Â ExtractedValue:STRING;END_VAR//Find the length of buffer (Replaces LEN)Â Â nBufferLength:=StrLenA(pstData:=ADR(sReadLine));//Locate the equals sign to separate the data from the label (Replaces FIND)Â Â nValueLocation:=StrFindA(pst1:=ADR(sReadLine),pst2:=(sValueDelimiter),uiSearchStart:=1);Â Â //Locate end of line to know how long the data field is (Replaces FIND) (If you have [CONFIG FILE] written in the file you will need to cycle past this first before going to StrMidA)Â Â nNewLineStart:=StrFindA(pst1:=ADR(sReadLine),pst2:=(sNewLineDelimiter),uiSearchStart:=1);Â Â //Extract the data from the buffer and place it in variable ExtractedValue (Replaces MID/LEFT/RIGHT)Â Â StrMidA(pwst:=ADR(sReadLine),uiInputBufferSize:=(SIZEOF(sReadLine),iLength:=(nNewLineStart-nValueLocation),iPosition:=nValueLocation,pwstResult:=Â Â ADR(ExtractedValue),uiResultBufferSize:=SIZEOF(ExtractedValue)));Â Â //Delete extracted data from the buffer (Replaces Delete) (Not needed but I do this to create a loop out of the first parts)Â Â StrDeleteA(pwd:=ADR(sReadLine),iLength:=nNewLineStart+1,iPosition:=1);
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
I like your solution! It's quite similar to mine previous. Where can I found the library you used for this application? I don't found into the library repository.
Thanks
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
I find mine in "Library Manager->Add Library->Advanced->Intern->Utils" and choose StringUtils. Or once you are on the advanced screen just search for StringUtils.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hi, I am having a similar issue. I need to get readings from a temp sensor and make a string by opening and reading a file. it seems you already got the solution for a similar issue. Could you may be share the code you made please?. That would be very helpful.
Thanks
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
i have same issue with string(8000000) when i using string utility it not extract all file.
in side txt file there is 67000 lines but after extracting using string utility i just get 3700 lines
is there any limits in string util lib.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hi,
I'm trying to read strings from file.
The file is organized in this way:
The total length of the file is about 600 bytes.
The file is written by part of the same application in CODESYS. The writing process goes right.
The issue happens when the reading routine starts.
The code I used is the following:
At the step 4:
the function FileRead seems to return into sReadLine a string 266 bytes long and no other. All the remaining bytes are lost. The string sReadline is defined like
I expect to read a total bytes of 1000.
Could someone help me to solve the reading issue?
Many thanks.
Nothing sticks out based off the information you have here. I see you have MID commented out which is only a string of 255 and you should look at using StrMidA in the StringUtils library.
What does the buffer equal after read is complete? Have you tried increasing sReadLine to STRING(2000) and see if you get more back?
The issue is around FileRead function: the function does not return a string longer than 255 bytes.
Actually, I'm trying to solve the problem using file position pointer reading byte per byte and generating substring less than 255 bytes long. I will post code as soon as I tested it... could be useful for others
I think you are going the wrong direction.
The File.Read doesn't have a limit besides the size of the buffer. I have multiple applications that read well over 255 (closer to 1600) and you said even yours returns over 255 (266 to be exact) so not sure why you have come up with that assumption.
Any of the string functions built into the STANDARD library (LEN, MID, FIND, REPLACE, LEFT, RIGHT, ....) have a limit of 255 and that is one reason you should use the STRING UTIL library. Also from what has been said on the forums the STRING UTIL library is much quicker.
Hope you find an answer either way but reading byte for byte sounds slow.
At this point, I think you are right.
Could you post some piece of code to better understand what you are saying me?
Mine looks very similar to yours. I would still be interested in seeing the output of sReadLine to see if it is reading the whole file at state 5 before you hit state 6. The difference of mine is I am looking for Unicode characters (16bit) instead of ANSI characters(8bit) since the files i'm reading can be in many different languages.
To extract data from the buffer you would use something like (Not Tested but hopefully gives you the idea):
I like your solution! It's quite similar to mine previous. Where can I found the library you used for this application? I don't found into the library repository.
Thanks
I find mine in "Library Manager->Add Library->Advanced->Intern->Utils" and choose StringUtils. Or once you are on the advanced screen just search for StringUtils.
IT PERFECTLY WORKS!
Thank you!
Hi, I am having a similar issue. I need to get readings from a temp sensor and make a string by opening and reading a file. it seems you already got the solution for a similar issue. Could you may be share the code you made please?. That would be very helpful.
Thanks
i have same issue with string(8000000) when i using string utility it not extract all file.
in side txt file there is 67000 lines but after extracting using string utility i just get 3700 lines
is there any limits in string util lib.