Скачать Поиск и замена строк в файле

12.07.1994
Скачать файл (6,78 Кб)

{ LIBRARY               SYSTEM UTILITIES                                }
{ MODULE                FIND_AND_REPLACE                                }
{ FILE NAME             FINDREP.PAS                                     }
{ PURPOSE               Replaces any occurence of wanted string         }
{ VERSION               1.30                                            }
{ DATE                  28-Oct-93                                       }
{ COMPANY               Freelance Software Engineer                     }
{ ADDRESS               Isakowskogo str, 4-2-30                         }
{                       Moscow, 123181                                  }
{                       USSR                                            }
{                       Tel. 007 (095) 944-6304                         }
{ COPYRIGHT NOTICE      Copyright (C) 1987-1993, Dmitry Stefankov       }
{ RESTRICTED RIGHTS     AVAILABLE ONLY FOR FREE DISTRIBUTION,           }
{                       NOT FOR COMMERCIAL PURPOSE                      }
{ OPERATING SYSTEM      MS/PC-DOS Version 3.30 or higher                }
{ COMPILER              Turbo Pascal Version 6.0                        }
{                       (Borland International Inc.) or compatible      }
{ ASSEMBLY LANGUAGE     Microsoft MASM 5.10 or compatible               }
{ ARGUMENTS                  -  input  stream                   }
{                           -  output stream                   }
{                             -  input string                    }
{                            -  output string                   }
{                             -  ask user for replace match      }
{ RETURN                None                                            }
{ REQUIRES              None                                            }
{ DESCRIPTION           1.Read input stream                             }
{                       2.Find match pattern                            }
{                       3.If found then replace to another string       }
{                       4.Write output stream                           }
{-----------------------------------------------------------------------}