我有一个文本文件中的电影列表。我想用某种方式自动获取列表中每项的 IMDB 电影超链接。这可能吗?
答案1
虽然这不是电影 IMDB 的直接链接,但在大多数情况下它可能会起作用。只需使用 Google 的我感觉我是幸运的功能。当然,您需要对电影标题进行 URL 编码,但类似下面的代码应该可以工作:
http://www.google.com/search?q=imdb+%22Movie+Title%22&btnI=I%27m+Feeling+Lucky
Movie+Title
当然是用每个 URL 编码的标题替换。
这是一个可用于执行 URL 编码的 Excel VBA 宏(由摩托比特 (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
答案2
查看提供的一些示例迪安·克拉特沃西。