title: How to convert a string string of key-value pairs into an array
body: <p>I have below sample data. I want to convert this string into an array</p>
  
  <pre><code>device_name="Text Data" d_id=7454579598 status="Active" Key=947-4378-43248274
  </code></pre>
  
  <p>I tried below:</p>
  
  <pre><code>Const ForReading = 1 
  
  Set objFSO = CreateObject("Scripting.FileSystemObject") 
  Set objTextFile = objFSO.OpenTextFile _ 
      ("d:\vbfile.txt", ForReading) 
  
  Do Until objTextFile.AtEndOfStream 
      strNextLine = objTextFile.Readline 
      arrServiceList = Split(strNextLine , " ") 
  
      For i = 0 to Ubound(arrServiceList) 
          Wscript.Echo  arrServiceList(i) 
      Next 
  Loop 
  </code></pre>
  
  <p>it generates below </p>
  
  <pre><code>device_name="Text
  Data"
  d_id=7454579598
  status="Active"
  Key=947-4378-43248274
  </code></pre>
  
  <p>Expected output</p>
  
  <pre><code>device_name="Text Data"    
  d_id=7454579598
  status="Active"
  Key=947-4378-43248274
  </code></pre>