---

Hallo,

habe ein Problem bei der Fomatierung von Zahlen.

Würde diese gerne im Format "0.000000000E+00" ausgeben.

Habe zuerst die Funktion Format(Wert, "0.000000000E+00") versucht, Fehlermeldung: Typen unverträglich.
Habe dann festgestellt, dass meine Variable "Wert" vom Typ Double ist, was diese Funtkion nicht akzeptiert.

Dann wollte ich Wert.ToString("E") verwenden, kommt aber die selbe Fehlermeldung.

Hier mal ein Ausschnitt aus meinem Code:

Code:

---

...
Dim nFaktorTF, nFaktorWL, nSectionTF, nSectionWL, PointsTF(), PointsWL() As Double
Dim myPointCoord(2) As CATSafeArrayVariant
...
' Die einzelnen Punkte pro Schnitt speichern
Do
Set objPointColl(j) = objSel.Item(j + 1).Value
Set objPointRef = myPart.CreateReferenceFromObject(objPointColl(j))
Set objMeasurable = SPAWB.GetMeasurable(objPointRef)
objMeasurable.GetPoint myPointCoord

' Koordinaten des Punkts in Array speichern (-X und -Y, da Achsensystem.1 anders als das CATIA-interne ausgerichtet ist)
PointsTF(i,nSecPoint,0) = Replace(-myPointCoord(0),",",".")
PointsTF(i,nSecPoint,1) = Replace(-myPointCoord(1),",",".")
PointsTF(i,nSecPoint,2) = Replace(myPointCoord(2),",",".")

' Nächster Punkt
nSecPoint = nSecPoint + 1
j=j+1

Loop While (j <= objSel.Count - 1)
...
Do
myText = myText &Chr(10) & PointsTF(j,i,0) & " " & PointsTF(j,i,1) & " " & PointsTF(j,i,2)
i=i+1
Loop While (i <= nSecPoints-1)
...

---

Ein bisschen viel irrelevantes drum herum, jedenfalls soll der Wert des Arrays PointsTF(j,i,k) formatiert werden.

Nach über zwei Studen Recherche weis ich nicht mehr weiter und hoffe auf Eure Hilfe!

Danke und Gruß
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
AFAIK muss die Variabel die du an die Funktion übergibst ein Double sein, der Rückgabewert ist ein String. Das Ersetzen des "." durch "," würde ich erst danach machen.

Code:

---

Sub FormatTest()

Dim Wert As Double
Dim Text As String

Wert = 0.123

Text = Format(Wert, "0.000000000E+00")

MsgBox Text

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also wenn ich es so mache, gibt er auch aus "Typen unverträglich".
Ich dachte gelesen zu haben, dass der Wert KEIN Double sein darf. Finde es aber im Moment nicht mehr. Deshalb die Sache mit dem ToString.

Ich habe die Funktion "Format()" auch nur im Zusammenhang mit Visual Basic gefunden. Aber mit der Funktion an sich scheint er ja kein Problem zu haben.

Für VBScript konnte ich nur die Funktion FormatNumber() finden. Damit lässt sich meines Erachtens aber keine "scientific", also Exponentialschreibweise, erzeugen.

Edit: Oder hat er vielleicht ein Problem damit, dass mein "Double-Wert" in Form eines Arrays vorliegt?

[Diese Nachricht wurde von danw am 16. Jul. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Ich hatte meinen Code mit VBA getestet, dort kann man mit der Funktion "Format" auch benutzerdefinierte Formatvorgaben definieren.
In CATScript geht dies IMHO nicht. Da musst du dir ggf was eigenes zusammenbasteln.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ok, nun scheint es aber auch mit der normalen Formatierung bzw. keiner Formatierung zu funktionieren.

Vielen Dank.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP