VB6 - 如何将 URL 内容存储在字符串中并保存为文件（例如 .txt）

Posted 2023-02-16

【中文标题】VB6 - 如何将 URL 内容存储在字符串中并保存为文件（例如 .txt）

【英文标题】：VB6 - How to store URL contents in string and save as file(ex .txt)

【发布时间】：2016-08-08 15:18:05

【问题描述】：

Option Explicit

Public Sub save_url_contents_as_text()  
    Dim MyUrl As String  
    Dim MyFile As Object    'store the text file here  
    Dim tempstring As String

    MyUrl = "www.AnythingIWantToPutHere"

    'I want your help here. Something Like a function  
    tempstring = geturltext(MyUrl)

    'I want to save the URL text contents here  
    MyFile = tempstring

End Sub

【问题讨论】：

大家好，由于我目前工作的需要，我从事 VB 编程已经快一年了，我总是在 *** 中找到我正在寻找的最佳答案。很高兴得到您的帮助。

您能否指定此代码 sn-p 的预期用途？您正在努力实现什么您面临的确切问题是什么。

Download URL Contents Directly into String (VB6) WITHOUT Saving to Disk的可能重复

如果 [提示] 不清楚您在问什么，很难说它是重复的

如果您查看我标记为可能重复的链接，它会显示如何将网页的内容转换为字符串。你应该可以从那里工作。如果你不能，那么你的问题对于 SO 来说太宽泛了。这里没有人会为你写“geturltext”。但是，如果您尝试编写它但它不起作用，我们将帮助您修复它。

【参考方案1】：

直接取自here。根据需要更改 URL 和文件名。此调用将 URL 的内容写入磁盘文件。

此示例说明如何使用 URLDownloadToFile API function 将文件从 URL 下载到 Visual Basic 6 中的文件中。

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
  ' Download the file.
  URLDownloadToFile 0, _
    "http://www.vb-helper.com/vbhelper_425_64.gif", _
    "C:\vbhelper_425_64.gif", 0, 0

End Sub

【讨论】：

嘿，谢谢马克！我解决了我的复杂问题。感谢您的提示。