Array, For each?

[RCM 0]

Boa tarde,

tenho a seguinte string:

 

ArrayParametros = PIC9(3),PIC9(11),PICX(25),PICX(2),001,92453769191,Fulano da Silva,01

 

Como eu faço para deixar assim:

 

PIC9(3) = 001

PIC9(11) = 92453769191

PICX(25) = Fulano da Silva

PICX(2) = 01

 

 

Os 4 parametros iniciais retiro de um arquivo .txt, e os 4 parametros finais são vindos de um formulário.

Porém os parametros são dinâmicos, podem ter 3, 5 ou 20 etc.

 

[xanburzum 169]

se souber quantos elementos virão fica mais fácil, dae use o Split

[RCM 0]

Boa noite,

Dá para saber sim quantos elementos vem em ambos os lados.

No caso estou colocando um contador em cada for each, com isso fico sabendo quantos elementos eu tenho.

[xanburzum 169]

use a função Split e depois você até pode por em um txt ou apenas

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%  
ArrayParametros = "PIC9(3),PIC9(11),PICX(25),PICX(2),001,92453769191,Fulano da Silva,01"
 
a= Split(ArrayParametros, ",")  
 
For iCounter = 0 to Ubound(a)  
Response.Write a(iCounter) & " <br />"  
Next  
 
Response.Write (" <br />")
Response.Write(a(0) & "=" & a(4))
Response.Write (" <br />")
Response.Write(a(1) & "=" & a(5))
Response.Write (" <br />")
Response.Write(a(2) & "=" & a(6))
Response.Write (" <br />")
Response.Write(a(3) & "=" & a(7))
Response.Write (" <br />")



'PIC9(3)   = 001

'PIC9(11) = 92453769191

'PICX(25) = Fulano da Silva

'PICX(2)   = 01
 
%>