If you don't know it, have a look at http://www.photools.com/
These Scripts can be used any way, but also without any kind of warranty!
If you don't agree, please leave now.
= new Script
= updated Script
Multi Database Transmission V 1.2 (06-Jun-2003) - This script transmits Images from a SourceDB to a TargetDB, preserving all Category-Assignments and Property-Entries. (And, *g*, if Mario would give us an updated Timestamp for the DatabaseImageRecords, we could merge Databases by checking which Entry is newer. Think about mobile IMatch.)
Remove Empty Categories from Database V 1.0 (30-May-2003) - This script removes all 'empty'-Categories from the active Database.
OffLineCache Garbage Collector V 1.0 (28-Jun-2003) - This script checks all existing Images in OfflineCacheFolder of the active Database and deletes ownerless OLC-Images. Additionally you can select some Categories from which you want delete the Images OfflineCache-pendants.
Photoshop Conversion (PS 5.5 + 6) V 0.9 (02-Jul-2003) - This Script combines the ManagementPower of IMatch with the ImageManipulationPower of Adobes Photoshop 6.0 in an easy to use way. This Script I have written together with Klaus Schwarzburg. Many thanks for your help, Klaus.
lcms Webgallery Creator V 0.1 (05-Oct-2002) - This script enhance the original Webgallery-Creator-Script with an ICC-Conversion-feature.
little Batch Converter V 1.2 (26-Jun-2003) - This script create resized copies, optionally with ICC-Conversion for Tiff- and Jpeg-sources. Can work with OfflineCacheImages instead of originals and can transmit all Property-, Category- and IPTC-data to the copies.
Registry Functions V 1.0 (01-Nov-2002) - A littleHelper-Script to put and retrieve Data to/from Registry in its correct DataTypes. VB usually provides only the StringType. With this Lib you can store every DataType to Registry (Byte, Integer, Long, Double, Decimal, Boolean, Variant, ...).
Debug Messages V 1.0 (08-Nov-2002) - A littleHelper-Script which handles Debugoutput in Priorityclasses. With this you can have good Informationoutput when you develope a Script and a less or no Output when run the Script in Productivity-Mode. Your DebugmessagePoints can stay in code without any (auswirkung). Usefull for future changes on your code.
Explanation
MainScript: hnSample_FncDebugMsg.bas
Needed Modules: [hnFncDebugMsg.obm]
hnFncDebugMsg.obm: (107 lines / 36 real codelines / 0 Subs / 1 Function / 0 Properties)
1| '|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 2| ' 3| 4| ' 5| ' h.nogajski@web.de 6| ' http://horst.nogajski.de 7| ' 8| '-------------------------------------------------------------------------------------------------- 9| ' 10| ' LittleHelperScript: DebugMessages (for SAX-Basic or VB) 11| ' 12| ' Set DebugMessages in your Scripts with a Priority-Label 13| ' and then set the OutputPriority to suit your needs, e.g. developing, production, .. 14| ' With this concept you can keep your Debugmessages with the code. 15| ' (Helpfull if you want change your code futurewards) 16| ' 17| 'V 1.0 (05.11.2002) 18| ' 19| '|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 20| '-------------------------------------------------------------------------------------------------- 21| ' 22| ' Public Function: 23| ' 24| ' DoDbgMsg 25| ' with this function you set a Priority for the Message, 26| ' the FunctionName and Position (or SubName) 27| ' and the Message. e.g. Values of Variables, Arrays or what else :) 28| ' 29| '-------------------------------------------------------------------------------------------------- 30| '|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 31| 32| 33| Option Explicit 34| 35| 36| '*********************************************************************************** 37| '* Copy this Section to your CallingScript in Sub MainSection and set the Params 38| '*********************************************************************************** 39| 'dbgmsg = True 40| 'PromptMe = False 41| 'DbgOutPutPriority = high 42| '*********************************************************************************** 43| '* Copy this Section to your CallingScript in Sub MainSection and set the Params 44| '*********************************************************************************** 45| 46| 'If dbgmsg = TRUE and PromptMe = FALSE 47| 'its Output goes To the DebugWindow. 48| 'If dbgmsg = TRUE and PromptMe = TRUE 49| 'every Output starts a MsgBox and even the Script stops! 50| 51| 'With: 52| 'DbgOutPutPriority = low 53| 'you get all Messages. 54| 'DbgOutPutPriority = normal 55| 'you get all Messages with normal, high and Production Priority. 56| 'DbgOutPutPriority = high 57| 'you get all Messages with high and Production Priority. 58| 'DbgOutPutPriority = Production 59| 'you should sign Messages which Output you want to see during EveryDayUsing. 60| 61| 62| Public Enum OutPutPriority 63| low 64| medium 65| high 66| Production 67| End Enum 68| Public Enum DbgMsgFuncPos 69| FunctionEntry 70| duringFunctionProcess 71| FunctionExit 72| SubProcess 73| End Enum 74| 75| 76| Public dbgmsg As Boolean 77| Public PromptMe As Boolean 78| Public DbgOutPutPriority As OutPutPriority 79| 80| 81| Public Function DoDbgMsg(Priority As OutPutPriority, FuncName As String, Pos As DbgMsgFuncPos, OutputMsg As String) 82| 83| Dim Position As String 84| If Pos = duringFunctionProcess Then Position ="duringFunctionProcess" 85| If Pos = FunctionEntry Then Position ="FunctionEntry" 86| If Pos = FunctionExit Then Position ="FunctionExit" 87| If Pos = SubProcess Then Position ="SubProcess" 88| 89| If dbgmsg And Priority >= DbgOutPutPriority Then 90| Dim mymsg As String 91| If Not DbgOutPutPriority = Production Then mymsg = "Function-/SubName:" & FuncName & vbNewLine 92| If Not DbgOutPutPriority = Production Then mymsg = mymsg & "Position:" & Position & vbNewLine 93| If Not DbgOutPutPriority = Production Then mymsg = mymsg & "DebugInfo:" & vbNewLine 94| mymsg = mymsg & Replace(OutputMsg,Chr(13),vbNewLine) 95| 96| If PromptMe Then 97| MsgBox(mymsg,vbInformation,"DebugInfo") 98| Else 99| Debug.Print vbNewLine & "----------------------" & vbNewLine 100| Debug.Print mymsg 101| End If 102| End If 103| 104| End Function 105| 106| 107|