Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: String nach Zahlen (Formel)
Autor: Martin01
Datum: 12.01.03 22:20
Erweitern mit "÷" '... Private Function Eval(ByVal expr As String) As Object Case "&", "+", "-", "*", "/", "", "÷", "\", "^" '... Case "/", "÷" '... Private Function Eval(ByVal expr As String) As Object '... Case "&", "+", "-", "*", "/", "", "÷", "\", "^" '... ------------------------------------------------------------- Erweitern mit "," nach "." (Dezimalkomma) Public Function mrkEval(ByVal expr As String) As Boolean '... propValue = Eval(expr.ToLower.Replace(","c, "."c)) 'Evt. ',' und '." mit Ländereinstellung oder mit Property anpassen '... ------------------------------------------------------------- Token sollte schon LCase sein Private Function Token(ByVal expr As String, ByRef pos As Short) As Object '... 'Select Case LCase(Token) Select Case Token '... ------------------------------------------------------------- Dim ? As Short könnte für lange Strings nach As Integer angepasst werden ------------------------------------------------------------- Eval gibt zurück: 3 = "2+2-1" 2 = "2+2-1-1" 1 = "3+-2" -1 = "-3+2" -5 = "-3+-2" -5 = "-3-2" 2,5 = "5÷2" 0,4 = 0.2+0,2 ------------------------------------------------------------- Hat schon jemand Eval von Vbn nach VB.NET weiter angepasst ? Vb6 VB.NET ---------------------------------------------------- Len(expr) expr.Length Mid$(expr) expr.Substring ?Case(expr) value.ToLower value.ToUpper Eval = Eval + value Eval += value Token = Token & meChar Token &= meChar ... ...

String nach Zahlen (Formel)	169	Raphael Scherer	09.01.03 09:57
Re: String nach Zahlen (Formel)	864	IsoLizer	09.01.03 15:47
Re: String nach Zahlen (Formel) Teil1	79	Martin01	09.01.03 18:40
Re: String nach Zahlen (Formel) Teil2	80	Martin01	09.01.03 18:41
Danke	61	Raphael Scherer	10.01.03 07:45
Re: String nach Zahlen (Formel)	77	Martin01	12.01.03 22:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen