Напишіть словник VBA в текстовий файл - vba, excel-vba, excel

У мене є результати пошуку API Twitter, що зберігаються як словник Excel VBA. Я хотів би написати словник до текстового файлу. Як це зробити?

Відповіді:

Розглянемо:

Sub Lexicon()
Dim d As Dictionary
Set d = New Dictionary
d.Add "james", 1
d.Add "william", 2
d.Add "ravenswood", 3

Close #1
Open "C:TestFolderdict.txt" For Output As #1
For Each i In d.Keys
Print #1, i & d.Item(i)
Next i
Close #1
Set d = Nothing
End Sub

Припускаючи ключі і значення в цьому словнику є рядками, ви можете викликати таку функцію, а потім використовувати FileSystemObject або інший метод для створення та запису текстового файлу (приклад тут)

Просто передайте об'єкт словника функції FSO.WriteFile, наприклад:

Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile as Object
Set oFile = FSO.CreateTextFile("C:desktoptextfile.txt") "Modify as needed
oFile.Write PrintDictionary(twitter_dictionary)           "modify as needed
set fso = Nothing: set oFile = Nothing

Ось функція:

Function PrintDictionary(dict as Object) As String

Dim k as Variant
Dim i as Long
Dim fullText as String

For each k in dict.Keys()
fullText = fullText & k & vbTab & dict(k) & vbCrLF
Next

PrintDictionary = fullText

End Function