Newsgroup: it.comp.lang.visual-basic
Titolo: modifica voce stringa in numero

salve... ho stringhe tipo 01234gen6789...  come faccio in un processo a dire
di cambiare "gen" o qualsiasi altra scritta non numerica in un numero?
grazie 1000

 di cambiare "gen" o qualsiasi altra scritta non numerica in un numero?
???
che numero vorresti uscisse dalla stringa
0123antonio456stammi78bene9 ?
ps. il cross non e' visto con benevolenza!
beppe

 beppe

 che "gen" vale 5 e lo sostituisce in "0123456789"!
uh, facile!
if stringa="01234gen6789" then risultato="0123456789" else msgbox "cerca
replace sul manuale"
termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

no no no... i numeri sono numeri casuali... in mezzo ai numeri ci sono delle
stringhe note che il codice conosce e che verranno trasformate in numero...
magari imposto "gen" con valore 42... in quel caso sarebbe 01234426789
"termoPilucco" <te...@Piluc.co> ha scritto nel messaggio
news:ce519p$3gm$1...@news.newsland.it...



Devi avere una tabella di correlazione oppure usi delle matrici dove a dei
valori alfanumerici, abbini dei numeri!
Poi come ti ha detto termoPilucco, con la Replace sostituisci le lettere con
i numeri.
Ciao, Vincenzo

Ciao,
"Cigo84" scrive:

allora modificalo con :
Private Sub Command1_Click()
    Dim Stringa As String, Testo, Ordine, N As Integer
    Testo = Array("tudi", "1", "se n", "pire", "ca al", "on h", "meno d", "a
di s", "ai v", "are cer", "i ca")
    Ordine = Array(2, 5, 8, 1, 7, 0, 9, 4, 6, 10, 3)
    Stringa = "01234ogli6789"
    If Stringa = "01234gen6789" Then
        Stringa = "01234426789"
    Else
        Stringa = ""
        For N = 0 To UBound(Ordine)
            Stringa = Stringa & Testo(Ordine(N))
            Stringa = Replace(Stringa, "1", "ogli")
        Next N
    End If
    MsgBox Stringa
End Sub
beppe


ROTFL!
Ciao, Vincenzo

 di cambiare "gen" o qualsiasi altra scritta non numerica in un numero?
se ho capito cosa intendi, puoi far cosě per esempio:
stringa_pulita = replace$(stringa_originale, "gen", "01")

 End Sub
Si credo sia la soluzione ottimale questa vediamo se Capisce !
-- 
-Gigio@Work(?)-

 ha scritto nel messaggio
news:2mpnsiF...@uni-berlin.de...


 fate quello che vi pare... tanto gli scortesi SIETE VOI
NB: non hai capito na mazza !!!
Rileggi con calma il thread. Seriamente, offese a parte !
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/


Guarda bene che la soluzione ti è stata data! Quindi lo scortese sei tu.
Ciao, Vincenzo

 fate quello che vi pare... tanto gli scortesi SIETE VOI
penso che per certi versi tu possa aver ragione, rispondere a certa gente
puo' dare l'impressione che uno non abbia un cazzo da fare da mattina a
sera.
ti invito a leggere attentamente il messaggio ad oggetto [MANIFESTO]
Manifesto ufficiale di it.comp.lang.visual-basic, puntualmente postato ogni
settimana, con particolare riferimento all'art. 12 e 13, un'infarinatura di
tutte le altre regole comunque non ti farebbe male, come del resto un po' di
ironia e senso dell'umorismo.
se in ogni caso pensi di essere stato pesantemente offeso, da parte mia ti
chiedo scusa, ma nel contempo, adeguandomi al tuo linguaggio 'at mand'a
cagher'.
beppe

 ha scritto nel
messaggio news:2nelh2...@uni-berlin.de...
