More advanced dump log to file

From NSIS Wiki
Jump to navigationJump to search
Author: Afrow UK (talk, contrib)


Description

This is based on the original Dump log to file function by KiCHiK, but instead, only log's lines containing the inputted string.

Usage

This will write any lines containing "error" that were dumped to the log window during installation to "mappackage_errors1.txt".

Push error
Push "$EXEDIR\logs\mappackage_errors1.txt"
 Call AdvDumpLog

The Script

!define LVM_GETITEMCOUNT 0x1004
!define LVM_GETITEMTEXT 0x102D
 
Function AdvDumpLog
  Exch $5 ;input file
  Exch
  Exch $9 ;string to search for
  Push $0
  Push $1
  Push $2
  Push $3
  Push $4
  Push $6
  Push $7
  Push $8
  Push $R0
 
  FindWindow $0 "#32770" "" $HWNDPARENT
  GetDlgItem $0 $0 1016
  StrCmp $0 0 error
  FileOpen $5 $5 "w" ;change to "a" if you do not want to overwrite
  StrCmp $5 "" error
    SendMessage $0 ${LVM_GETITEMCOUNT} 0 0 $6
    System::Alloc ${NSIS_MAX_STRLEN}
    Pop $3
    StrCpy $2 0
    System::Call "*(i, i, i, i, i, i, i, i, i) i \
      (0, 0, 0, 0, 0, r3, ${NSIS_MAX_STRLEN}) .r1"
 
    loop:
        StrCmp $2 $6 done
      System::Call "User32::SendMessageA(i, i, i, i) i \
        ($0, ${LVM_GETITEMTEXT}, $2, r1)"
      System::Call "*$3(&t${NSIS_MAX_STRLEN} .r4)"
 
        StrLen $8 $9
        StrCpy $7 0
      searchloop:
        IntOp $7 $7 - 1
        StrCpy $R0 $4 $8 $7
	StrCmp $R0 "" +3
	StrCmp $R0 $9 0 searchloop
 
      FileWrite $5 "$4$\r$\n"
      IntOp $2 $2 + 1
      Goto loop
 
    done:
      FileClose $5
      System::Free $1
      System::Free $3
      Goto exit
 
  error:
    MessageBox MB_OK error
 
exit:
  Pop $8
  Pop $7
  Pop $6
  Pop $4
  Pop $3
  Pop $2
  Pop $1
  Pop $0
  Exch $9
  Exch
  Exch $5
FunctionEnd

-Stu (Afrow UK)