Formel wird nicht ersetze

Madd Eye · 4. Oktober 2010, 23:06

Hallo Zusammen,
nach langer zeit hab ich mal wieder ne frage an euch

Ich habe folgenden Code

VB.NET-Quellcode

Public Function calc(ByVal Formel as String) as String
Dim start As Integer
If Formel.Contains("sqr") Then
start = Formel.IndexOf("sqr")
For i As Integer = start + 4 To Formel.Length - 1
If Formel.Substring(i, 1) = ")" Then
Dim re As String = "sqr(" + Formel.Substring(start + 4, i - start - 4) + ")"
Replace(Formel, re, Math.Sqrt(Formel.Substring(start + 4, i - start - 4)))
End If
Next
End if
Return Formel
End Function

So wenn ich den String Formel dann ausgeben lasse ist er immer noch der selbe wie vorher

Beispiel:
Ich gebe ein: sqr(9)
Was sollte rauskommen: 3
was kommt raus: sqr(9)

aber warum?

Hoffe mir kann einer helfen

MFG

Madd

Turtle10 · 4. Oktober 2010, 23:54

Hi,

Replace verändert den Ausgangsstring nicht, sondern liefert ein neues String-Objekt zurück, d.h. du musst neu zuweisen:

VB.NET-Quellcode

Formel=Replace(...)

Ich würde übrigens lieber die Replace-Methode der String-Klasse verwenden...

MfG

RodFromGermany · 7. Oktober 2010, 09:27

Probiere es mal mit

Quellcode

Public Function calc(ByVal Formel As String) As String
Dim start As Integer
If Formel.Contains("sqr") Then
start = Formel.IndexOf("sqr")
For i As Integer = start + 4 To Formel.Length - 1
If Formel.Substring(i, 1) = ")" Then
Dim re As String = "sqr(" + Formel.Substring(start + 4, i - start - 4) + ")"
Formel = Replace(Formel, re, Math.Sqrt(Formel.Substring(start + 4, i - start - 4)))
' Die folgende Zeile machts aus:
Return Formel
End If
Next
End If
Return "Nix funden"
End Function

Madd Eye · 7. Oktober 2010, 22:02

Danke Leute hat geklappt

War 2 Tage nicht am PC deshalb erst so spät ne antwort xD

Formel wird nicht ersetze

Formel wird nicht ersetze

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben