Текстовый файл из файла ресурсов

Question

У меня есть текстовый файл, который я хочу, чтобы включить в файл ресурсов в моем проекте

Сейчас я включил текстовый файл с помощью «Добавить пользовательский ресурс».

Когда я запускаю проект, я считываю файл из файла ресурсов и сохраняю его в файле tempory.

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 

Затем я могу использовать данные из текста файл без проблем.

Это кажется немного неудобным, хотя сначала прочитать данные, а затем сохранить в файл, а затем прочитать данные из файла

Есть ли способ inlcude текстового файла в файле ресурсы, и читать его непосредственно в строковой переменной, когда мне это нужно?

Answer 1

Я нашел решение.

Чтение текстового файла из файла ресурсов возвращает массив байтов.

Чтобы преобразовать этот массив байтов в строку я использую:

strData = StrConv(myArray, vbUnicode) 

Я не уверен, если это лучший способ, но он работает :)