Bom, se eu não tivesse a lógica de programação de C++ e UC, eu não saberia completamente nada de ASP, em UC ja ajudei um amigo meu com 1 MOD dele chamado VAS.
VasDebug (" getplayerinfo VasEXPv1.02 Player! saveinfo="$saveinfo,2);
I1 = InStr(saveinfo, "@1#");
I2 = InStr(saveinfo, "@2#");
SavePlayerName[i] = caps(Mid(saveinfo , I1+3,(I2 -(I1+3))));
I3 = InStr(saveinfo, "@3#");
SaveplayerExperiencePoints[i] = INT(Mid(saveinfo, I2+3,(I3-(I2+3))));
I4 = InStr(saveinfo, "@4#");
SaveplayerLevel[i] = INT(Mid(saveinfo, I3 +3,(I4 -(I3+3))));
I5 = InStr(saveinfo, "@5#");
SaveMurderCount[i] = INT(Mid(saveinfo, I4 +3,(I5 -(I4 +3))));
I6 = InStr(saveinfo, "@6#");
Savepassword[i] = caps(Mid(saveinfo, I5 +3,(I6 -(I5 +3))));
I7 = InStr(saveinfo, "@7#");
SaveSTR[i] = INT(Mid(saveinfo, I6 +3,(I7 -(I6 +3))));
I8 = InStr(saveinfo, "@8#");
SaveINT[i] = INT(Mid(saveinfo, I7 +3,(I8 -(I7 +3))));
I9 = InStr(saveinfo, "@9#");
SaveDEX[i] = INT(Mid(saveinfo, I8 +3,(I9 -(I8 +3))));
I10 = InStr(saveinfo, "@10#");
SavePlayerMagicSkill[i] = INT(Mid(saveinfo, I9 +3,(I10 -(I9 +3))));
I11 = InStr(saveinfo, "@11#");
SavePlayerSwordSkill[i] = INT(Mid(saveinfo, I10 +4,(I11 -(I10 +4))));
I12 = InStr(saveinfo, "@12#");
SavePlayeraxeSkill[i] = INT(Mid(saveinfo, I11 +4,(I12 -(I11+4))));
I13 = InStr(saveinfo, "@13#");
SavePlayermaceSkill[i] = INT(Mid(saveinfo, I12+4,(I13 -(I12+4))));
I14 = InStr(saveinfo, "@14#");
SavePlayerbowSkill[i] = INT(Mid(saveinfo, I13 +4,(I14 -(I13 +4))));Como você pode reparar, Left pega uma string da esquerda com X lens. Right Ao inverso, mas mantendo a lógica, da direita para a esquerda com X lens, agora, para o MEIO, você deve usar o MID.
Mas para não complicar, vamos usar este função:
Sendo: Variavel = "<feio, ridiculo burro> otavio xxxxxx <e muito mais que vc pode imaginar>." OBS: adaptei ela 1 pouco rs.
'oq vc quer procurar
Search = "otavio xxxxxx"
'Procura o Search dentro da Variavel.
Posicao1 = InStr(Variavel, Search)
Posicao2 = Posicao1 + len(Search)-1
'Cria uma nova Variavel somente com a string entre, e somando, Posicao1 e Posicao2. Ou Seja: "otavio xxxxxx".
NovaVariavel = mid(Variavel, Posicao1, Posicao2)
NovaVariavel = "otavio xxxxxx"
Dai vai que vc quer trocar xxxxxx por xxxxxx, dai eh so faze:
SuperNovaVariavel = Replace(NovaVariavel, "xxxxxx", "xxxxxx")
logo...
SuperNovaVariavel = "otavio xxxxxx"
dai, vc tbm pode substituir por outras coisas legais
huahauhaa, n leva a mal nao, foi soh 1 brincadeira
Caso o comando reconheça ENTRE Posicao1 e 2 e nao somando, entao use:
Posicao1 = InStr(Variavel, Search)-1
Posicao2 = Posicao1 + len(Search)+1
ahh, torce pra função MID existir, pq se n existi ja era rsrsrs.
Espero ter ajudado...
T+
