使用IMacros提取Facebook评论

我正试图从某些facebook帖子中提取评论，并将这些信息放到一个表格中

我可以通过以下方式复制评论人及其评论：

标记POS=1 TYPE=DIV ATTR=CLASS:UFICommentContent EXTRACT=TXT

但我不确定如何单独获取这些信息，以便将其放在如下表格中： 评论者姓名|评论|评论者的FACEBOOK URL

---

有什么建议吗？

如果您计划将imacro存储在Excel中，请使用VBA运行imacro（此功能仅适用于企业版、VBA集成版，即）

您需要做的就是创建一个循环，其中包含imacro脚本和行迭代更新。 像这样：

row=1'选择从哪一行开始
做正确的事
ret=imac.iimPlay（“代码：TAG”&vbCrLf&_
“标记”&vbCrLf和“标记”）
“决定何时停止
如果ret不小于0，则
工作表（“Ur wksht”）。单元格（第1行）。值=imac.iimGetExtract（1）
工作表（“Ur wksht”）。单元格（第2行）。值=imac.iimGetExtract（2）
工作表（“Ur wksht”）。单元格（第1行）。值=imac.iimGetExtract（3）
其他的
MsgBox（“全部完成！”）
出口接头
如果结束
'迭代行
行=行+1
环

---

希望这能有所帮助。

变量的作用是什么！你看起来怎么样？写下这个字符串。使用JS并提取整个字符串。

row=1 'choose which row to start from
Do While True
    ret = imac.iimPlay("CODE:TAG <line to extract commenter name>" & vbCrLf & _
    "TAG <line to extract comment>" & vbCrLf & "TAG <line to extract URL>")
    'Determine when to stop
    If not ret < 0 then
        Worksheets("Ur wksht").cells(row, 1).value = imac.iimGetExtract(1)
        Worksheets("Ur wksht").cells(row, 2).value = imac.iimGetExtract(2)
        Worksheets("Ur wksht").cells(row, 1).value = imac.iimGetExtract(3)
    Else
        MsgBox("All Done!")
        Exit Sub
    End If
    'iterate row
    row = row + 1
Loop