word vba - 读取INI文件中的所有值并将其放入数组

好的，所以我有一堆Word模板，它们在Document_New上读取注册表中的某些值并将它们插入到文档的书签中。我迄今为止所做的这种方式是首先从INI文件中读取，该INI文件规定模板中的书签被称为什么。这是一行一行地完成的，它又被放入一个数组中。然后我浏览这个数组并逐个读取注册表。word vba - 读取INI文件中的所有值并将其放入数组

现在，是否有可能读取整个INI节并将其直接放入数组中？像这个？：

Dim strIniKey as String 
strIniKey = INI key 

If bookmark exists strIniKey Then 
    pick up registry string from strIniKey 
    Insert into bookmark 
End if

而就在这个循环通过每个INI价值？

这是我要做的事现在：

Dim objShell 
Dim strShell 
Dim strDataArea 
Dim Verdier() As String 
Dim regPath 
Dim regString 
Dim Felter 
Dim WScript 

' Klargjør stringverdier fra INI-fil 

regPath = ReadIni(File, "Registry", "Path") 
regString = ReadIni(File, "Registry", "String") 
regStrFornavn = ReadIni(File, strRegArea, "Fornavn") 
regStrEtternavn = ReadIni(File, strRegArea, "Etternavn") 
regStrInitialer = ReadIni(File, strRegArea, "Initialer") 
regStrBrevnavn = ReadIni(File, strRegArea, "Brevnavn") 
regStrStilling = ReadIni(File, strRegArea, "Stilling") 
regStrStilling_EN = ReadIni(File, strRegArea, "Stilling_EN") 
regStrAvdeling = ReadIni(File, strRegArea, "Avdeling") 
regStrAvdeling_EN = ReadIni(File, strRegArea, "Avdeling_EN") 
regStrEnhetoffnavn = ReadIni(File, strRegArea, "Enhetoffnavn") 
regStrEnhetoffnavn_EN = ReadIni(File, strRegArea, "Enhetoffnavn_EN") 
regStrVisitaddress1 = ReadIni(File, strRegArea, "Visitaddress1") 
regStrVisitpostnrsted = ReadIni(File, strRegArea, "Visitpostnrsted") 
regStrPostadresse1 = ReadIni(File, strRegArea, "Postadresse1") 
regStrPostadresse2 = ReadIni(File, strRegArea, "Postadresse2") 
regStrPostnrsted = ReadIni(File, strRegArea, "Postnrsted") 
regStrLeveringsadresseNr = ReadIni(File, strRegArea, "LeveringsadresseNr") 
regStrLeveringsadresseSted = ReadIni(File, strRegArea, "LeveringsadresseSted") 
regStrTelesentralbord = ReadIni(File, strRegArea, "Telesentrbord") 
regStrDirekteinnvalg = ReadIni(File, strRegArea, "Direkteinnvalg") 
regStrMobil = ReadIni(File, strRegArea, "Mobil") 
regStrTelefax = ReadIni(File, strRegArea, "Telefax") 
regStrWebadresse = ReadIni(File, strRegArea, "Webadresse") 
regStrSentrepostmottak = ReadIni(File, strRegArea, "Sentrepostmottak") 
regStrEpost = ReadIni(File, strRegArea, "Epost") 
regStrForetaksnr = ReadIni(File, strRegArea, "Foretaksnr") 

'Klargjør array av alle verdier fra INI-fil 
Felter = Array(regStrFornavn, regStrEtternavn, regStrBrevnavn, regStrInitialer, _ 
regStrStilling, regStrStilling_EN, regStrAvdeling, regStrAvdeling_EN, regStrEnhetoffnavn, _ 
regStrEnhetoffnavn_EN, regStrVisitaddress1, regStrVisitpostnrsted, regStrPostadresse1, _ 
regStrPostadresse2, regStrPostnrsted, regStrLeveringsadresseNr, regStrLeveringsadresseSted, _ 
regStrTelesentralbord, regStrDirekteinnvalg, regStrMobil, regStrTelefax, regStrWebadresse, _ 
regStrSentrepostmottak, regStrEpost, regStrForetaksnr)

这基本上创建一个数组，全从INI文件中的值。

代码继续获取数组的每个部分，并通过书签循环它，搜索匹配项，然后从注册表中插入相应的值。

Set objShell = CreateObject("Wscript.Shell") 

    For iTeller = 0 To UBound(Felter) 
    Dim sBookMarkName, sVerdi 
    Dim myRange As Range 

    On Error Resume Next 
    sBookMarkNametemp = "Bookmark" & Felter(iTeller) 

    sVerdi = "" 
    sVerdi = objShell.RegRead(regPath & "\" & Felter(iTeller)) 
    sBookMarkName = "" 
    sBookMarkName = ActiveDocument.Bookmarks(sBookMarkNametemp).Name 

    With ActiveDocument 
     If .Bookmarks.Exists(sBookMarkNametemp) Then 
     Set myRange = .Bookmarks(sBookMarkName).Range 
     myRange.Text = sVerdi 
     .Bookmarks.Add sBookMarkName, myRange 
     End If 
     End With 

    On Error GoTo 0 

    objShell = Nothing 
WScript = Nothing

每个书签被称为“书签”+来自INI的每一行的值。像“bookmarkFIRSTNAME”等

来源

2011-03-17 Kenny Bones

您可以只使用一个字典（从MS脚本库）。

Dim oDict as new scripting.dictionary 
Dim arrVals, x 

arrVals = Array("Path","String","Fornavn") 'etc etc 
for x=lbound(arrVals) to ubound(arrVals) 
    oDict.Add arrVals(x), ReadIni(File, strRegArea, arrVals(x)) 
next x

现在，你可以参考你的价值观为（例如）： oDict（“路径”）

不过，你所做的一切有从ini文件到词典移动：在两种情况下，您只需按名称引用值。尽管如此，它的代码更少... 我不确定首先将它们转移到数组的目的吗？你的代码是只返回数组的函数的一部分吗？

Tim

来源

2011-03-17 16:47:25

不，它可能写得不好，首先。基本上，我正在做的是将数据从注册表加载到模板中的预定义书签。 ini文件告诉代码注册表中每个键的名字。然后它将从注册表中收集的数据加载到数组中，并将每个数据提供给相同名称的相应书签。如果您有任何建议，请随时携带:) – 2011-03-17 19:49:06

如果您不需要存储ini /注册表查找结果，只需要在书签中插入即可，只需采用循环方法，并从ini> read从注册表>插入到循环的每个迭代中的书签。 – 2011-03-18 18:59:18

我真的不需要存储他们没有。我只需要查看INI文件中的值，查看书签并查看书签是否被称为“书签+ INI值”，然后使用与INI键中的值相同的值，并从注册表项，然后将其插入书签。 – 2011-03-28 05:22:16

word vba - 读取INI文件中的所有值并将其放入数组

回答

相关问题