Question

How to extract substring between single quotation marks in Pascal

Answer 1

program ExtractSubstringBetweenSingleQuotationMarks;

function ExtractSubstring(const str: string): string;
var
    startPos, endPos: Integer;
begin
    startPos := Pos('''', str);
    if startPos > 0 then
    begin
        endPos := Pos('''', str, startPos + 1);
        if endPos > 0 then
        begin
            ExtractSubstring := Copy(str, startPos + 1, endPos - startPos - 1);
            Exit;
        end;
    end;
    ExtractSubstring := '';
end;

var
    str, subString: string;

begin
    str := 'Pascal is ''imperative and procedural'' programming language'; 
  
    subString := ExtractSubstring(str);
  
    Writeln('''', subString, '''');
end.



(*
run:
  
'imperative and procedural'
  
*)
 

 

70+ SQL courses for beginners and professionals