mystrings.pas

自动打印dos产生的文本文件 自动打印dos产生的文本文件

{******************************************************************************}
{                                                                              }
{   MyStrings.pas - string operations library                                  }
{                                                                              }
{   Copyright (C) 2004 Przemyslaw Czerkas <[e-mail]>     }
{                 2008 Mieczyslaw Nalewaj <[e-mail]>      }
{   See LGPL.TXT for copyright and license details.                            }
{                                                                              }
{******************************************************************************}

{******************************************************************************}
{                                                                              }
{   This program is free software; you can redistribute it and/or modify       }
{   it under the terms of the GNU Lesser General Public License as published   }
{   by the Free Software Foundation; either version 2.1 of the License, or     }
{   (at your option) any later version.                                        }
{                                                                              }
{   This program is distributed in the hope that it will be useful,            }
{   but WITHOUT ANY WARRANTY; without even the implied warranty of             }
{   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the              }
{   GNU Lesser General Public License for more details.                        }
{                                                                              }
{   You should have received a copy of the GNU Lesser General Public License   }
{   along with this program; if not, write to the Free Software                }
{   Foundation, Inc., 59 Temple Place, Suite 330, Boston,                      }
{   MA  02111-1307  USA                                                        }
{                                                                              }
{******************************************************************************}

unit MyStrings;

interface


function PosLeft(AString: string;
                 ASubString: string): integer;

function PosRight(AString: string;
                  ASubString: string): integer;

function SplitLeft(AString: string;
                   ASubString: string;
                   var LeftPart: string;
                   var RightPart: string): integer;

function SplitRight(AString: string;
                    ASubString: string;
                    var LeftPart: string;
                    var RightPart: string): integer;

function IsRootPath(AString: string): boolean;

procedure CutFirstSlash(var AString: string);

procedure CutLastSlash(var AString: string);

function ExchangeSubstring(AString: string;
                           AFrom: string;
                           ATo: string): string;

implementation

function PosLeft(AString: string;
                 ASubString: string): integer;
begin
  result:=pos(ASubString,AString);
end;

function PosRight(AString: string;
                  ASubString: string): integer;
var
  TempPos: integer;
begin
  result:=0;
  repeat
    TempPos:=PosLeft(AString,ASubString);
    if TempPos>0 then
    begin
      delete(AString,1,TempPos);
      inc(result,TempPos);
    end;
  until TempPos=0;
end;

function SplitLeft(AString: string;
                   ASubString: string;
                   var LeftPart: string;
                   var RightPart: string): integer;
var
  TempPos: integer;                 
begin
  result:=PosLeft(AString,ASubString);
  if result=0 then
  begin
    LeftPart:=AString;
    RightPart:='';
  end
  else
  begin
    LeftPart:=copy(AString,1,result-1);
    TempPos:=result+length(ASubString);
    RightPart:=copy(AString,TempPos,length(AString)-TempPos+1);
  end;
end;

function SplitRight(AString: string;
                    ASubString: string;
                    var LeftPart: string;
                    var RightPart: string): integer;
var
  TempPos: integer;                  
begin
  result:=PosRight(AString,ASubString);
  if result=0 then
  begin
    LeftPart:='';
    RightPart:=AString;
  end
  else
  begin
    LeftPart:=copy(AString,1,result-1);
    TempPos:=result+length(ASubString);
    RightPart:=copy(AString,TempPos,length(AString)-TempPos+1);
  end;
end;

function IsRootPath(AString: string): boolean;
begin
  result:=false;
  if (length(AString)>0) and (AString[1] in ['\','/']) then
    result:=true;
end;

procedure CutFirstSlash(var AString: string);
begin
  if (length(AString)>0) and (AString[1] in ['\','/']) then
    delete(AString,1,1);
end;

procedure CutLastSlash(var AString: string);
begin
  if (length(AString)>0) and (AString[length(AString)] in ['\','/']) then
    delete(AString,length(AString),1);
end;


function ExchangeSubstring(AString: string;
                           AFrom: string;
                           ATo: string): string;
var
  TempPos: integer;
begin
  result:='';
  while length(AString)>0 do
  begin
    TempPos:=pos(AFrom,AString);
    if TempPos>0 then
    begin
      result:=concat(result,copy(AString,1,TempPos-1),ATo);
      AString:=copy(AString,TempPos+length(AFrom),length(AString));
    end
    else
    begin
      result:=concat(result,AString);
      AString:='';
    end;
  end;
end;

end.