1

У меня есть список фильмов в текстовом файле. Я хотел бы каким-то образом автоматически получить гиперссылки на IMDB для каждого элемента в моем списке. Это возможно?

2 ответа2

3

Хотя это не прямая ссылка на IMDB для фильма, в большинстве случаев это, вероятно, сработает. Просто используйте функцию Google « Я чувствую себя счастливчиком» . Конечно, вам нужно будет URL кодировать название фильма, но что-то вроде этого должно работать:

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

Замена Movie+Title на каждый заголовок, закодированный URL, конечно.

Вот макрос Excel VBA, который вы можете использовать для кодирования URL (любезно предоставлено 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
1

Проверьте некоторые образцы, предоставленные Дином Клатворти.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .