... MLCOUNT(cCode,,3,.t.) iLinea := 0 For a:= 1 To nLine SysRefresh() linetxt:=Rtrim(memoline(cCode,80,a,3,.t.)) If Left(Rtrim(linetxt),6)="Sábado" iLinea := a+1 Exit EndIf Next ntxt:="" ltcambio := .F. otxt:=FCreate( op:temp+"tcambio.txt" ) For a:=iLinea TO nLine ...