Question

我有一个文本文件，我想将其包含在项目的资源文件中

现在我通过“添加自定义资源”包含了文本文件。

当我运行项目时，我从资源文件中读出文件并将其保存到一个临时文件中。

LoadDataIntoFile "TXT", App.Path & "\temp.txt"

这使用以下功能

Public Sub LoadDataIntoFile(DataName As String, FileName As String)
  Dim myArray() As Byte
  Dim myFile As Long
  If Dir(FileName) = "" Then
    myArray = LoadResData(DataName, "CUSTOM")
    myFile = FreeFile
    Open FileName For Binary Access Write As #myFile
    Put #myFile, , myArray
    Close #myFile
  End If
End Sub

接下来，当我需要我在temporay文件中读取的文本文件数据时

'read complete text file
intFile = FreeFile
Open strFile For Input As #intFile
  strData = Input(LOF(intFile), #intFile)
Close #intFile

然后我可以毫无问题地使用文本文件中的数据。

首先读取数据，然后保存到文件，然后从文件中读取数据似乎有点尴尬

有没有办法在资源文件中包含文本文件，并在需要时将其直接读入字符串变量？

Answer 1

我找到了解决方案。

从资源文件中读取文本文件会返回一个字节数组。

要将此字节数组转换为我使用的字符串：

strData = StrConv(myArray, vbUnicode)

我不确定这是否是最好的方式，但确实有效：）

资源文件中的文本文件

1 个答案: