[vbs]trovare Un Numero In Una Stringa

[Pescio]

Salve a tutti!

Sono alle prime armi in visual basic e stò realizzando un programma per uso personale dove mi sarebbe utile rintracciare dei numeri all'interno di una stringa. vi faccio un'esempio:

stringa: "pantaloni € 30,00, camicia € 15,00"

Da qui voglio estrarre i numeri per ottenere il totale cioè: "45,00"

Potete aiutarmi?

Grazie in anticipo!

[sIx]

Potresti usare un algoritmo del genere

dim i as integer 'indicatore
dim stringa as string 'stringa principale
dim euro as double 'valore in euro finale
dim max as integer 'numero lettere della stringa
dim temp as string 'variabile temporanea

max=len(stringa)
for i=1 to max
   if Mid(stringa,i,1) = "0" or Mid(stringa,i,1) = "1" or Mid(stringa,i,1) = "2" or Mid(stringa,i,1) = "3" or Mid(stringa,i,1) = "4" or Mid(stringa,i,1) = "5" or Mid(stringa,i,1) = "6" or Mid(stringa,i,1) = "7" or Mid(stringa,i,1) = "8" or Mid(stringa,i,1) = "9" or Mid(stringa,i,1) = "." then
		temp=temp & mid(stringa,i,1)
	elseif Mid(stringa,i,1) = "," then
		temp= temp & "."
   endif
next
euro=val(temp)

Ed ovviamente poi gestirti in maniera tua i valori in euro per ottenere il totale o qualsiasi cosa

Modificato July 23, 2007 da sIx

[Pescio]

Grazie!!