Newsgroup: it.comp.lang.visual-basic
Titolo: Come suddividere un numero.

Salve.
Sono sicuro che il subject č poco chiaro e sono anche sicuro che su questo
NG c'č almeno una persona che sa risolvere il mio problema (Adriano Ghezzi
ne sai qualcosa?  ;-))))  )
BTW...passiamo al dunque...
io ho la seguente cifra: 02.34.05 in una label. Come posso suddividere
questo numero a due a due in modo da far apparire in tre rispettive label 02
, 34 e 05?
Spero di essere stato chiaro.
Grazie mille...
...Alfonso Di Stasio.
__________________________
                 by D.S.A.
 
adi...@tin.it
http://space.tin.it/sport/mdistasi
__________________________

Caro Alfonso,
credo che sia un problema facilmente risolvibile:
immagina che la label sia label1.
firstPos=instr(label1.caption,".")
secondPos=instr(firstPos+1,label1.caption,".") +firstPos
primoNumero=left(label1.caption,firstPos-1)
secondoNumero=mid(label1.caption,firstPos+1,secondPos-firstPos-1)
terzoNumero=mid(label1.caption,secondPos+1)
Ciao
Luca


risposta generale
Dim index As Integer
Dim Testo As String, Pos As Integer
Testo = Label4.Caption
Pos = InStr(1, Testo, ".")
While Pos
    Label1(index).Caption = Left$(Testo, Pos - 1)
    Testo = Mid$(Testo, Pos + 1)
    index = index + 1
    Pos = InStr(1, Testo, ".")
Wend
Label1(index).Caption = Testo
se valgono sempre le condizioni xx.yy.zz puoi scrivere
For Temp = 0 To 2
     Label1(Temp).Caption = Mid$(Testo, (Temp * 3) + 1, 2)
Next Temp
N.B. i numeri li memorizzi in una matrice di label
Ciao Bruno

 , 34 e 05?
Se ho capito bene dovresti usare la funzione INSTR (Vedi manuale) per
intercettare il punto e combinarla con le funzioni
LEFT e MID (Vedi manuale) per prendere i pezzi di stringa che ti servono.
Qualora il contenuto della label non fosse una stringa puoi renderla tale con la
funzione STR (Vedi manuale).
ciao.

__________________________

Io ho un metodo un po' maccaronico... Salvi la stinga in un file, lo
apri come binary e poi leggi i singoli byte e quando trovi il punto...
Ciao.
""""""""""""""""""""""""""""""""""""""""""""""
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
""""""""""""""""""""""""""""""""""""""""""""""
                 Trust no ONE.

                 Trust no ONE.




>__________________________

Terza = Right(Stringa,2)
Cavoli, hai veramente centrato, la via piu' semplice da percorrere e'
sempre la piu' difficile da scoprire (Federico Galli, me la sono
inventata al momento...)


Non credo proprio. Il trio di funzioni che suggerisce Adriano lo conosce
chiunque abbia avuto esperienze con il mitico Commodore 64, me incluso.
--
===================================
E.G. er Cicca
Potete trovarmi in chat su Italiano_chat.
Il mio nick è Cicca e ho la faccia di un alieno.
===================================


chiunque abbia avuto esperienze con il mitico Commodore 64(...)
o anche col gwbasic... ;-)  Bye.
Greg
gbia...@logix2.lognet.it
http://www.geocities.com/Athens/Aegean/3276/index.html


http://www.geocities.com/Athens/Aegean/3276/index.html

Carissimo Enrico,
la sai quella dell' uovo di Colombo? Non era difficile, ma... bastava
pensarci. E cos+AOw- funziona anche per la programmazione+ADs- tutti lo sanno, ma
pochi ci pensano. Quante volte creiamo una funzione perche ci dimentichiamo
che ne esiste una che fa la medesima cosa della nostra?
Enrico Gueli ha scritto nel messaggio
+ADw-6kcdlo+ACQ-r1o+ACQ-1+
AEA-server-b.cs.interbusiness.it
+AD4-...
+AD4-Non credo proprio. Il trio di funzioni che suggerisce Adriano lo conosce
+AD4-chiunque abbia avuto esperienze con il mitico Commodore 64, me incluso.

...
