自动获取文本文件中的电影列表的 IMDB 数据库电影链接吗?

自动获取文本文件中的电影列表的 IMDB 数据库电影链接吗?

我有一个文本文件中的电影列表。我想用某种方式自动获取列表中每项的 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

查看提供的一些示例迪安·克拉特沃西

相关内容