将VBA词典写入文本文件

Question

我将twitter搜索api结果存储为Excel VBA词典。我想将字典写入一个文本文件。我怎么做？

Answer 1

考虑：

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:\TestFolder\dict.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 

Answer 2

假设在这个字典中的键和值的字符串，你可以这样调用一个函数，然后使用FileSystemObject的或其他的方法来创建并写入一个文本文件（例如here） 。

你的字典对象只是传递给函数在FSO.WriteFile一行：

Dim fso as Object 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dim oFile as Object 
Set oFile = FSO.CreateTextFile("C:\desktop\textfile.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