I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
mabel
mabel
il 15 aprile 2003 alle 17:08
26 messaggi dal 14 ottobre 2002
Ciao a tutti, un problema grosso mi attanaglia...
ho due numeri, uno iniziale ed uno finale e con una procedura devo riuscire a creare i valori intermedi.
Esempio val1=000001 val2=000008 e la procedura deve creare i valori intermedi, quindi 000002, 000003, 000004, ecc. Questa procedura funziona con la funzione Cint.
Il mio problema è che i due valori sono costituiti anche da una parte letterale, il che mi complica le cose! Quindi la mia situazione è
Val1=IT-000001, Val2=IT-000010 e devo far creare in automatico i valori intermedi IT-000002, IT-000003, IT-000004 ecc.
Il pattern dei valori è sempre uguale: [IT-]
Mi aiutate????
Grazie
RispondiQuoting
Raynor
Raynor
il 15 aprile 2003 alle 17:43
3.122 messaggi dal 16 maggio 2002
Se sai che i valori sono sempre così allora prendi solo la parte destra della stringa, escludendo i primi 3 caratteri (IT-)

valore = Right(valore, Len(valore)-3)
The day Microsoft makes something that doesn't suck
is probably the day they start making vacuum cleaners.

Get caught!
Get caught again!
RispondiQuoting
mabel
mabel
il 16 aprile 2003 alle 15:00
26 messaggi dal 14 ottobre 2002
Grazie per l'aiuto, ma continua a darmi l'errore
Type Mismatch '[string: "IT-200001"]'.
Il campo del database in cui vanno inseriti i codici è di tipo testo...
Sembra quasi che non riesca ad estrapolare la parte numerica della stringa e fare l'incremento con quella!!
RispondiQuoting
pegaso
pegaso
il 16 aprile 2003 alle 15:29
512 messaggi dal 30 maggio 2002
Prova così:

For n = Mid(Cint(valore1),4) to Mid(Cint(valore2),4)
Response.Write(Left(valore1,3 ) & Right("00000" & cStr(n),6)
Next
Modificato da pegaso il 16 aprile 2003 15.30 -
se sapessero cosa penso sarei già morto...
RispondiQuoting
mabel
mabel
il 16 aprile 2003 alle 15:46
26 messaggi dal 14 ottobre 2002
Niente ancora: Type mismatch 'Cint'

Questo è il mio codice originale che non funziona:

val1=Request.form("val1")
val2=Request.form("val2")

WHILE val1<=val2
strSql="INSERT INTO Codici_Nuovi(Codice) VALUES ('"& val1 &"'')"
dbConnection.Execute strSql
val1=val1+1
WEND
RispondiQuoting
rome
rome
il 16 aprile 2003 alle 16:18
2.907 messaggi dal 15 maggio 2001
Contributi
<%
val1=IT-000011
val2=IT-000020

For i=Replace(Cint(Replace(val1,"IT-","")),"-","") to Replace(Cint(Replace(val2,"IT-","")),"-","")
Response.write("IT-0000"&i&"<br>")
Next
%>

RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.