Advertisement
Guest User

MIniFile

a guest
Aug 26th, 2016
200
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. METHOD MIniFile
  2. VAR_INPUT
  3. END_VAR
  4.  
  5. //Ini-File durchlaufen:
  6. CASE fbINI_PARSER_FILE.RESULT OF
  7. 1: //Section gefunden
  8.  
  9. sSection := OSCAT_BASIC.TRIM(sIPFkey);
  10. 2: //Key gefunden
  11. refIInifileProc.MProcessKey(sSection := sSection, sKey := OSCAT_BASIC.TRIM(sIPFkey), sValue := OSCAT_BASIC.TRIM(sIPFvalue));
  12. 5: //Aktuelle Abfrage läuft noch – Baustein weiter zyklisch aufrufen !
  13. 10: //Nichts gefunden – Daten-Ende erreicht
  14. //Datei schließen:
  15. structFSD.MODE := 5;
  16. bIPFrun := 0;
  17. xInifileDone := TRUE;
  18. 11: //Keinen Key gefunden – Ende der Section erreicht
  19. sSection := '';
  20. END_CASE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement