Советы по Delphi



Conversions12 - часть 2


/p>

    //Нижеприведенный кусок кода вырезан из довольно большой программы, вызывающей вышеприведенную функцию.
//Я знаю что мог бы использовать потоки вместо использования отдельного файла, но у меня не было времени для реализации этого

utfilnamn := mditted.exepath+stringreplace(stringreplace(extractfilename(pathname),'.TTT',''),'.ttt','') + 'ut.RTF'; brodtext.lines.savetofile (utfilnamn); temptext := ''; assignfile(tempF,utfilnamn); reset (tempF); try while not eof(tempF) do begin readln (tempF,temptext2); temptext2 := stringreplaceall (temptext2,'\'+chr(39)+'b6',''); temptext2 := rtf2sgml (temptext2); if temptext2 <>'' then temptext := temptext+temptext2; application.processmessages; end; finally closefile (tempF); end; deletefile (utfilnamn); temptext := stringreplaceall (temptext,'</MELLIS> ','</MELLIS>'); temptext := stringreplaceall (temptext,'</P> ','</P>'); temptext := stringreplaceall (temptext,'</P>'+chr(0),'</P>'); temptext := stringreplaceall (temptext,'</MELLIS></P>','</MELLIS>'); temptext := stringreplaceall (temptext,'<P></P>',''); temptext := stringreplaceall (temptext,'</P><P></MELLIS>','</MELLIS><P>'); temptext := stringreplaceall (temptext,'</MELLIS>','<#MELLIS><P>'); temptext := stringreplaceall (temptext,'<#MELLIS>','</MELLIS>'); temptext := stringreplaceall (temptext,'<P><P>','<P>'); temptext := stringreplaceall (temptext,'<P> ','<P>'); temptext := stringreplaceall (temptext,'<P>-','<P>_'); temptext := stringreplaceall (temptext,'<P>_','<CITAT>_'); while pos('<CITAT>_',temptext)>0 do begin application.processmessages; temptext2 := hamtastreng (temptext,'<CITAT>_','</P>'); temptext := stringreplace (temptext,temptext2+'</P>',temptext2+'</CITAT>'); temptext := stringreplace (temptext,'<CITAT>_','<CITAT>-'); end; writeln (F,'<BRODTEXT>'+temptext+'</BRODTEXT>');
[000235]




Содержание  Назад  Вперед