2. August 2007 15:21
LogFile.CREATE('C:\log_'+CONVERTSTR(FORMAT(TODAY),' ','_')+'.txt');
IF (NOT LogFile.OPEN('C:\log_'+CONVERTSTR(FORMAT(TODAY),' ','_')+'.txt')) THEN
ERROR(Text000,'C:\log_'+CONVERTSTR(FORMAT(TODAY),' ','_')+'.txt');
IM_WriteLog('Import gestartet durch '+ USERID +' . . .');
>> IM_WriteLog(Message : Text[250])
LogFile.WRITE(FORMAT(TODAY)+' '+FORMAT(TIME)+' - '+Message+'');
2. August 2007 15:41
2. August 2007 15:41
2. August 2007 15:42
Textvar[1] := 13;
Textvar[2] := 10;
FSFile.TEXTMODE(TRUE);
FSFile.WRITEMODE(TRUE);
FSFile.QUERYREPLACE(FALSE);
FSFile.CREATE('c:\SP_Block.txt');
FSFile.CREATEOUTSTREAM(OutStream);
OutStream.WRITETEXT(<Text1>);
OutStream.WRITETEXT(<Text2>);
OutStream.WRITETEXT(<Text3>);
OutStream.WRITETEXT(STRSUBSTNO('%1%2',CR,LF)); // Hier erfolgt der Umbruch
FSFile.CLOSE;
2. August 2007 16:03