Renamer: PascalScript: before or after dash

LawOfNonContradiction · 2006-06-15 08:13

For filenames containing one dash I want to keep the longer portion ignoring the extension and make lowercase.

If ReallyLong-short.avi then ReallyLong.avi
If this-thatotherthing.avi then thatotherthing.avi

From your example I created this kludge:

var
  BeforeDash, AfterDash: string;
  Marker: Integer;
begin
  Marker := Pos('-', FileName);
  if (Marker > 0) then
    begin
    BeforeDash := Copy(FileName, 1, Marker);
    AfterDash := Copy(FileName, Marker+1, Length(FileName));
    if (Length(AfterDash) > Length(BeforeDash)) then
      begin
          FileName := LowerCase(AfterDash);
      end;
    if (Length(BeforeDash) > Length(AfterDash)) then
      begin
          FileName := LowerCase(BeforeDash);
      end;
    end;
end.

Its not working as I expected. It seems to be doing the opposite. The TryToCompile button was helpful. I left out a few begins and thens the first time through.

LawOfNonContradiction · 2006-06-15 08:21

hmm.. if BeforeDash is longer this retains BeforeDash AND the dash itself. I don't want the dash.

var
  BeforeDash, AfterDash: string;
  Marker: Integer;
begin
  Marker := Pos('-', FileName);
  if (Marker > 0) then
    begin
    BeforeDash := Copy(FileName, 1, Marker);
    AfterDash := Copy(FileName, Marker+1, Length(FileName));
    if (Length(AfterDash) > Length(BeforeDash)) then
      begin
          FileName := LowerCase(AfterDash) + LowerCase(ExtractFileExt(FileName));
      end;
    if (Length(BeforeDash) > Length(AfterDash)) then
      begin
          FileName := LowerCase(BeforeDash) + LowerCase(ExtractFileExt(FileName));
      end;
    end;
end.

sure I can use a remove rule, but for the purpose of this exercise I'd like to do it within PascalScript

den4b · 2006-06-15 10:32

Hi Law of NonContradiction,

Yes, you missed few little things.. For example, AfterDash will always contain the extension, and BeforeDash string will always contain the dash at the end. Anyway, here is the code that will do it the way you want it

var
  BeforeDash, AfterDash, Extension, BaseName: string;
  Marker: Integer;
begin
  BaseName := ExtractBaseName(FileName);
  Extension := ExtractFileExt(FileName);
  Marker := Pos('-', BaseName);
  if Marker > 0 then
    begin
    BeforeDash := Copy(BaseName, 1, Marker-1);
    AfterDash := Copy(BaseName, Marker+1, Length(BaseName));
    if Length(AfterDash) > Length(BeforeDash) then
      BaseName := LowerCase(AfterDash);
    if Length(BeforeDash) > Length(AfterDash) then
      BaseName := LowerCase(BeforeDash);
    FileName := BaseName + Extension;
    end;
end.

den4b · 2006-06-15 10:38

By the way, it's nice to see people playing with PascalScript rule

It can get very interesting, functionalities and possibilities of this rule - are unlimited!!

dloneranger · 2006-06-15 22:24

You're not wrong

Last week a friend was here and during his stay he moaned about some files he had downloaded that were split into parts
I fired up delphi and talked him through what to do, trying to explain the reasons and getting him to understand it

Honest to god it was like christmas - seeing the look of delight on his face after writing his first program and having it work was wonderful

Qkid · 2006-06-15 23:12

Yeah Pascalscript is very good

If you need a program to manage mp3/audio files then try this:

The Godfather : http://users.otenet.gr/~jtcliper/tgf/

It has Pascalscript support and i've used it to write a script for outputing txt files etc with file info.

My TGF mirror is at: http://audiooctopus.planetmungo.co.uk/tgf/

Finally this site helped me a lot to revise the Pascal syntax, http://www.delphibasics.co.uk

dloneranger · 2006-06-15 23:33

If you can i'd recommend finding a personal edition of delphi to play with - pascalscript is very nice but a full version is nicer

I guess i'm lucky here, I get the top notch version to mess about with - I guess I should use it for database work, but there's always a few hours a day when I can squeeze in the things I want to do

den4b · 2006-06-16 14:45

Are you that lucky?.. Did you get BDS 2006 ?

I'm still on Delphi 7, I like it, and my computer likes it as well

LawOfNonContradiction · 2006-07-17 13:12

ohhhh "ExtractBaseName"... that helps a bunch. thanks

den4b Forum

#1 2006-06-15 08:13

Renamer: PascalScript: before or after dash

#2 2006-06-15 08:21

Re: Renamer: PascalScript: before or after dash

#3 2006-06-15 10:32

Re: Renamer: PascalScript: before or after dash

#4 2006-06-15 10:38

Re: Renamer: PascalScript: before or after dash

#5 2006-06-15 22:24

Re: Renamer: PascalScript: before or after dash

#6 2006-06-15 23:12

Re: Renamer: PascalScript: before or after dash

#7 2006-06-15 23:33

Re: Renamer: PascalScript: before or after dash

#8 2006-06-16 14:45

Re: Renamer: PascalScript: before or after dash

#9 2006-07-17 13:12

Re: Renamer: PascalScript: before or after dash

Board footer