首页 > 解决方案 > Google Photos API - 有没有办法提取评论

问题描述

我正在寻找一种提取谷歌照片评论的方法。有没有通过API的官方方式?有什么选择吗?

谢谢Z

标签: node.jsgoogle-apigoogle-photosgoogle-photos-api

解决方案


下面的方法将从 Google 相册中提取评论(和其他有用信息)。这适用于运行 Excel for Mac 16.55(365 订阅)的 M1 MacAir

  1. 访问http://takeout.google.com
  2. 仅选择 google Photos 部分中的相册
  3. 将所有生成的 .json 文件和 Excel 工作簿放在位于 /Users/[yourUserName]/Library/Group Containers/UBF8T346G9.Office/Docs 的文件夹中,您将 [yourUserName] 替换为您的用户帐户名称
  4. 在 Excel 工作簿中运行下面的 Excel VBA 宏

子提取GooglePhotoInfo()

Dim s As String, path As String, ext As String

将 tempWk 调暗为工作簿,将 tempR 调暗为范围

暗淡 sh 作为工作表,r 作为范围,t 作为字符串

分机=“json”

设置 sh = ThisWorkbook.ActiveSheet

设置 r = sh.Range("A1")

r.Offset(0, 0) = "文件名"

r.Offset(0, 1) = "描述"

r.Offset(0, 2) = "图像浏览量"

r.Offset(0, 3) = "拍照"

r.Offset(0, 4) = "url"

设置 r = sh.Range("A2")

s = Dir(ThisWorkbook.path & "/*." & ext)

而 s <> ""

path = ThisWorkbook.path & "/" & s

Workbooks.OpenText path, , , xlDelimited

Set tempWk = ActiveWorkbook

Set tempR = tempWk.ActiveSheet.Range("A1")

t = tempR.Offset(1, 0): r.Offset(0, 0) = Mid(t, 13, Len(t) - 14) 'title

t = tempR.Offset(2, 0): r.Offset(0, 1) = Mid(t, 19, Len(t) - 20) 'description

t = tempR.Offset(3, 0): r.Offset(0, 2) = Mid(t, 18, Len(t) - 19) 'imageViews

t = tempR.Offset(10, 0): r.Offset(0, 3) = Mid(t, 19, Len(t) - 19) 'photoTaken

t = tempR.Offset(26, 0): r.Offset(0, 4) = Mid(t, 11, Len(t) - 12) 'url

Set r = r.Offset(1, 0)

tempWk.Close False

s = Dir()

文德

*注意:上面的代码格式化很奇怪,因为我无法让代码格式化功能与直接从 Mac 版本的 VBA 编辑器复制的代码一起使用。


推荐阅读