[VB6]Eseguire un calcolo con una stringa

[zampa28]

Ho una stringa di questo tipo prelevata da database:

MyStr = "/100*130"

Cosa devo fare se voglio calcolare ad esmepio

Risultato = X/100*130

Grazie

[ladyBlu]

che cosa rappresenta la variabile "X"?

[zampa28]

un qualsiasi dato numerico

[ladyBlu]

ok, allora avrò:

X = 500
MyStr = "/100*130"
risultato = CSng(X) / CSng(100) * CSng(130)
MsgBox risultato

risultato = 650


ciao

[Mabi]

Se però i numeri della stringa variano li devi estrarre e convertire.

Dim Stringa1 As String

Dim X As Long
Dim Num1 As Long
Dim Num2 As Long
Dim Risultato As Long

Dim PosPer As Integer


Stringa1 = "/100*130"

PosPer = InStr(1, Stringa1, "*")

X = 500
Num2 = CLng(Right(Stringa1, Len(Stringa1) - PosPer))
Stringa1 = Mid(Stringa1, 2, PosPer - 2)
Num1 = CLng(Stringa1)

Risultato = CStr(X / Num1 * Num2)
MsgBox CStr(Risultato)

[ladyBlu]

scusa mabi, non ho capito...:master:

[ladyBlu]

una cosa sbagliata, o meglio una distrazione, sul mio codice ci sta; infatti così com'è non tiene conto dei numeri con la virgola, quindi andrà modificata così, aggiungendo un Replace:

X = 25.5
X = Replace(X, ".", ",")

MyStr = "/100*130"
Risultato = CSng(X) / CSng(100) * CSng(130)
MsgBox Risultato

[ladyBlu]

Originariamente inviato da Mabi
Se però i numeri della stringa variano li devi estrarre e convertire.

....

ho capito cosa volevi dire... però il tuo codice restituisce un risultato Long e non consente di manipolare valori con la virgola.
ho modificato così il tuo codice... e mi sembra che sia perfetto.
è una fusione tra ciò che ho postato io e ciò che hai postato tu:

Dim MyStr As String
Dim X As Single
Dim Num1 As Single
Dim Num2 As Single
Dim Risultato As Single
Dim PosPer As Integer

MyStr = "/100*130"
PosPer = InStr(1, MyStr, "*")

X = 150

X = Replace(X, ".", ",")
Num2 = CSng(Right(MyStr, Len(MyStr) - PosPer))
MyStr = Mid(MyStr, 2, PosPer - 2)
Num1 = CSng(MyStr)

Risultato = CSng(X) / CSng(Num1) * CSng(Num2)
MsgBox Risultato

[vonkranz]

Forse lui intendeva una cosa del genere:

Dim vbs As New ScriptControl 
Dim y as long 
MyStr = "22/100*130" 
vbs.Language = "VBSCRIPT" 
y = vbs.Eval MyStr

[zampa28]

Se funziona ti amo Von!

M;a mi ero spiegato così male?