Релиб / Программирование / Delphi / Translate DELPHI to Basic Help me plz!!!!!!!! / Latest Posts

Релиб / Программирование / Delphi / Translate DELPHI to Basic Help me plz!!!!!!!! / Latest PostsInstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSun, 23 Nov 2008 00:29:44 GMT20RE: Translate DELPHI to Basic Help me plz!!!!!!!!http://www.relib.com/forums/Topic715091-8-1.aspxStringReplace(S, S1, S2) - замена в строке S строки S1 на строку S2. Похоже в VB на Mid, но эта функция не "раздвигает строку".<BR><BR>>while pos ('\fs',text) &gt;0 do<BR>>begin<BR>>application.processmessages;<BR>>start := pos ('\fs',text);<BR>>Delete(text,start,5);<BR>>end;<BR><BR>Цикл Do While с параметром Mid,<BR>application.processmessages=DoEvents,<BR>Delete заменяем на Mid(text, start, 5)<BR><BR>Ну а остальное думаю ясно (файлы там и остальное).Mon, 09 Jul 2001 12:30:00 GMTzansTranslate DELPHI to Basic Help me plz!!!!!!!!http://www.relib.com/forums/Topic715091-8-1.aspxfunction rtf2sgml (text : string) : string;<BR>{Funktion for att konvertera en RTF-rad till SGML-text.}<BR>var<BR>temptext : string;<BR>start : integer;<BR>begin<BR>text := stringreplaceall (text,'&amp;','##amp;');<BR>text := stringreplaceall (text,'##amp','&amp;amp');<BR>text := stringreplaceall (text,'\'+chr(39)+'e5','&amp;aring;');<BR>text := stringreplaceall (text,'\'+chr(39)+'c5','&amp;Aring;');<BR>text := stringreplaceall (text,'\'+chr(39)+'e4','&amp;auml;');<BR>text := stringreplaceall (text,'\'+chr(39)+'c4','&amp;Auml;');<BR>text := stringreplaceall (text,'\'+chr(39)+'f6','&amp;ouml;');<BR>text := stringreplaceall (text,'\'+chr(39)+'d6','&amp;Ouml;');<BR>text := stringreplaceall (text,'\'+chr(39)+'e9','&amp;eacute;');<BR>text := stringreplaceall (text,'\'+chr(39)+'c9','&amp;Eacute;');<BR>text := stringreplaceall (text,'\'+chr(39)+'e1','&amp;aacute;');<BR>text := stringreplaceall (text,'\'+chr(39)+'c1','&amp;Aacute;');<BR>text := stringreplaceall (text,'\'+chr(39)+'e0','&amp;agrave;');<BR>text := stringreplaceall (text,'\'+chr(39)+'c0','&amp;Agrave;');<BR>text := stringreplaceall (text,'\'+chr(39)+'f2','&amp;ograve;');<BR>text := stringreplaceall (text,'\'+chr(39)+'d2','&amp;Ograve;');<BR>text := stringreplaceall (text,'\'+chr(39)+'fc','&amp;uuml;');<BR>text := stringreplaceall (text,'\'+chr(39)+'dc','&amp;Uuml;');<BR>text := stringreplaceall (text,'\'+chr(39)+'a3','&amp;#163;');<BR>text := stringreplaceall (text,'\}','#]#');<BR>text := stringreplaceall (text,'\{','#[#');<BR>text := stringreplaceall (text,'{\rtf1\ansi\deff0\deftab720','');{Skall alltid tas bort}<BR>text := stringreplaceall (text,'{\fonttbl',''); {Skall alltid tas bort}<BR>text := stringreplaceall (text,'{\f0\fnil MS Sans Serif;}','');{Skall alltid tas bort}<BR>text := stringreplaceall (text,'{\f1\fnil\fcharset2 Symbol;}','');{Skall alltid tas bort}<BR>text := stringreplaceall (text,'{\f2\fswiss\fprq2 System;}}','');{Skall alltid tas bort}<BR>text := stringreplaceall (text,'{\colortbl\red0\green0\blue0;}','');{Skall alltid tas<BR>bort}<BR>{I version 2.01 av Delphi finns inte \cf0 med i RTF-rutan. Tog darfor bort<BR>det efter \fs16 och la istallet en egen tvatt av \cf0.}<BR>//temptext := hamtastreng (text,'{\rtf1','\deflang');<BR>//text := stringreplace (text,temptext,''); {Hamta och radera allt fran start till<BR>deflang}<BR>text := stringreplaceall (text,'\cf0','');<BR>temptext := hamtastreng (text,'\deflang','\pard');{Plocka fran deflang till pard for att<BR>fa }<BR>text := stringreplace (text,temptext,'');{oavsett vilken lang det ar. Norska o svenska ar<BR>olika}<BR>{Har skall vi plocka bort fs och flera olika siffror beroende pa vilka alternativ vi<BR>godkanner.}<BR>//text := stringreplaceall (text,'\fs16','');{8 punkter}<BR>//text := stringreplaceall (text,'\fs20','');{10 punkter}<BR>{Nu stadar vi istallet bort alla tvasiffriga fontsize.}<BR>while pos ('\fs',text) &gt;0 do<BR>begin<BR>application.processmessages;<BR>start := pos ('\fs',text);<BR>Delete(text,start,5);<BR>end;<BR>text := stringreplaceall (text,'\pard\plain\f0 ','&lt;P&gt;');<BR>text := stringreplaceall (text,'\par \plain\f0\b\ul ','&lt;/P&gt;&lt;MELLIS&gt;');<BR>text := stringreplaceall (text,'\plain\f0\b\ul ','&lt;/P&gt;&lt;MELLIS&gt;');<BR>text := stringreplaceall (text,'\plain\f0','&lt;/MELLIS&gt;');<BR>text := stringreplaceall (text,'\par }','&lt;/P&gt;');<BR>text := stringreplaceall (text,'\par ','&lt;/P&gt;&lt;P&gt;');<BR>text := stringreplaceall (text,'#]#','}');<BR>text := stringreplaceall (text,'#[#','{');<BR>text := stringreplaceall (text,'\\','\');<BR>result := text;<BR>end;<BR><BR>//This is cut directly from the middle of a fairly long save routine that calls the above<BR>function.<BR>//I know I could use streams instead of going through a separate file but I have not had<BR>the time to change this<BR><BR>utfilnamn :=<BR>mditted.exepath+stringreplace(stringreplace(extractfilename(pathname),'.TTT',''),'.ttt','')<BR>+ 'ut.RTF';<BR>brodtext.lines.savetofile (utfilnamn);<BR>temptext := '';<BR>assignfile(tempF,utfilnamn);<BR>reset (tempF);<BR>try<BR>while not eof(tempF) do<BR>begin<BR>readln (tempF,temptext2);<BR>temptext2 := stringreplaceall (temptext2,'\'+chr(39)+'b6','');<BR>temptext2 := rtf2sgml (temptext2);<BR>if temptext2 &lt;&gt;'' then temptext := temptext+temptext2;<BR>application.processmessages;<BR>end;<BR>finally<BR>closefile (tempF);<BR>end;<BR>deletefile (utfilnamn);<BR>temptext := stringreplaceall (temptext,'&lt;/MELLIS&gt; ','&lt;/MELLIS&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;/P&gt; ','&lt;/P&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;/P&gt;'+chr(0),'&lt;/P&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;/MELLIS&gt;&lt;/P&gt;','&lt;/MELLIS&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;P&gt;&lt;/P&gt;','');<BR>temptext := stringreplaceall<BR>(temptext,'&lt;/P&gt;&lt;P&gt;&lt;/MELLIS&gt;','&lt;/MELLIS&gt;&lt;P&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;/MELLIS&gt;','&lt;#MELLIS&gt;&lt;P&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;#MELLIS&gt;','&lt;/MELLIS&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;P&gt;&lt;P&gt;','&lt;P&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;P&gt; ','&lt;P&gt;');<BR>temptext := stringreplaceall (temptext,'&lt;P&gt;-','&lt;P&gt;_');<BR>temptext := stringreplaceall (temptext,'&lt;P&gt;_','&lt;CITAT&gt;_');<BR>while pos('&lt;CITAT&gt;_',temptext)&gt;0 do<BR>begin<BR>application.processmessages;<BR>temptext2 := hamtastreng (temptext,'&lt;CITAT&gt;_','&lt;/P&gt;');<BR>temptext := stringreplace (temptext,temptext2+'&lt;/P&gt;',temptext2+'&lt;/CITAT&gt;');<BR>temptext := stringreplace (temptext,'&lt;CITAT&gt;_','&lt;CITAT&gt;-');<BR>end;<BR>writeln (F,'&lt;BRODTEXT&gt;'+temptext+'&lt;/BRODTEXT&gt;');Wed, 04 Jul 2001 10:08:00 GMTmesser