[lindachan]

#post-id: 3576-17-05
#original-date: 11.05.2010 Tue
#original-time: 5:05 PM
#original-day:  3576
#original-host: WinXP Prof SP2 (Build 2600)

А вот вам программка для конвертации истории из формата Windows Live Messenger в формат близкий к квиповскому или, а точнее - формат History++ плагина к Миранде.

Требуются две библиотеки, которые находятся во многих моих программах. Если кому будет полезным, могу переписать с одними только MSXML и встроенными операторами. В любом случае, будет отдельная программа ^^

Option Explicit

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  Dim XML As New xhXMLDocument
  Dim Text As BStr
  Dim TMP As Long
  
  If Not XML.LoadXMLFile(asBuildFileName(App.Path, "akuma_megumi783452190.xml")) Then
    MsgBox XML.ParseError.toString(), vbCritical
    Exit Sub
  End If
  
  '###
  '### Partial History Log
  '### Линда Кайе (MRA: [e-mail]) - Zzz (MRA: [e-mail])
  '### (generated by history++ plugin)
  '###
  Text = "###" & CRLF & _
         "### Exported History Log" & CRLF & _
         "### " & XML.GetNodeText(XML.DocumentNode.SelectSingleNode("/Log/Message/From/User/@FriendlyName")) & _
         " - " & XML.GetNodeText(XML.DocumentNode.SelectSingleNode("/Log/Message/To/User/@FriendlyName")) & CRLF & _
         "### (generated by " & App.Title & ")" & CRLF & _
         "###" & CRLFCRLF
  
  Dim Messages As xhXMLNodes
  Dim Message As xhXMLNode
  
  Set Messages = XML.DocumentNode.SelectNodes("/Log/Message")
  For TMP = 0 To Messages.Count - 1
    Set Message = Messages(TMP)
    
    '[18.11.2009 11:24:30 PM] Линда Кайе:
    'Blah! Blah! Blah! ^^
    Text = Text & "[" & XML.GetNodeText(Message.SelectSingleNode("@Date")) & " " & _
                  XML.GetNodeText(Message.SelectSingleNode("@Time")) & "] " & _
                  XML.GetNodeText(Message.SelectSingleNode("From/User/@FriendlyName")) & _
                  ":" & CRLF & _
                  XML.GetNodeText(Message.SelectSingleNode("Text")) & CRLFCRLF
  Next TMP
  
  ajpFSO.PutFileW asBuildFileName(App.Path, "akuma_megumi783452190.txt"), Text, True
End Sub