Chami.com Tips

Home > Tips > Programming > Search and replace...

300+ book mentions, 95% thumbs up, millions of downloads. Get HTML-Kit Tools for $39 (limited time offer)

Web Hosting Web Hosting UK Dedicated Servers Domain Names

Categories

Internet
HTML
JavaScript
» Programming
Windows

Keywords

Delphi
Functions

Search and replace...

Almost every text editor / word processor has the ability to search for a given string and replace it with another. If you're planning on adding similar functionality to your application, here's an example of where all of it can start:

function SearchAndReplace(
  sSrc, sLookFor, sReplaceWith
    : string )
      : string;
var
  nPos,
  nLenLookFor : integer;
begin
  nPos        := Pos( sLookFor, sSrc );
  nLenLookFor := Length( sLookFor );
  while(nPos > 0)do
  begin
    Delete( sSrc, nPos, nLenLookFor );
    Insert( sReplaceWith, sSrc, nPos );
    nPos := Pos( sLookFor, sSrc );
  end;
  Result := sSrc;
end;

For example, let's say you have a string -- 'this,is,a,test' -- and you want to replace the commas with spaces. Here's how you'd call SearchAndReplace():

SearchAndReplace( 'this,is,a,test', ',', ' ' )

SearchAndReplace() will now return the string 'this is a test'.

Applicable Keywords : Delphi, Delphi 1.x, Delphi 2.x, Functions

Previous Tip : Shuffle strings...
Random Tip : How to change Netscape preferences from your program (and access multiple email accounts)
Next Tip : How to install fonts