У меня есть список фильмов в текстовом файле. Я хотел бы каким-то образом автоматически получить гиперссылки на IMDB для каждого элемента в моем списке. Это возможно?
1
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
Проверьте некоторые образцы, предоставленные Дином Клатворти.