Subversion Repositories wimsdev

!set methtit=Mostrar un objetivo por separado (cuando hay varios)
!set methparmtype=choice
!set methhelp=Cuando hay varios objetivos para demostrar, puede usar\
 este método para aislar uno en un caso separado.

!if $wims_read_parm iswordof form check
  !goto $wims_read_parm
!endif

!if fixedgoal iswordof $m_options
  !set error1=fixedgoal
 !exit
!endif

!set n=!linecnt $m_goal
!if $n<1
  !set error1=no_object
  !exit
!endif
!if $n<2
  !set error1=Este método solo se puede utilizar cuando hay varios\
   objetivos que demostrar.
  !exit
!endif

!exit
:form
Establecer el objetivo
!set gl=!replace internal , by &#44; in $m_goal
!set gl=!lines2items $gl
!set n=!itemcnt $gl
!formselect methparm1 from 0 to $n prompt $ch_choose,$gl
$ como caso aparte por demostrar.
!exit
:check
n=!linecnt $m_goal
!bound methparm1 between integer 0 and $n default 0
!if $methparm1=0
  error=empty_data
  !exit
!endif
l=!line $methparm1 of $m_goal
goal1=$l
goal2=!replace line number $methparm1 by $ in $m_goal
goal2=!nonempty lines $goal2
goal2=!line 1 of $goal2
!if $n>2
  goal2=$goal2 ...
!endif
casesplit=$goal1\
$goal2
!reset splitobject1,splitobject2
n=!linecnt $objects
lt=<
!for i=1 to $n
  l=!line $i of $objects
  w=!word 1 of $l
  !if $w!=$lt
    splitobject1=!append line $l to $splitobject1
    splitobject2=!append line $l to $splitobject2
  !else
    !if $l notsametext $lt $goal1
      splitobject2=!append line $l to $splitobject2
    !endif
  !endif
!next i
splitobject1=!append line < $goal1 to $splitobject1
objects=$splitobject1
goalsplit=yes
methexp=Separar el objetivo $goal1
!exit