Bilder från flygkvällar, gamla träffar m.m.

[Danne J]

Ingen tycks ha tagit tag och återställt alla bilder som försvunnit i samband med flytten till nya hemvisten där det funnits med något av åäö i mappnamnet.
Satte mig därför ner och började kolla upp alla tomma mappar och det är rätt mycket tid som man måste lägga ner.
Frågan är om någon verkligen är intresserad?
Jag har förutom sånt som jag själv fotat även en hel del som funnits på numera avlidna SMHF som man lagligen troligen måste fråga upprättsinnehavaren för att återskapa och hitta dem lär bli omöjligt.
Meningen var ju ursprungligen att de skulle komma intresserade till fromma varför jag anser att om bilderna flyttats till en annan Internetserver är nyttan större än intrånget. Om det nu ens är något intrång?
Men som sagt, är det värt insatsen? Min uppkoppling är snarare av typ smalband än bredband varför det kommer ta ett antal kvällar.
/Danne

[Danne J]

Är i princip klar fram till 2003.

[Danne J]

2005 klar

[Danne J]

2004 också

[Danne J]

2006 var jobbig men nu OK

[Danne J]

Gud vad jag hatar denna bildserver som inte klarar åäö!
Har fått byta namn på hundratals bilder. Hur kul är det inte när bilderna i en mapp t.ex. heter Växjö Höstheliträff.......
Hur som helst är det mesta av 2007 också fixat (hoppas jag)

[Danne J]

2009, 2010 och 2011 i princip färdigredigerade.
Har lite kvar att göra med 2008. 250 bilder är alldeles för mycket för att korrigera en och en för hand. Får bli lite REXX-programmering när jag får tid.

[Danne J]

Tror faktiskt det mesta ska vara OK nu.

[JanneJ]

Det finns ju sånadär datorprogram som döper om en hel hög filer i ett svep.
Jag använder det här i fotomapparna hemma.
http://www.bulkrenameutility.co.uk/Download.php
Finns en stand alone som inte behöver installeras att hämta där.

[Danne J]

Tack Janne, jag skickade dem en fråga om de fixar mina krav, nämligen att hälla alla foton oavsett vad de tagits med i en stor tratt och att de sen kommer ut sorterade i den ordning de togs. Alltså inte sorterade per kamera utan i strikt tidsordning vilket förstås förutsätter att klockan är korrekt inställd. Men det är en annan femma.
Ska bli intressant att se vad de svarar. Annars får jag väl behålla mitt lilla REXX-program vars kod egentligen består av 6 rader.
1. fråga om man vill fortsätta från föregående sekvensnr? eller ange själv?
2. öppna infilen (den med alla namnen på fotona som de ser ut i respektive kamera)
3. läs en post i taget
4. byt namn
5. logga namnbytet
6. när infilen tagit slut, notera nästa startnummer

Först i DOS dir*.jpg>>bilder.txt /b /od
Sen korrigera bilder.txt om det är nåt som hamnat i fel ordning av någon anledning.
Slutligen själva REXX'eriet som ser ut som följer: (vill man stoppa skriver man bara nånting annat än ok på frågan om man vill fortsätta)

say "Skriv 1 om du vill att programmet hämtar startnumret från NEWPICTURE.TXT";
say "eller 2 om du vill ange själv";
say;
pull svar;

if svar='1' then do;
newpicture=0;
do until lines(NEWPICTURE.TXT)=0;
Datapost1=linein(NEWPICTURE.TXT);
parse value Datapost1 with 1 notused 22 year 26 newpicture 30 notused2 53 sistaoriginal 61 notused3;
end;
say "Last original was "sistaoriginal;
say "New sequence number will be "year""newpicture".JPG";
say "All files will keep their file extention.";
end; else; say;

if svar='2' then do;
say "Skriv $rtalet (4 siffor)";
pull year;
say "Ange startnumret (4 siffror)";
pull newpicture;
say "Startnummer blir "year""newpicture;
end; else; say;

say ;
say "Skriv OK om du vill fortsätta.";
say;
pull svar2;
if svar2='OK' then do;

testblankrecord=' ';
dirindicator=' ';
do until lines(bilder.txt)=0;
datapost2=linein(bilder.txt);
parse value datapost2 with picturename '.' type;
'@rename 'picturename'.* 'year''newpicture'.*';
if picturename=' ' then do;
say "Det finns en blank post i BILDER.TXT Skip it, take next";
iterate;
end;
say picturename"."type "byter namn till" year""newpicture"."type;
call lineout renewlog.txt, picturename 'byter namn till 'year''newpicture'. Date 'date()', 'time();
newpicture=newpicture+1;
if newpicture='10000' then do;
call lineout newpicture.txt, 'Next start number is 'year'0000 and last original was 'picturename'. Run date 'date()', 'time();
say;
say "Hoppsan. Max antal bilder per år är 9999";
say "Programmet avslutar.";
exit;
end;
newpicture=right(newpicture,4,0);
end;
call lineout newpicture.txt, 'Next start number is 'year''newpicture' and last original was 'picturename'. Run date 'date()', 'time();
say;
say "Nästa startnummer blir " newpicture;
say;

end;
else;
say "OK not received. Program cancelled";
say;

[JanneJ]

Tjena,
Grävde inte allt för djupt i den där koden (som jag tror att till och med jag begrep... ), men baserat på din beskrivning tror jag att det ska gå med BRU (Eller något annat liknande som kan läsa ut EXIF)
Nu lattjade jag bara lite med bilder där den enda metadata som kom från kameran var datum/tid då bilden togs.
Jag sorterade efter det, markerade en drös filer och la till lite ändringar.
En trevlig feature är att man får en preview på det nya namnet i grönt.
La en bild på det här:
http://imageshack.com/a/img594/2544/oax2.jpg

[Danne J]

Hmmmm... låter lovande. Ska testa när jag får tid.

[Danne J]

Hittade lite mer bilder från annu dazumal, dvs. i början av detta sekel.
http://busybeemfk.se/phpgraphy/?dir=2001%2F20010712_Malmslatt
http://busybeemfk.se/phpgraphy/?dir=2002%2F20020303_Zeppelinmuseum
http://busybeemfk.se/phpgraphy/?dir=2003%2F20030831_NessFly-in_Wanamingo
http://busybeemfk.se/phpgraphy/?dir=2004%2F20040611_Royal_Air_Force_Museum_Hendon

[Danne J]

Har petat in lite till som fattades. Denna gång för 2010.