Dichiarare tante variabili quante ce ne sono nel parametro

**mirko000** · 27-01-2012, 16:16

Ciao a tutti !

Questo è il mio codice

<html>
<head>
<title> Combinazioni </title>
</head>
<body>
<%@ Page Language="VB" Trace="false" Debug="true" aspcompat=true%>
<script runat="server">

Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dim NumPar
dim NumNum
dim NumCon = 0
NumPar = request.form("NumPar")
NumNum = request.form("NumNum")

IF (NumPar = String.Empty) THEN
response.write("<form name='Combina' target='_blank' method='post' action='Index.aspx'>")
response.write("<h2>Numero parole </h2><input type='text' name='NumPar' id='NumPar' placeholder='Numero parole'>")
response.write("<h2>Numero numeri </h2><input type='text' name='NumNum' id='NumNum' placeholder='Numero numeri'>")
response.write("<input type='submit' name='Invio' value='Invio' id = 'Invio' >

")
END IF

response.write("<form name='Dati' target='_blank' method='post' action='Combinazioni.aspx'>")
DO WHILE (NumPar<>NumCon)
response.write("<h2>Parola")
response.write(NumCon+1)
response.write("</h2><input type='text' name='Par")
response.write(NumCon)
response.write("' id='Par")
response.write(NumCon)
response.write("' placeholder='Parola'>")
NumCon = NumCon + 1
LOOP
NumCon = 0
DO WHILE (NumNum<>NumCon)
response.write("<h2>Numero")
response.write(NumCon+1)
response.write("</h2><input type='text' name='Num")
response.write(NumCon)
response.write("' id='Num")
response.write(NumCon)
response.write("' placeholder='Numero'>")
NumCon = NumCon + 1
LOOP
response.write("<input type='submit' name='Combina' value='Combina' id = 'Combina' onClick='return Check()' >")
end sub

</script>
</body>
</html>

Come potete vadere già creo tanti input quanti ne richiede l utente, ora orrei dichiarare tante variabili quanti campi di input sono stati creati

es
dim Par0
dim Par1
dim Par3

Ho provato cavolate come creare un contatore e concatenarlo nel momento della dichiarazione ma ovviamente senza successo.

Idee ?

Grazie

**pietro09** · 30-01-2012, 17:17

Hai provato con un vettore?

dim Par(n-1) as string

**djciko** · 30-01-2012, 18:14

provieni da asp vero ?
in asp.net per fare queste cose ci sono gli user control (è un off-topic, ma inizia a considerarli, una volta che ci hai smanettato le cose si semplificano)

ps, per favore, usa i tag CODE per il codice.

**mirko000** · 01-02-2012, 10:20

Perfetto !

Sono riuscito trami un vettore ! Grazie mille..
Mentre invece ora mi servirebbe l algoritmo per poter ottenere tutte le possibili combinazioni di lettere e numeri passati dall utente.. mi sapreste indicare la categoria, sempre se c è, in cui chiederlo ?

Ecco il codice funzionante.

codice:

<html> <head> <title> Combinazioni </title> <script src="js/jquery-1.3.2.min.js" type="text/javascript"></script> <script src="js/slide.js" type="text/javascript"></script> <script src="js/jquery.min.js"> </head> <body> <%@ Page Language="VB" Trace="false" Debug="true" aspcompat=true%> <%@ Import Namespace = "System.Net.Sockets"%> <%@ Import Namespace = "System.Text" %> <%@ Import Namespace = "System.IO" %> <script runat="server"> Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dim NomFil dim Par dim Num dim Combo dim Combo1 dim Combo2 dim Combo3 dim ComboApp dim ComboApp1 dim fs dim fo dim NumPar dim NumNum dim Cont = 0 NumPar = request.form("NumPar1") NumNum = request.form("NumNum1") NomFil = request.form("NomFil1") dim VetNumPar(NumPar-1) as string dim VetNumNum(NumNum-1) as string response.write("NomFil "&NomFil) response.write("
") DO WHILE (Cont < NumPar) Par = "Par"+STR(Cont).Trim VetNumPar(Cont) = request.form(Par) response.write("VALORE ") response.write(VetNumPar(Cont)) response.write("
") Cont = Cont + 1 LOOP Cont = 0 DO WHILE (Cont < NumNum) Num = "Num"+STR(Cont).Trim VetNumNum(Cont) = request.form(Num) response.write("VALORE ") response.write(VetNumNum(Cont)) response.write("
") Cont = Cont + 1 LOOP Combo1 = VetNumPar(0)+VetNumNum(0) Combo2 = VetNumNum(0)+VetNumPar(0) ComboApp = MID(VetNumPar(0),1,1) ComboApp1 = MID(VetNumPar(0),2) Combo3 = ComboApp+VetNumNum(0)+ComboApp1 Combo = Combo1+VbCrLf+Combo2 response.write("Combo1 "&Combo1) response.write("
") response.write("Combo2 "&Combo2) response.write("
") response.write("Combo3 "&Combo3) response.write("
") response.write("Password "&Combo) ' Creo una istanza dell'offetto FileSystemObject fs = Server.CreateObject("Scripting.FileSystemObject") ' Apro il file fo = fs.OpenTextFile("C:\Inetpub\wwwroot\"+NomFil+".txt", 2, true) fo.WriteLine(Combo) ' Chiudo fo.Close ' Faccio pulizia fo = Nothing fs = Nothing end sub </script> </body> </html>

Discussione: Dichiarare tante variabili quante ce ne sono nel parametro

Strumenti discussione

Ricerca discussione

Visualizza

Dichiarare tante variabili quante ce ne sono nel parametro

Permessi di invio