Hallo Leute,
Hab mal ne Frage zu dem kleinen Script-
Ich möchte das die gesäuberte Zahl ohne Punkt erscheint also so das auch der Punkt weggelöscht wird und eine Zahl als wert wie z.B:12435 ausgeworfen wird.
Wie kriege ich den Punkt noch weggelöscht ??
Kann mir jemand bitte den entscheidenen Tipp gebeb ?
Ich brauch nur eine Zahl als Ergebnis ohne Schnörkel usw.
Danke Leute im voraus !!!!
mfg Rocco
StringCleantonum.au3
; wie bring ich saubere numerische Werte zusammen
#include <string.au3>
$StringtoTest="müll: 12.435"
$ergebnis=StringCleantoNum($StringtoTest)
if $ergebnis <> "x" then
msgbox(0,"so seh ich gesäubert aus", $ergebnis)
else
msgbox(32,"mit dem Schrott kann ich","nix anfangen")
EndIf
Func StringCleanToNum($stringtoconv)
; Ausgabe der gesäuberten Zahl
; Fehlerfalle: Ausgabe von x
$sepwritten=0 ; noch kein Punkt rausgeschrieben
Local $Hilf, $i, $convString
$aryChar = StringSplit($stringtoconv, "")
; jetzt hab ich das Teil im array
For $i = 1 To $aryChar[0]
; nur Ausgabe wenn Integer Wert
If StringIsInt($aryChar[$i]) then
$convString = $convString & $aryChar[$i]
else
select
case $aryChar[$i]="," AND $sepwritten=1
Return "x"
case $aryChar[$i]="." AND $sepwritten=1
Return "x"
case $aryChar[$i]=","
$convString=$convstring & "."
$sepwritten=1
case $aryChar[$i]="."
$convString=$convstring & "."
$sepwritten=1
endselect
Endif
Next
if StringLen($convString)=0 then
Return "x"
Else
Return $convString
EndIf
EndFunc