Separar o conteudo de uma variavel.

[natalia 0]

Oi pessoal,Como fazer isso:Minha variavel tem um conteudo que eu preciso desmembrar dando o total de 9 informações, exemplo:varGeral = A1/A2/A3*B1/B2/B3*C1/C2/C3Eu preciso colocar cada informação dentro de uma variável:variavel1 = A1variavel2 = A2variavel3 = A3variavel4 = B1e assim por diante.E depois usa-las para deixar selecionada a opção de um list menu<SELECT name="A"><option value="A1" <%If variavel1 = "A1" Then %>selected<% End If %>> Tipo1</option><option value="A2" <%If variavel2 = "A2" Then %>selected<% End If %>> Tipo2 </option><option value="A3" <%If variavel3 = "A3" Then %>selected<% End If %>> > Tipo3 </option></SELECT>

[Mário Monteiro 179]

vou aproveitar que tou a toa e vou tentar fazer isso...

[Mário Monteiro 179]

[tr][/tr][tr][/tr]

ASP

varGeral = "A1/A2/A3*B1/B2/B3*C1/C2/C3"   varDividida = SPLIT(varGeral,"*")   FOR I = LBOUND(varDividida) TO UBOUND(varDividida)   SELECT CASE I CASE 0 response.write("<SELECT name='A'>") VarA = SPLIT(varDividida(I),"/") FOR J = LBOUND(VarA) TO UBOUND(VarA) response.write("<option value='" & varA(J) & "'>" & varA(J) & "</option>") NEXT response.write("</SELECT>") CASE 1 response.write("<SELECT name='B'>") VarB = SPLIT(varDividida(I),"/") FOR J = LBOUND(VarB) TO UBOUND(VarB) response.write("<option value='" & varB(J) & "'>" & varB(J) & "</option>") NEXT response.write("</SELECT>") CASE 2 response.write("<SELECT name='C'>") VarC = SPLIT(varDividida(I),"/") FOR J = LBOUND(VarC) TO UBOUND(VarC) response.write("<option value='" & varC(J) & "'>" & varC(J) & "</option>") NEXT response.write("</SELECT>") END SELECT   NEXT

[Asteriscos 0]

<%'Conteúdo de cada variável:A1 = 9A2 = 4A3 = 5B1 = 7B2 = 10B3 = 2C1 = 9C2 = 4C3 = 1varGeral = A1/A2/A3*B1/B2/B3*C1/C2/C3response.write varGeral & "<br>"'Isso resulta na conta 0,354375'Se fosse assim:varGeral = A1 & "/" & A2 & "/" & A3 & "*" & B1 & "/" & B2 & "/" & B3 & "*" & C1 & "/" & C2 & "/" & C3response.write varGeral & "<br>"'Isso resulta na string 9/4/5*7/10/2*9/4/1'Desta forma dá para separar os valores utilizando a função MID()%>

[natalia 0]

Pessoal, Estou testando os codigos e gostaria de ver com o Mário a respeito do código dele.Vamos chamar de blocos cada repartição do * (A1/A2/A3), no caso a letra A se repete por 3 vezes, sempre será assim, mas os numeros que acompanha são: 0, 1, 2 e 3, então as vezes poderá estar assim: A1/A0/A3, A0/A0/A0, etc Mais uma coisa do jeito que você fez sempre aparecerá tres opções no list, não é isso?Mas na verdade cada list tem 4 opções, por isso precisa ser fixo e uma delas precisa estar selecionada de acordo com o que está registrado no banco.Não sei se deu pra entender?

[Mário Monteiro 179]

ah ta pansei que era sempre daquele jeito, então vou tentar dá uma adaptada...

[rOcKLoCo 0]

<%var = Replace(var,"*","/")arrVar = Split(var,"/")For i = LBound(arrVar) to UBound(arrVar)      response.write arrVar(i) & "<br>"Next%>

seria isso??falows

[Mário Monteiro 179]

você esta dizendo acima que pode ser A0/A0/A0 tem certeza disso?? já que você também disse que tem 4 opções e tem que selecionar uma, ou seja como??ou para cada uma dessa teria um select box que estaria selecionado o zero e no primeiro caso que postei estariam selecionados zeros em todos...bem o que quero entender é:Serão 3 Combos(A,B,C) ou 9 combos??

[natalia 0]

Ao inves do exemplo que coloquei p/ facilitar colocarei dados reais.Estes list são de idiomas, que são eles: ingles(A), espanhol( B) , frances© e alemão(D). Cada idioma possui 3 lists que são: Lê® , Escreve(W), Fala(S).Os numeros: 0, 1, 2, 3 são os niveis.Vou colocar um exemplo de um dos lists (ingles - escreve): <SELECT name="AW" class="list" tabindex="4"> <option value="AW0">Não</option> <option value="AW1">Básico</option> <option value="AW2">Intermediário</option> <option value="AW3">Avançado</option> </SELECT>AW0 - Ingles - escreve- não possuiAW1 - Ingles - escreve- basicoAW2 - Ingles - escreve- intermediarioAW3 - Ingles - escreve- avancadoJuntando todos os cursos vira isso: AW2/AR2/AS3*BW2/BR2/BS2*CW1/CR2/CS1*DW0/DR0/DS0E os valores no banco de dados estão gravados assim. Só que qdo o usuário for atualizar os seus dados preciso deixar selecionado o que ele escolheu qdo fez o cadastro.Será que está mais claro esse exemplo?

[Mário Monteiro 179]

vou tentar "ajeitar", sempre são estes 4 mesmo??

[natalia 0]

São sempre estes 4 idiomas, ao total dá 12 list

[FabricioGomes 0]

natalia, como ja te falamos utilize o Splitvar = "AW2/AR2/AS3*BW2/BR2/BS2*CW1/CR2/CS1*DW0/DR0/DS0"idiomas = Split(var, "*")vai ficar assimidiomas(0) = AW2/AR2/AS3idiomas(1) = BW2/BR2/BS2idiomas(2) = CW1/CR2/CS1idiomas(3) = DW0/DR0/DS0ai voce separa cada um com outro SplitIngles = Split(idiomas(0),"/")Espanhol = Split(idiomas(1),"/")Frances = Split(idiomas(2),"/")Alemao = Split(idiomas(3),"/")vai voce vai ter ingles(0) = AW2ingles(1) = AR2ingles(2) = AS3com o right voce pega so o numero:nivelWingles = right(ingles(0),1)nivelRingles = right(ingles(1),1)nivelSingles = right(ingles(2),1)com essas informacoes, voce mostra na tela para o usuario ou utiliza num select/option para colocar selected no item que corresponder...Bom, espero ter ajudado...

[Mário Monteiro 179]

bem ta ai grande mas funcional...

 

[tr][/tr][tr][/tr]

ASP

<% varGeral = "AW2/AR2/AS3*BW2/BR2/BS2*CW1/CR2/CS1*DW0/DR0/DS0"   varDividida = SPLIT(varGeral,"*")   FOR I = LBOUND(varDividida) TO UBOUND(varDividida)   response.write("LINGUAGEM " & LEFT(varDividida(I),1) & "<br>") Combos = SPLIT(varDividida(I),"/") FOR J = LBOUND(Combos) TO UBOUND(Combos)   response.write("<SELECT name='" & LEFT(Combos(J),2) & "'>")   response.write("<option value='" & LEFT(Combos(J),2) & "0'") IF RIGHT(Combos(J),1) = "0" THEN response.write(" selected ") END IF response.write("> Não </option>")   response.write("<option value='" & LEFT(Combos(J),2) & "1'") IF RIGHT(Combos(J),1) = "1" THEN response.write(" selected ") END IF response.write("> Básico </option>")   response.write("<option value='" & LEFT(Combos(J),2) & "2'") IF RIGHT(Combos(J),1) = "2" THEN response.write(" selected ") END IF response.write("> Intermediário </option>")   response.write("<option value='" & LEFT(Combos(J),2) & "3'") IF RIGHT(Combos(J),1) = "3" THEN response.write(" selected ") END IF response.write("> Avançado </option>")   response.write("</SELECT>")   response.write("<br>")   NEXT   NEXT %>

[FabricioGomes 0]

hehehe, Mario e seus codigos salvadores.. hahahaha http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[natalia 0]

Obrigada pessoal, testarei todos, qualquer eu fala

[Mário Monteiro 179]

hehehe, Mario e seus codigos salvadores.. hahahaha http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

valew cara http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[natalia 0]

Deculpe incomodar novamente, mas as opções gravadas no banco não estão selecionadas, e o nome dos list é o mesmo para todos. Posso te enviar um e-mail com esta tela para você ver?

[Mário Monteiro 179]

Deculpe incomodar novamente, mas as opções gravadas no banco não estão selecionadas, e o nome dos list é o mesmo para todos. Posso te enviar um e-mail com esta tela para você ver?

pow negativo, ta mudando sim, olha o codigo fonte...

[natalia 0]

Ok, vou continuar testando aqui. Muito obrigada pela ajuda.

[natalia 0]

Pessoal, fui analisando o que cada de vcs me passou e finalmente consegui fazer isso, muito obrigada pessoal. Valeu Mario