AYUDA.. =(

Estado
Cerrado para nuevas respuestas.

Boogie

Newbie Lvl 1
Se muy poco de programación, pero estoy haciendo lo posible para tratar de poner... Por lo menos un POQUIITO más lindo mi servidor.


La cosa es que cuando descomprimo me marca este error:
(TCP_HandleData2.bas)

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">            tInt = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Guilds\"</span> & rdata & <span style="color: #ffffff;">"-Members"</span> & <span style="color: #ffffff;">".mem"</span>, <span style="color: #ffffff;">"INIT"</span>, <span style="color: #ffffff;">"NroMembers"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            </li><li style="" class="li2">            <span style="color: #b1b100;">For</span> i = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> tInt</li><li style="" class="li1">                tStr = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Guilds\"</span> & rdata & <span style="color: #ffffff;">"-Members"</span> & <span style="color: #ffffff;">".mem"</span>, <span style="color: #ffffff;">"Members"</span>, <span style="color: #ffffff;">"Member"</span> & i<span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #808080;">'tstr es la victima</span></li><li style="" class="li2">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & tStr & <span style="color: #ffffff;">"<"</span> & rdata & <span style="color: #ffffff;">">."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Next</span> i</li><li style="" class="li1">            <span style="color: #b1b100;">End</span> Select</li><li style="" class="li2">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li1">Procesado = <span style="color: #b1b100;">False</span></li><li style="" class="li2"> </li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span>  <span style="color: #808080;">'<-<-a-c-a-<-<- </span></li></ol></div>[/vb]
ME marca el End Sub y me dice que no tiene End Select..



ACHUDAAAAA.


(No se por que me aparece esto.. No lo toqué nunca, descomprimí muchas veces antes y no me lo marcaba...)
 
A

Anonymous

Invitado
Podes especificar que codigo es?
Y lo de END selec fijate donde tenes un selec y ponelo
 

Boogie

Newbie Lvl 1
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">    Select <span style="color: #b1b100;">Case</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">14</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"/MIEMBROSCLAN "</span></li><li style="" class="li2">            rdata = <span style="color: #b1b100;">Trim</span><span style="color: #66cc66;">(</span><span style="color: #b1b100;">Right</span><span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">14</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Name</span> = Replace<span style="color: #66cc66;">(</span>rdata, <span style="color: #ffffff;">"\"</span>, <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Name</span> = Replace<span style="color: #66cc66;">(</span>rdata, <span style="color: #ffffff;">"/"</span>, <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">    </li><li style="" class="li1">            <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> FileExist<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\guilds\"</span> & rdata & <span style="color: #ffffff;">"-members.mem"</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"|| No existe el clan: "</span> & rdata & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li2">                <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1">            <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">            </li><li style="" class="li2">            tInt = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Guilds\"</span> & rdata & <span style="color: #ffffff;">"-Members"</span> & <span style="color: #ffffff;">".mem"</span>, <span style="color: #ffffff;">"INIT"</span>, <span style="color: #ffffff;">"NroMembers"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            </li><li style="" class="li1">            <span style="color: #b1b100;">For</span> i = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> tInt</li><li style="" class="li2">                tStr = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Guilds\"</span> & rdata & <span style="color: #ffffff;">"-Members"</span> & <span style="color: #ffffff;">".mem"</span>, <span style="color: #ffffff;">"Members"</span>, <span style="color: #ffffff;">"Member"</span> & i<span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #808080;">'tstr es la victima</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & tStr & <span style="color: #ffffff;">"<"</span> & rdata & <span style="color: #ffffff;">">."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li2">            <span style="color: #b1b100;">Next</span> i</li><li style="" class="li1">        </li><li style="" class="li1">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2">        <span style="color: #b1b100;">End</span> Select</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1">Procesado = <span style="color: #b1b100;">False</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]


No, yo ni toqué todo esto..

:S

Por eso digo que no se porque me tia error..


:cry:
 

^[GS]^

GS-Zone Admin
Miembro del equipo
Administrador
Moderador
porque ese select tiene un solo Case?? cual es el objetivo de que tenga un solo Case?? porque no es directamente un If? como que falta un case y no entiendo por que :p
 

Boogie

Newbie Lvl 1
^[GS]^ dijo:
porque ese select tiene un solo Case?? cual es el objetivo de que tenga un solo Case?? porque no es directamente un If? como que falta un case y no entiendo por que :p


Y la solción a eso?? :oops:
 
Estado
Cerrado para nuevas respuestas.
Arriba