String til int

Hej.

Text1.Text indeholder 1+2*3

Under forudsætning af at der kun forekommer ét plus-tegn og ét gange-tegn og ingen decimaler:

Dim a, b, c as Integer, tal1, tal2, tal3, resul as Long
  a = instr(text1.text,"+")
  b = instr(text1.text,"*")

  tal1 = val(left(text1.text, a - 1)
  tal2 = val(mid(text1.text, a + 1, b - 1)
  tal3 = val(mid(text1.text, b + 1)

  resul = (tal1 + tal2) * tal3

Du må selv udbygge med muligheden for minus

M.v.h.  Jørn

Se http://www.eksperten.dk/spm/251627

Hej.

Joern bruger VB5, der er ikke understøttelse af scriptcontrol.  Men det er da ellers smart.

M.v.h.  Jørn

Kan int(strNogetTekst) ikke bruges?

Jeg tror der er noget der hedder StrToInt() eller sådan etwas.

næ det er der ikk',  - Sorry

/Trøv :-)

Hej.

Hvad er så løsningen ?

m.v.h.  Jørn

Proøve den her...den kun køre v-til-h

Sub Add_TextField()

    Dim a, b, x, y, z
    Dim Hold, HopOut
   
    y = 1
   
    For x = 2 To (Len(Text1.Text))
        z = Mid(Text1.Text, x, 1)
        Select Case z
            Case "+", "-", "/", "*"
HopIn:
                a = Mid(p_Text1, y, x - y)
                Select Case Hold
                    Case "+"
                        b = b + CSin(a)
                    Case "-"
                        b = b - CSin(a)
                    Case "/"
                        b = b / CSin(a)
                    Case "*"
                        b = b * CSin(a)
                    Case Else
                        b = a
                End Select
                If HopOut Then Exit For
                Hold = z    'previous math value
                y = x + 1    'start number position
        End Select
    Next
   
    If Hold <> "" And HopOut = False Then
        HopOut = True
        GoTo HopIn
    End If
   
    Test = CSin(b)
End Sub

Her er et eksempel:
Citat fra projekt-beskrivelsen: "Wow! This program will evaluate expressions like: 2*3^sin(2)+23/(2*Abs(-8.5)! This code is worth its weight in gold!"
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=4896&lngWId=1 (det er en 'Award Wining Code' fra Planet-Source-Code :))
-Sion