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.
Aplicações catalogar Coleções - Excel & Imdb
Re: Aplicações catalogar Coleções - Excel & Imdb
Walk on the Sun! Dream on the Dark Side of the Moon!
- 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
Caro Lorde X, disponível para qq ajuda que precises! é um gosto.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.
Rui Santos - 54 Anos | 22 Anos DVDMania
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
Re: Aplicações catalogar Coleções - Excel & Imdb
Muito obrigado RuI! Irei mesmo recorrer à tua disponibilidade! Logo que tenha a lista atualizada, conversaremos! AbraçoRui Santos wrote: ↑November 9th, 2018, 3:56 pmCaro Lorde X, disponível para qq ajuda que precises! é um gosto.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.
Walk on the Sun! Dream on the Dark Side of the Moon!
- 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
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.
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
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
Re: Aplicações catalogar Coleções - Excel & Imdb
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...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
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")
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
«One is starved for Technicolor up there.» - Conductor 71 in A Matter of Life and Death
Câmara Subjectiva
- 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
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.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":
Mas sim, confesso que por vezes me entretenho com programação em VBA.
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
DVD/BR | Jogos | Life is Short, Play More | FB Collectors HV-PT
Re: Aplicações catalogar Coleções - Excel & Imdb
Parece um óptimo lugar para aprender.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/
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. 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
«One is starved for Technicolor up there.» - Conductor 71 in A Matter of Life and Death
Câmara Subjectiva