Decoding the EQ2 INI file : EverQuest 2 Premium Discussions

Option Explicit
Class DebugClass

   Private objLogFileFSO, objLogFile, DebugLevel, i

   Private Sub Class_Initialize()
      Dim sDir, cont
      Dim sLogFile, sLogFileVersion

      sLogFileVersion = 1

      DebugLevel = 0 ' Default
      cont = true

      sDir = "c:\dl\logtest"

      Set objLogFileFSO = CreateObject("Scripting.FileSystemObject")

      do while cont
         sLogFile = sDir & cStr(sLogFileVersion) & ".log"
         If objLogFileFSO.FileExists(sLogFile) Then
            sLogFileVersion = sLogFileVersion + 1
         else
            cont = false
         end if
      loop
      Set objLogFile = objLogFileFSO.OpenTextFile(sLogFile, 8, True)


      call Print ("", 0)
      call Print ("", 0)
      call Print ("*************************************", 0)
      call Print ("*************************************", 0)
      call Print ("*************************************", 0)
      call Print("LOG File Opened: " & sLogFile, 0)
   End Sub

   Private Sub Class_Terminate()
      ' Close Log File
      objLogFile.Close
   End Sub

   Public Sub SetDebugLevel(lvl)
      DebugLevel = CInt(lvl)
   End Sub
   
   Public Sub PrintDebugLevel()
      call Print("Debug Level is set to: " & DebugLevel, 0)
   End Sub

   Public Sub Print(str1, lvl)
      if (DebugLevel >= lvl) then
         'objLogFile.WriteLine(Date & " " & Time & ": " & str1)
         objLogFile.WriteLine(CStr(str1))
      end if
   End Sub

End Class

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To save binary data.
  BinaryStream.Type = adTypeBinary
 
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.Write 1
  'BinaryStream.Write ByteArray
 
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

Function ReadBinaryFile(FileName)
  Const adTypeBinary = 1
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeBinary
 
  'Open the stream
  BinaryStream.Open
 
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile FileName
 
  'Open the stream And get binary data from the object
  ReadBinaryFile = BinaryStream.Read
End Function

Function ReadTextFile(FileName, CharSet)
  Const adTypeText = 2
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeText
 
  'Specify charset For the source text (unicode) data.
  If Len(CharSet) > 0 Then
    BinaryStream.CharSet = CharSet
  End If
 
  'Open the stream
  BinaryStream.Open
 
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile FileName
 
  'Open the stream And get binary data from the object
  ReadTextFile = BinaryStream.ReadText
End Function

Function SaveTextData(FileName, Text, CharSet)
  Const adTypeText = 2
  Const adSaveCreateOverWrite = 2
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To save text/string data.
  BinaryStream.Type = adTypeText
 
  'Specify charset For the source text (unicode) data.
  If Len(CharSet) > 0 Then
    BinaryStream.CharSet = CharSet
  End If
 
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.WriteText Text
 
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function


Dim objDebug, bin, txt, txt2

Set objDebug = New DebugClass
objDebug.Print "1", 0
'Call SaveBinaryData("c:\dl\savebin.txt", "12345")
bin = ReadBinaryFile("c:\dl\logtest1.log")
txt = ReadTextFile("c:\dl\logtest1.log", "")
objDebug.Print "2", 0
objDebug.Print TypeName(bin), 0
objDebug.Print TypeName(txt), 0
SaveTextData "c:\dl\output1.txt", txt, ""
'txt2=CStr(txt)
'objDebug.Print txt2, 0
'objDebug.Print CStr(bin(1)), 0
objDebug.Print "3", 0
Set objDebug = NOTHING

Function ReadINI(FileName, Position, NumBytes)
   
   Dim fso, ts, buffer, rBuf, byteArr()
   ReDim byteArr(NumBytes)
   
   Const ForReading = 1
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   Set ts = fso.OpenTextFile(FileName,ForReading)
   ts.Skip(Position-1)
   buffer = ts.Read(NumBytes)
   
'   ReadINI = StringToBin(buffer)
   ReadINI = buffer
End Function

Dim data
data = ReadINI("testlog", 1, 5)
For i = 1 to Len(data)
   WScript.Echo Mid(data,i,1) & " = " & Asc(Mid(data,i,1))
Next