Source language: Translate to:

Indent Objects

Share sample pubs, scripts, etc. with other NeoBook users

Moderator: Neosoft Support

Indent Objects

Postby virger » Sun Dec 18, 2011 9:34 pm

A quick way to indent when very large objects
-----------------------------------------------------
NBW Publication Source File
(C)1993-2011 NeoSoft Corp.
Title=Indent Objets
Author=Gdo/Set..2011
Language=US
NeoBookVer=5.70
ScreenColors=16777216
ScreenWidth=640
ScreenHeight=480
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=1
WindowPos=0
WindowProps=28
BiDiMode=0
AllowESC=No
AllowPageUpDn=No
UseUpdateTimer=Yes
ReturnTime=60
ShapeTransColor=536870912
CompiledName=C:\IndentObjects.exe
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
FontsToCompile=|
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=PgIndent
PageStyle=1
PageColor=15329769
PageGradient1=7403648
PageGradient2=2138360
PageGradientDir=0
WallpaperStyle=0
EffectSpeed=0
PgEnterAction=setvar "[type]" "WithOut"¶setvar "[msg]" "Indent"
ObjectType=9
Name=Tx
X=0
Y=35
W=640
H=445
Anchor=0
Hint=Text To Process
VarName=[stx]
EditMultiLine=Yes
WordWrap=No
EditLen=0
ObjAction=if "[sTx]" "<>" ""¶ enableobject "BtIndent"¶else¶ disableobject "BtIndent"¶endif
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15660535
FillPattern=0
Font=Terminal
FontSize=14
FontStyle=0
FontCharset=255
TextColor=0
TabOrder=3
ObjectType=3
Name=BtClose
X=612
Y=1
W=27
H=28
Anchor=0
Text=X
Hint=Close Application
Align=2
ImageStyle=0
ObjAction=exit "" ""
LineColor=0
LineWidth=1
LineStyle=0
FillColor=255
FillPattern=0
Font=Arial
FontSize=12
FontStyle=1
FontCharset=1
TextColor=16777215
TabOrder=2
ObjectType=3
Name=BtTray
X=0
Y=1
W=25
H=25
Anchor=0
Text=-
Hint=To Minimize
Align=2
ImageStyle=0
OverlayText=Yes
ObjAction=SetVar "[WindowState]" "Minimized"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=255
FillPattern=0
Font=Arial
FontSize=16
FontStyle=1
FontCharset=1
TextColor=16777215
TabOrder=4
ObjectType=9
Name=EnTab
X=38
Y=6
W=18
H=20
Anchor=0
Text=2
Hint=Spaces To Indent
VarName=[nSp]
EditNumber=Yes
EditLen=1
ObjAction=if "[nSp]" ">" "5"¶ setvar "[nSp]" "5"¶endif¶if "[nSp]" "<" "1"¶ setvar "[nSp]" "1"¶endif
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
Font=Arial
FontSize=11
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=5
ObjectType=8
Name=TxTab
X=60
Y=8
W=34
H=18
Anchor=0
Font=Arial
FontSize=11
FontStyle=2
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs22\cf0\i Tab}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=-16777201
FillPattern=1
TabOrder=7
ObjectType=3
Name=BtIndent
X=111
Y=3
W=137
H=30
Anchor=0
Text=[msg]
Hint=Execute Indent
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=SetVar "[msg]" "Indenting"¶DisableObject "BtIndent"¶DisableObject "BtCopy"¶DisableObject "BtPaste"¶DisableObject "BtLines"¶¶SubStr "[#32][#32][#32][#32][#32]" "1" "[nSp]" "[xTb]"¶SetVar "[sp]" "[#13][#10]"¶¶SetVar "[ps]" "1"¶While "[ps]" ">" "0"¶ StrReplace "[stx]" "[sp][#32]" "[sp]" "[stx]" ""¶ SearchStr "[sp][#32]" "[stx]" "[ps]" ""¶EndWhile¶¶Loop "1" "2" "[k]"¶ SetVar "[tx[k]]" ""¶ SetVar "[ChOpen]" ""¶ SetVar "[ChClose]" ""¶ SetVar "[ChElse]" ""¶ SetVar "[tb]" ""¶¶ SetVar "[rs]" "[nSp]"¶¶ If "[k]" "=" "2"¶ SetVar "[ChOpen]" "[#218]"¶ SetVar "[ChClose]" "[#192]"¶ SetVar "[chElse]" "[#195]"¶ Math "[nSp]+1" "" "[rs]"¶ EndIf¶¶ SetVar "[CtrIf]" "0"¶ SetVar "[CtrIfEx]" "0"¶ SetVar "[CtrLoop]" "0"¶ SetVar "[CtrWhile]" "0"¶¶ SetVar "[ChLine]" ""¶ StrParse "[stx]" "[sp]" "[linea[k]]" "[tLen]"¶ ¶ Loop "1" "[tLen]" "[xc]"¶ StrParse "[Linea[k][xc]]" "[#32]" "[par]" "[np]"¶¶ IfEx "[par1]=If OR [par1]=IfEx OR [par1]=While OR [par1]=Loop OR [par1]=Else"¶ If "[par1]" "=" "IfEx"¶ SetVar "[par1]" "If"¶ EndIf¶¶ If "[par1]" "<>" "Else"¶ .. Open LOOP/If...¶ If "[k]" "=" "2"¶ SetVar "[ChLine]" "[#179]"¶ Else¶ SetVar "[ChLine]" ""¶ EndIf¶ Math "[Ctr[par1]]+1" "" "[Ctr[par1]]"¶ SetVar "[linea[k][xc]]" "[tb][ChOpen][linea[k][xc]]"¶ SetVar "[tb]" "[ChLine][xtb][tb]"¶ Else¶ .. This it's Else¶ StrLen "[tb]" "[len]"¶ SubStr "[tb]" "1" "[len]-[rs]" "[tbx]"¶ SetVar "[linea[k][xc]]" "[tbx][chElse][linea[k][xc]]"¶ EndIf¶ Else¶ IfEx "[par1]=EndIf OR [par1]=EndWhile OR [par1]=EndLoop"¶ .. CLOSE EndIf/EndWhile....¶ SubStr "[par1]" "4" "5" "[xpar1]"¶ Math "[Ctr[xpar1]]-1" "" "[Ctr[xpar1]]"¶ StrLen "[tb]" "[len]"¶ SubStr "[tb]" "1" "[len]-[rs]" "[tb]"¶ SetVar "[linea[k][xc]]" "[tb][ChClose][linea[k][xc]]"¶ If "[tb]" "=" ""¶ SetVar "[ChLine]" ""¶ EndIf¶ Else¶ .. Empty Line¶ SetVar "[linea[k][xc]]" "[tb][chLine][linea[k][xc]]"¶ EndIf¶ EndIf¶¶ DeleteArray "[par]" "All"¶ SetVar "[tx[k]]" "[tx[k]][linea[k][xc]][sp]"¶ SetVar "[linea[k][xc]]" ""¶¶ EndLoop¶¶ If "[CtrIf]" "<>" "0"¶ AlertBox "Alert" "[CtrIf] DON'T CLOSED 'If'"¶ EndIf¶ If "[CtrIfEx]" "<>" "0"¶ AlertBox "Alert" "[CtrIfEx] DON'T CLOSED 'IfEx'"¶ EndIf¶ If "[CtrLoop]" "<>" "0"¶ AlertBox "Alert" "[Ctrloop] DON'T CLOSED 'Loop'"¶ EndIf¶ If "[CtrWhile]" "<>" "0"¶ AlertBox "Alert" "[Ctrwhile] DON'T CLOSED 'While'"¶ EndIf¶¶EndLoop¶¶SetVar "[CtrIf]" ""¶SetVar "[CtrLoop]" ""¶SetVar "[CtrWhile]" ""¶¶SetVar "[sp]" ""¶SetVar "[ps]" ""¶SetVar "[xtb]" ""¶SetVar "[tb]" ""¶SetVar "[tbx]" ""¶SetVar "[len]" ""¶SetVar "[xc]" ""¶SetVar "[np]" ""¶SetVar "[tlen]" ""¶¶SetVar "[msg]" "Indent"¶EnableObject "BtIndent"¶EnableObject "BtCopy"¶EnableObject "BtPaste"¶EnableObject "BtLines"¶¶SetVar "[stx]" "[tx2]"¶FocusObject "Tx"¶SendKeys "" "{CtrlDn}{Home}"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
Font=Arial
FontSize=11
FontStyle=0
FontCharset=1
TextColor=0
Enabled=No
TabOrder=6
ObjectType=3
Name=BtLines
X=293
Y=3
W=109
H=30
Anchor=0
Text=[type]-Lines
Hint=To See With/Out Lines
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=if "[k]" "=" "1"¶ setvar "[k]" "2"¶ setvar "[type]" "WithOut"¶else¶ setvar "[k]" "1"¶ setvar "[type]" "With"¶endif¶FocusObject "Tx"¶setvar "[stx]" "[tx[k]]"¶SendKeys "" "{CtrlDn}{Home}"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
Font=Arial
FontSize=11
FontStyle=0
FontCharset=1
TextColor=0
Enabled=No
TabOrder=10
ObjectType=3
Name=BtCopy
X=464
Y=3
W=59
H=30
Anchor=0
Text=Copy
Hint=Copy To "Clipboard"
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=setvar "[ClipBoard]" "[tx1]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
Font=Arial
FontSize=11
FontStyle=0
FontCharset=1
TextColor=0
Enabled=No
TabOrder=9
ObjectType=3
Name=BtPaste
X=550
Y=3
W=59
H=30
Anchor=0
Text=Paste
Hint=Paste From "Clipboard"
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=setvar "[stx]" "[ClipBoard]"¶SendKeys "" "{CtrlDn}{Home}"¶if "[sTx]" "<>" ""¶ enableobject "BtIndent"¶else¶ disableobject "BtIndent"¶endif
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
Font=Arial
FontSize=11
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=8
ObjectType=8
Name=TxInfo
X=-161
Y=-1
W=148
H=75
Anchor=0
Locked=Yes
Font=Terminal
FontSize=6
FontStyle=0
FontCharset=255
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset255 Terminal;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 Using Font 'TERMINAL'\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 In TextEntry "TX"\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 [#218]\tab 218\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 [#179]\tab 179\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 [#195]\tab 195\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 [#179]\tab 179\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs12\cf0 [#192]\tab 192}}¶}
HMargin=0
VMargin=10
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16312560
FillPattern=0
TabOrder=1
ObjectType=7
Name=Line1
X1=100
Y1=0
X2=100
Y2=35
EndCaps=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
TabOrder=11
ObjectType=7
Name=Line2
X1=256
Y1=0
X2=256
Y2=35
EndCaps=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
TabOrder=14
ObjectType=7
Name=Line3
X1=429
Y1=0
X2=429
Y2=35
EndCaps=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
TabOrder=13
ObjectType=7
Name=Line4
X1=535
Y1=0
X2=535
Y2=35
EndCaps=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=-16777201
FillPattern=0
TabOrder=12
---------------

From COSTA RICA
Donde somos
PURA VIDA
User avatar
virger
 
Posts: 510
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Return to Sample NeoBook Pubs

Who is online

Users browsing this forum: No registered users and 1 guest