More than one primary command does not work

The command separator is ok. I rechecked the multiple commands: the second command work - but the message is not updated. In my sample the message stays at "excluded xxx lines" and not "chars xxx found xx times in x lines"...

The file has ca. 60000 lines (ca. 17MB) and i reset/undo excluded lines and my changes in the file (i'm testimg my macro to move/copy/overlay/insert and delete column(s) in a file.

Peter

Hi,
the macro never ended in a loop - but the undo/reset. Four days ago i started creating my first macro. While testing (move,copy delete and insert columns) after every run i use undo or reset and then change/run the macro again. After ten or twelve runs i get this error. After using the OK Button undo/reset is ok.

You are right with the message - i checked with an older SPFLite-Version... But: in older Versions the cursor lays on the position of the first occurence of the search string.
In this version the cursor remains at the position from the first command (in older versions i think the cursor remains on the command line if using the x-command)
x 'EUR' all;find 'Art' nx all
The cursor lays on the first excluded row on the position of the first occurence of EUR.
So that's why i first thought the second command does not work...

Here ist the macro - not finished yet (and sorry for my bad englisch)

' VCOLS.MACRO
'
' 2014/08/11 by PS
'
if Get_Arg$(0) = "" then ' No arguments - show help
SPF_Loop_Check(0) ' no loop-check
MSGBOX(0,"Parameters:"&$CRLF& ' show help im MSGBOX
"------------"&$CRLF&
" "&$CRLF&
"Delete column(s):"&$CRLF&
" vcols d 5 = delete column 5"&$CRLF&
" vcols d 11 18 = delete columns 11 to 18"&$CRLF&
" "&$CRLF&
"Insert/Overlay/Clear column(s):"&$CRLF&
" vcols i 5 'Test' = insert Test at column 5"&$CRLF&
" vcols o 5 'Test' = overlay Test at columns 5ff"&$CRLF&
" vcols o 5 ' ' = clear columns 5ff"&$CRLF&
" "&$CRLF&
"Copy/Move column(s):"&$CRLF&
" vcols c 5 a 17 = copy column 5 after column 17"&$CRLF&
" vcols c 5 o 17 = copy column 5 overlay column 17"&$CRLF&
" vcols m 22 a 17 = move column 22 after column 17"&$CRLF&
" vcols m 22 o 17 = move column 22 overlay column 17"&$CRLF&
" "&$CRLF&
" vcols c 5 12 a 17 = copy columns 5 to 12 after column 17"&$CRLF&
" vcols c 5 12 o 17 = copy column 5 to 12 overlay columns 17ff"&$CRLF&
" vcols m 22 35 a 0 = move column 22 to 35 before column 1"&$CRLF&
" vcols m 22 35 o 17 = move column 22 to 35 overlay columns 17ff"&$CRLF&
" "&$CRLF&
"Info:"&$CRLF&
" "&$CRLF&
"...",%MB_OK,"VCOLS-Macro py PS")
halt
endif
dim p01 as string
dim p02 as integer
dim p02c as string
dim p03 as integer
dim p03c as string
dim p04 as string
dim p05 as integer
dim p05c as string
dim p06 as string
dim pdiff as integer
dim zaehl as number
dim lif as number
dim lit as number
dim vol as integer
dim vor as integer
dim cso as string
dim csn as string
dim csc as string
dim i as number

p01 = LCASE$(Get_Arg$(1))
p02 = LCASE$(Get_Arg$(2))
p02c = LCASE$(Get_Arg$(2))
p03 = LCASE$(Get_Arg$(3))
p03c = LCASE$(Get_Arg$(3))
p04 = LCASE$(Get_Arg$(4))
p05 = LCASE$(Get_Arg$(5))
p05c = LCASE$(Get_Arg$(5))
p06 = LCASE$(Get_Arg$(6))
lif = Get_First_LPtr
lit = Get_Last_LPtr
vol = Get_LBound
vor = Get_RBound

if p03 = "" then
if p01 = "i" then
p03 = p02
elseif p01 = "o" then
p03 = p02
else
p06 = p05c
p05c = p04
p05 = p04
p04 = p03c
p03c = p02c
p03 = p02
endif
endif

for i = lif to lit ' Loop through the line range
if Is_Data(i) then
if Get_XSTATUS$(i) = "X" then next
if p06 = "x" then
cso = Get_Line$(i)
else cso = LSET$(Get_Line$(i),vor)
endif
csc = MID$(cso,p02,p03-p02+1)
pdiff = p05
zaehl = zaehl + 1
if p01 = "m" then
cso = MID$(cso,1,p02-1)&MID$(cso,p03+1,vor)
if p05 < p02 then
pdiff = p05
else
pdiff = p05 - (p03-p02)-1
endif
endif
if p01 = "d" then
csn = MID$(cso,1,p02-1)&MID$(cso,p03+1,vor)
elseif p01 = "i" then
csn = MID$(cso,1,p02-1)&MID$(p03c,2,len(p03c)-2)&MID$(cso,p02,vor)
elseif p01 = "o" then
csn = MID$(cso,1,p02-1)&MID$(p03c,2,len(p03c)-2)&MID$(cso,p02+len(p03c)-2,vor)
endif
if p04 = "o" then
csn = MID$(cso,1,pdiff-1)&csc&MID$(cso,pdiff+(p03-p02)+1,vor)
elseif p04 = "a" then
csn = MID$(cso,1,pdiff)&csc&MID$(cso,pdiff+1,vor)
endif
Set_Line(i,csn)
endif
next
Set_Msg("VCOLS: C/M="&p01," von="&p02," bis="&p03," O/A="&p04," Ziel="&p05," Sond="&p06," Anzahl: ",zaehl)
halt