home *** CD-ROM | disk | FTP | other *** search
/ PC Open 100 / PC Open 100 CD 1.bin / CD1 / INTERNET / WEBDESIGN / Tsw WebCoder / tswwebcoder5en.exe / {app} / scripts / scriptcode / TSW Convert Scripts / brconvert.tss next >
Encoding:
Text File  |  2003-09-22  |  1.1 KB  |  50 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=Convert BR tags to XHTML standards
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=0
  6. }
  7. program BRConverter;
  8.  
  9. function StringReplace(S, OldPattern, NewPattern: string; CaseSensitive: boolean): string;
  10. var
  11.   SearchStr, Patt, NewStr: string;
  12.   Offset: Integer;
  13. begin
  14.   If not CaseSensitive then
  15.    begin
  16.     SearchStr := AnsiUppercase(S);
  17.     Patt := AnsiUppercase(OldPattern);
  18.    end
  19.    else
  20.     begin
  21.      SearchStr := S;
  22.      Patt := OldPattern;
  23.     end; 
  24.  
  25.   NewStr := S;
  26.   Result := '';
  27.   while SearchStr <> '' do
  28.   begin
  29.     Offset := Pos(Patt, SearchStr);
  30.     if Offset = 0 then
  31.     begin
  32.       Result := Result + NewStr;
  33.       Break;
  34.     end;
  35.     Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
  36.     NewStr := Copy(NewStr, Offset + Length(OldPattern), 2147483647);
  37.     SearchStr := Copy(SearchStr, Offset + Length(Patt), 2147483647);
  38.   end;
  39. end;
  40.  
  41. //function ReplaceLineBreaks(
  42.  
  43.  
  44. var
  45.  Code: string;
  46. begin
  47.  Code := Editor.Lines.Text;
  48.  Editor.Lines.Text := StringReplace(Code, '<br>','<br />', false);
  49. end;
  50.