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+