Skip to content

Instantly share code, notes, and snippets.

If Index(GetCommandLine(), 'DV=1',1) > 0 Then Debug
#Tail a file
get-content -Tail 20 -Wait -path '.\log.txt'
#Tail and grep a file
Get-Content log.txt -tail 20 –wait | Select-String 'look for string'
#Grep a file
get-content -path '.\log.txt' | Select-String 'look for string'
#Move files older than 180 days
@jbratu
jbratu / Scratch_Jab_indexmaint.oibp
Created August 24, 2018 06:05
This code generates source code to remove all indexes on a table and then recreate them.
subroutine Scratch_Jab_indexmaint(void)
Declare Function Get_Status, List_Index_Detailed
declare function Set_FSError, CS_RLIST_UTIL
declare subroutine RLIST
$Insert Logical
*Change to the name of the table to ReadNext through
Function CS_GET_DLL_VERSION(FilePath)
*
*FilePath - Full path to the DLL file. I.e. c:\windows\twain_32.dll
*
* Enable oi10 event syntax by default because this is an event handler
#pragma precomp event_precomp
Declare Function get_property
$Insert Logical
$insert rti_AXSH_Equates
@jbratu
jbratu / OpenInsight Delimiters.txt
Last active January 28, 2019 12:06
OpenInsight Delimiters
@RM ÿ 255
@FM þ 254
@VM ý 253
@SVM ü 252
@TM û 251
@STM ú 250
When in Draw Mode:
Left Click
1) Left-click to drop a default-size control on a the form
2) Left-click and drag to draw a control on the form
3) Ctrl-left-click to drop a default size control on a container control
4) Ctrl-left-click and drag to draw a control on a container control.
Right Click
1) Right-click and drag to draw a control on the form
table = "MYTABLE"
tableParams = ""
tableParams<1> = "4096" ;* new framesize
tableParams<2> = "40" ; * new threshold
tableParams<3> = "567" ; * estimated avg size
tableParams<4> = "3000000" ; * new reccount
Call RTI_REMAKETABLE(table, tableParams)
//https://www.revelation.com/o4wtrs/oecgi3.exe/O4W_RUN_FORM?INQID=WORKS_READ&KEY=EA237ADAB4D7C3C3C05E09655&SUMMARY=0#/section/breadcrumb/UPDATETABLE/Display
Function AINN(List,Value)
If List EQ '' Then
Return Value
End Else
List<-1> = Value
Return List
End
Return
Subroutine CS_VAR_To_SAVED_LIST(ListName,ListKeys)
*
* ListName: Name of the saved list to create. Recall with getlist or activate_Save_select
* ListKeys: @FM list of keys to save into the list
*
Open 'SYSLISTS' To Table Else
*Check get_status for errors after call
Return
End
@RM
ÿ
A row mark (ASCII 255). Separates rows.
@FM
þ
A field mark (ASCII 254). Separates columns within a row.