| DECLARE @ClarionDate INT = 47563 | |
| DECLARE @SqlDateTime DATETIME | |
| -- Convert the clarion DATE into and SQL DateTime | |
| SET @SqlDateTime = DateAdd(day, @ClarionDate - 4, '1801-01-01') | |
| SELECT @SqlDateTime AS 'SQL Date Time' | |
| -- Now convert it back from and SQL DateTime to a Clarion Date | |
| SET @ClarionDate = DateDiff(day, DateAdd(day, -4, '1801-01-01'), @SqlDateTime) |
| <TextLibrary name="My Table"> | |
| <Text display = "My Label" value = "drop value" /> | |
| <Text display = "My other label" value = "other drop value" /> | |
| </TextLibrary> |
| $rtn = New-Object psobject -Property @{"Value"=$null; "name" = $null; "path"=$null} | |
| 1..500 | | |
| ForEach-Object { | |
| $rtn.Value = $_ | |
| $rtn.name = (new-object -com shell.application ).namespace($_).title | |
| $rtn.path = (new-object -com shell.application ).namespace($_).self.path | |
| if($rtn.name -ne $null) | |
| { | |
| Write-Host "$($rtn.value) $($rtn.name) $($rtn.path)" | |
| } |
| OcxIsRegistered PROCEDURE(STRING pName) ! ,BYTE | |
| resultQ QUEUE(oleQ) | |
| END | |
| CODE | |
| OleDirectory(resultQ, 0, 3) ! <-- OLE Servers | |
| OleDirectory(resultQ, 1, 3) ! <-- OLE Controls | |
| Get(pResultQ, 0) | |
| LOOP | |
| Get(pResultQ, Pointer(pResultQ)+1) | |
| IF ErrorCode() |
| GetJsonData PROCEDURE(LONG pDate) | |
| Json JsonClassType | |
| CODE | |
| Json.Init() | |
| Json.InitWriter() | |
| Json.WriteStartObject() | |
| Json.WritePropertyName('key') | |
| Json.WriteValue('ASDR-WERT-DFGG-RRTY') |
| Member() | |
| Include('ConsoleSupport.inc'),ONCE | |
| Map | |
| MODULE('32-bit Windows API') | |
| ! General functions | |
| GetLastError(),DWORD,PASCAL | |
| ! Console functions | |
| GetStdHandle(DWORD),HANDLE,PASCAL,PROC,RAW | |
| WriteConsole(Handle,Long,Dword,long,long),bool,Raw,Pascal,name('WriteConsoleA') |
| $doc = New-Object System.Xml.XmlDocument | |
| $doc.Load("C:\Dev\Clarion\ClarionProperties.xml") | |
| $XPath = "/ClarionProperties/Properties[@name='WorkbenchMemento']" | |
| $node = ( $doc | Select-Xml -XPath $XPath ).Node | |
| $node.bounds.value = "1,2,3,4" | |
| $doc.Save("C:\Dev\Clarion\ClarionProperties.xml") |
**Note: The idea for this is based on a combination of PsGet, http://psget.net/ and SublimeText Package Control, https://sublime.wbond.net/ **
(new-object Net.WebClient).DownloadString("http://ClarionHub.com/GetCwGet.ps1") | iex
Proposed commands:
| MEMBER() | |
| INCLUDE('RefHandler.inc'),ONCE | |
| MAP | |
| END | |
| RefHandler.Init PROCEDURE(*LONG pTheField) | |
| CODE | |
| IF pTheField = 0 | |
| ! Create a new instance and assign the address to the storage field |
| PROGRAM | |
| Include('ConsoleSupport.inc'),ONCE | |
| Console ConsoleSupport | |
| MAP | |
| Main PROCEDURE() | |
| MyTest PROCEDURE(<*STRING pString>) | |
| END | |
| CODE |