title: VBScript - skip and read lines in text file
body: <p>Would you be able to help me figure out/make pretty my code? 
  I have a file I need to edit and save some of it to next file. Saving is not an issue here, only editing.
  I need to skip 2 lines and read next 30 or so to memory. Until now I've been using:</p>
  
  <pre><code>Const ForReading = 1
  Const ForWriting = 2
  
  set WshShell = WScript.CreateObject("WScript.Shell")
  strMyDocs = WshShell.SpecialFolders("MyDocuments")
  strDesktop = WshShell.SpecialFolders("Desktop")
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(strDesktop &amp; "\folder\blabla.vbs", ForReading)
  
  strText = objFile.SkipLine &amp; objFile.SkipLine
  strText = objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; 
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; 
  vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp;_
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; 
  vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; 
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp;_
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; 
  vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; 
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp;_
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; 
  vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; 
  objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine &amp; vbNewLine &amp; objFile.ReadLine
  objFile.Close
  ...
  </code></pre>
  
  <p>As you can see it looks pretty lame, it does the job though.
  I was able to find something to replace skilLine part:</p>
  
  <pre><code>For a = 1 to 30
  If ((a =&lt; 2) And (ObjFile.AtEndOfStream &lt;&gt; True)) Then
  objFile.SkipLine
  Do Until a = 30
  objFile.ReadLine
  Loop
  Else    
  objFile.Close
  End If
  </code></pre>
  
  <p>but cannot find a way to read next 28lines. I tried a lot and it always reads 28 lines but starting with line 31, not 3.</p>
  
  <p>Could you help me?</p>
  
  <p>Thanks</p>