obter links de filmes do banco de dados IMDB automaticamente para lista de filmes no arquivo de texto?

Question

Eu tenho uma lista de filmes em um arquivo de texto. Eu gostaria de alguma maneira de obter automaticamente os hiperlinks do filme IMDB para cada item da minha lista. Isso é possível?

    

Answer 1

Embora este não seja um link direto para o IMDB do filme, provavelmente funcionará na maioria dos casos. Basta usar o recurso Estou com sorte do Google. É claro que você precisará codificar o título do filme em URL, mas algo assim deve funcionar:

http://www.google.com/search?q=imdb+%22Movie+Title%22&btnI=I%27m+Feeling+Lucky

Substituindo Movie+Title por cada título codificado por URL, é claro.

Aqui está uma macro Excel VBA que você pode usar para fazer a codificação de URL (cortesia de Motobit) :

Function URLEncode(ByVal Data, CharSet)
  'Create a ByteArray object
  Dim ByteArray: Set ByteArray = CreateObject("ScriptUtils.ByteArray")
  If Len(CharSet)>0 Then ByteArray.CharSet = CharSet

  ByteArray.String = Data

  If ByteArray.Length > 0 Then
    Dim I, C, Out

    For I = 1 To ByteArray.Length
      'For each byte of the encoded data
      C = ByteArray(I)
      If C = 32 Then 'convert space to +
        Out = Out + "+"
      ElseIf (C < 48 Or c>126) Or (c>56 And c<=64) Then
        Out = Out + "%" + Hex(C)
      Else
        Out = Out + Chr(c)
      End If
    Next
    URLEncode = Out
  End If
End Function

    

Answer 2

Confira algumas das amostras fornecidas por Dean Clatworthy .