Aplicações catalogar Coleções - Excel & Imdb

Todos os assuntos relativos ao home cinema que não se enquadrem nos restantes fóruns.
Lorde X
DVD Maníaco
DVD Maníaco
Posts: 2064
Joined: September 19th, 2003, 1:27 pm
Location: Moonbase Alpha

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Lorde X »

Este tópico passou-me desapercebido pois na data da sua criação estive em férias fora do país.

E depois de o ver fiquei motivado a actualizar a lista excel em que tenho apontada a minha colecção. E também a fazer um upgrade da mesma com os códigos que aqui foram mencionados.

Não é que seja uma lista assim tão completa, mas para mim sempre foram muito importantes, o género, o ano de produção e as cotações (minha e do IMDB). Como também tenho assinalado o tipo de formato em que possuo o filme (DVD ou Bluray)

Tenho indexados esses dados a uns gráficos e gostava de ver a forma como a minha coleção se encontrava distribuída, por géneros, anos, etc

Por outro lado, é um dado para mim curioso e interessante, a forma como as minhas cotações contrastam com as do IMDB e como estas se vão distribuindo pelos vários géneros cinematográficos.

Mal possa, virei aqui dar indicações mais precisas sobre os restantes elementos que constam na minha lista, bem como os gráficos que a eles estão indexados.
Image

Walk on the Sun! Dream on the Dark Side of the Moon!
User avatar
Rui Santos
Site Admin
Posts: 6161
Joined: June 4th, 2001, 11:42 pm
Location: Portugal - Lisboa / MAC
Contact:

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Rui Santos »

Lorde X wrote: November 9th, 2018, 11:32 am Este tópico passou-me desapercebido pois na data da sua criação estive em férias fora do país.

E depois de o ver fiquei motivado a actualizar a lista excel em que tenho apontada a minha colecção. E também a fazer um upgrade da mesma com os códigos que aqui foram mencionados.

Não é que seja uma lista assim tão completa, mas para mim sempre foram muito importantes, o género, o ano de produção e as cotações (minha e do IMDB). Como também tenho assinalado o tipo de formato em que possuo o filme (DVD ou Bluray)

Tenho indexados esses dados a uns gráficos e gostava de ver a forma como a minha coleção se encontrava distribuída, por géneros, anos, etc

Por outro lado, é um dado para mim curioso e interessante, a forma como as minhas cotações contrastam com as do IMDB e como estas se vão distribuindo pelos vários géneros cinematográficos.

Mal possa, virei aqui dar indicações mais precisas sobre os restantes elementos que constam na minha lista, bem como os gráficos que a eles estão indexados.
Caro Lorde X, disponível para qq ajuda que precises! é um gosto.
Rui Santos - 54 Anos | 22 Anos DVDMania
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
Lorde X
DVD Maníaco
DVD Maníaco
Posts: 2064
Joined: September 19th, 2003, 1:27 pm
Location: Moonbase Alpha

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Lorde X »

Rui Santos wrote: November 9th, 2018, 3:56 pm
Lorde X wrote: November 9th, 2018, 11:32 am Este tópico passou-me desapercebido pois na data da sua criação estive em férias fora do país.

E depois de o ver fiquei motivado a actualizar a lista excel em que tenho apontada a minha colecção. E também a fazer um upgrade da mesma com os códigos que aqui foram mencionados.

Não é que seja uma lista assim tão completa, mas para mim sempre foram muito importantes, o género, o ano de produção e as cotações (minha e do IMDB). Como também tenho assinalado o tipo de formato em que possuo o filme (DVD ou Bluray)

Tenho indexados esses dados a uns gráficos e gostava de ver a forma como a minha coleção se encontrava distribuída, por géneros, anos, etc

Por outro lado, é um dado para mim curioso e interessante, a forma como as minhas cotações contrastam com as do IMDB e como estas se vão distribuindo pelos vários géneros cinematográficos.

Mal possa, virei aqui dar indicações mais precisas sobre os restantes elementos que constam na minha lista, bem como os gráficos que a eles estão indexados.
Caro Lorde X, disponível para qq ajuda que precises! é um gosto.
Muito obrigado RuI! Irei mesmo recorrer à tua disponibilidade! :-) Logo que tenha a lista atualizada, conversaremos! Abraço
Image

Walk on the Sun! Dream on the Dark Side of the Moon!
User avatar
Rui Santos
Site Admin
Posts: 6161
Joined: June 4th, 2001, 11:42 pm
Location: Portugal - Lisboa / MAC
Contact:

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Rui Santos »

Só para terem uma ideia do que ele vai buscar automaticamente e em segundos.

IMDB Id Formula tt3183660
Title Fantastic Beasts and Where to Find Them
Year 2016
Rated PG-13
Released 42692
Runtime 133 min
Genre Adventure, Family, Fantasy
Director David Yates
Writer J.K. Rowling
Actors Eddie Redmayne, Sam Redford, Scott Goldman, Tim Bentinck
Plot The adventures of writer Newt Scamander in New York's secret community of witches and wizards seventy years before Harry Potter reads his book in school.
Language English, Khmer
Country UK, USA
Awards Won 1 Oscar. Another 14 wins & 51 nominations.
Poster https://m.media-amazon.com/images/M/MV5 ... _SX300.jpg
Ratings
Metascore 66
imdbRating 7.4
imdbVotes 317343
imdbID tt3183660
Type movie
DVD 42822
BoxOffice 234018657
Production Warner Bros. Pictures
Website http://www.fantasticbeasts.com/
Response TRUE

Penso que trago todos os campos que posso, apenas o "plot" trago a versão curta.
Rui Santos - 54 Anos | 22 Anos DVDMania
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
Samwise
DVD Maníaco
DVD Maníaco
Posts: 6267
Joined: February 19th, 2009, 9:07 pm
Contact:

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Samwise »

Rui Santos wrote: July 23rd, 2018, 11:43 pm O meu excel que preencho manualmente tem:
Formato, Titulo, Titulo Original, IMDB, Ano, Data Compra, Loja, Preço, Tipo de Edição, Numero Discos, 3D, 4K, Tipo Caixa, Extras Legendados, Outros

Para que depois possa ser lido, preciso de um campo com o id do imdb: tt0435761
https://www.imdb.com/title/tt0435761
A partir do link retiram a parte que indiquei.
Se tiverem o link como era o meu caso como url, o que fiz foi uma pequena função que pesquisa a parte tt do link

Code: Select all

Function GetURLIMDB(Cell As Range, Optional default_value As Variant)
'Lists the Hyperlink Address for a Given Cell
'If cell does not contain a hyperlink, return default_value
    If (Cell.Range("a1").Hyperlinks.Count <> 1) Then
        GetURLIMDB = default_value
    Else
        GetURLIMDB = Cell.Range("a1").Hyperlinks(1).Address & "#" & Cell.Range("A1").Hyperlinks(1).SubAddress
    End If
    
    If IsNumeric(InStr(1, GetURLIMDB, "title/", vbTextCompare)) Then
       GetURLIMDB = Mid(GetURLIMDB, InStr(1, GetURLIMDB, "title/", vbTextCompare) + 6, 9)
    End If
    
    
End Function
Rui, estava aqui a olhar para o teu modelo de código. A propósito desta primeira parte, fizeste isto "só" por diversão certo? :-))) Para praticares um pouco de VBA...

Consegues sacar a mesma coisa com uma simples função de Excel (sem necessidade de ir ao VB). Para versões do Excel em português, e assumindo que o link para determinado filme está na célula "A2":

Code: Select all


=SE.ERRO( COMPACTAR( SEG.TEXTO( A2;PROCURAR( "tt";A2;4);20));"Hyperlink não disponível")

Mais simples ainda, utilizando a tua formulação para o tamanho da estrutura "ttxxxxxxx", e que dispensa o "compactar":

Code: Select all


=SE.ERRO( SEG.TEXTO( A2;PROCURAR( "tt";A2;4);9);"Sem hyperlink.")

«The most interesting characters are the ones who lie to themselves.» - Paul Schrader, acerca de Travis Bickle.

«One is starved for Technicolor up there.» - Conductor 71 in A Matter of Life and Death

Câmara Subjectiva
User avatar
Rui Santos
Site Admin
Posts: 6161
Joined: June 4th, 2001, 11:42 pm
Location: Portugal - Lisboa / MAC
Contact:

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Rui Santos »

Samwise wrote: February 18th, 2019, 7:22 pm
Rui, estava aqui a olhar para o teu modelo de código. A propósito desta primeira parte, fizeste isto "só" por diversão certo? :-))) Para praticares um pouco de VBA...

Consegues sacar a mesma coisa com uma simples função de Excel (sem necessidade de ir ao VB). Para versões do Excel em português, e assumindo que o link para determinado filme está na célula "A2":
Sim, às vezes opto por reutilização de código :) Mas a tua função é substancialmentente melhor porque funciona sempre. esta parte da "minha" é demasiado complexa.... são dias.
Mas sim, confesso que por vezes me entretenho com programação em VBA. :mrgreen:
Amanhã faço a versão em inglês e publico por cá.

Deixo-te como dica, este excelente site para iniciados e não só, sobre excel VBA.
https://excelmacromastery.com/vba-articles/
Rui Santos - 54 Anos | 22 Anos DVDMania
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
Samwise
DVD Maníaco
DVD Maníaco
Posts: 6267
Joined: February 19th, 2009, 9:07 pm
Contact:

Re: Aplicações catalogar Coleções - Excel & Imdb

Post by Samwise »

Rui Santos wrote: February 18th, 2019, 11:12 pm Deixo-te como dica, este excelente site para iniciados e não só, sobre excel VBA.
https://excelmacromastery.com/vba-articles/
Parece um óptimo lugar para aprender. yes-)

Neste momento nem que quisesse conseguia escrever código em VBA. O que eu sabia já se desvaneceu da memória ou deu lugar a outros tipos de informação. :roll: Ainda consigo "ler" mais ou menos o que fazem alguns procedimentos pouco complexos (porque as bases da programação são as mesmas independentemente da linguagem), mas para escrever teria de começar de raíz e praticar bastante.

Vim aqui espreitar o código porque gostaria de reaproveitrar um procedimento (ou conjunto de procedimentos) que em tempos desenvolvi em VBA, para uso profissional, e que tem a ver com a passagem de um número literal ao seu equivalente por extenso. (ex: aceitar como argumento um inteiro, 1236, e devolver uma string, "mil duzentos e trinta e seis"). Se na altura escrevi o código para utilização no escritório (útil para o pessoal da contabilidade que enviava os cheques aos fornecedores), agora quero utilizar essa ideia para um projecto mais simples, e mais pessoal. Mas acho que vou abrir um tópico novo sobre programação (generalista) noutro local do fórum, para não "poluir" este com Off-topic.
«The most interesting characters are the ones who lie to themselves.» - Paul Schrader, acerca de Travis Bickle.

«One is starved for Technicolor up there.» - Conductor 71 in A Matter of Life and Death

Câmara Subjectiva
Post Reply