ruggy94 (Member)
Guru
 
Messaggi: 890
Iscritto: 21/04/2008
|
fai cosė:
Codice sorgente - presumibilmente VB.NET |
Dim x() dim S as string dim D as string x=Split(Riga,"Y") S=replace(x(0),"X","") D=x(1)
|
Cosė hai la stringa S che corrisponde al numero dopo la X e la stringa D che corrisponde al numero dopo la Y
PS: Non ho provato il code
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da GrG:
non basta fare?
Codice sorgente - presumibilmente VB.NET |
If Left(Riga, 4) = "C" Then ElseIf Len(Riga) = 10 Then if left(riga, 4) <> "X" then Drill.AddItem Riga$ 'scrive i valori tipo T11C0.1620 e tutto quello che ha 10 caratteri... end if End If
|
|
eh avevo fatto un errore di distrazione, era cosė:
Codice sorgente - presumibilmente VB.NET |
If Left(Riga, 4) = "C" Then ElseIf Len(Riga) = 10 Then if left(riga, 1) <> "X" then Drill.AddItem Riga$ 'scrive i valori tipo T11C0.1620 e tutto quello che ha 10 caratteri... end if End If
|
al posto di 4 ci va 1.... |
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da ruggy94:
fai cosė:
Codice sorgente - presumibilmente VB.NET |
Dim x() dim S as string dim D as string x=Split(Riga,"Y") S=replace(x(0),"X","") D=x(1)
|
Cosė hai la stringa S che corrisponde al numero dopo la X e la stringa D che corrisponde al numero dopo la Y
PS: Non ho provato il code |
ciao, ho provato ad inserire/modificare il codice per adattare questa tua idea. pero' o sbaglio io o c'e' qualcosa che non funziona. il ciclo for non va piu' utilizzato?
ma senza non va avanti niente... non funziona...
 Ultima modifica effettuata da azz.ciccio il 13/04/2009 alle 21:44 |
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Codice sorgente - presumibilmente Delphi |
If Left(Riga, 1) = "X" Then s = Split(Riga, "Y") f=replace(s(0),"X","") ListX.AddItem f ListY.AddItem s(1) CodeFull.AddItem Riga$ End If
|
|
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da ruggy94:
Codice sorgente - presumibilmente Delphi |
If Left(Riga, 1) = "X" Then s = Split(Riga, "Y") f=replace(s(0),"X","") ListX.AddItem f ListY.AddItem s(1) CodeFull.AddItem Riga$ End If
|
|
ciao, perfetto! grazie adesso e' perfetto! ho solo fatto qualche rettifica al codice.
Codice sorgente - presumibilmente Delphi |
Sriga = Riga If Left(Riga, 1) = "X" Then S = Split(Riga, "Y") Riga = Replace(S(0), "X", "") ListX.AddItem Riga ListY.AddItem S(1) i = i + 1 Label4 = i End If Riga = Sriga CodeFull.AddItem Riga$
|
|
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
prego 
 questo post sta diventando kilometrico
|
|
|
()
Newbie
Messaggi:
Iscritto:
|
sinceramente se farai una release successiva ti consiglio di usare un db, almeno con l'SQL risparmi un sacco di tempo 
|
|
|
()
Newbie
Messaggi:
Iscritto:
|
sinceramente se farai una release successiva ti consiglio di usare un db, almeno con l'SQL risparmi un sacco di tempo
|
|
|
