有難い。変数名は自己流にアレンジ Dim fso As Object, inFile as Object, fn, contents\nSet fso = CreateObject("Scripting.FileSystemObject")\nSet inFile = fso.OpenTextFile(fn, 1)\ncontents = Split(inFile.ReadAll, vbNewLine)\nDim line\nFor Each line In contens\nDebug.Print line\nNext line
Convert this Array: a = ["item 1", "item 2", "item 3", "item 4"] ...to a Hash: { "item 1" => "item 2", "item 3" => "item 4" } i.e. elements at even indexes are keys and odd ones are values.