Post by effel » 21 Jun 2020, 05:11
Respekt verdiene ich aber nur fürs festbeissen
leider muss ich auch den letzten Post zurückziehen
bei Milliarden Werten versagt er total
die Stellen hinter dem Komma werden abgeschnitten
auch ein durch-iterieren der gedachten Möglichkeiten bringt keinen Erfolg.
Code: Select all
Var = 11222333444,11
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -6), "") StrReplace(SubStr((tsP(Var)), -6), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -5), "") StrReplace(SubStr((tsP(Var)), -5), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -4), "") StrReplace(SubStr((tsP(Var)), -4), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -3), "") StrReplace(SubStr((tsP(Var)), -3), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -2), "") StrReplace(SubStr((tsP(Var)), -2), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -1), "") StrReplace(SubStr((tsP(Var)), -1), ".", "")
VarAll .= newVar "`n"
MsgBox % VarAll
exitapp
tsP(ZAHL) {
StringSplit,u,ZAHL
IF (u0 > 3)
DUMMI:= (u0=4) ? (ZAHL := u1 "." u2 u3 u4 ) : (u0=5)?(ZAHL := u1 u2 "." u3 u4 u5) : (u0=6) ? (ZAHL := u1 u2 u3 "." u4 u5 u6) : (u0=7)? (ZAHL := u1 "." u2 u3 u4 "." u5 u6 u7) : (u0=8) ? (ZAHL := u1 u2 "." u3 u4 u5 "." u6 u7 u8) : (u0=9) ? (ZAHL := u1 u2 u3 "." u4 u5 u6 "." u7 u8 u9) : (u0=10) ? (ZAHL := u1 "." u2 u3 u4 "." u5 u6 u7 "." u8 u9 u10) : (u0=11) ? (ZAHL := u1 u2 "." u3 u4 u5 "." u6 u7 u8 "." u9 u10 u11) : (ZAHL:= u1 u2 u3 "." u4 u5 u6 "." u7 u8 u9 "." u10 u11 u12)
return ZAHL
}
Respekt verdiene ich aber nur fürs festbeissen :shock:
leider muss ich auch den letzten Post zurückziehen
bei Milliarden Werten versagt er total
die Stellen hinter dem Komma werden abgeschnitten
auch ein durch-iterieren der gedachten Möglichkeiten bringt keinen Erfolg.
[code]Var = 11222333444,11
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -6), "") StrReplace(SubStr((tsP(Var)), -6), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -5), "") StrReplace(SubStr((tsP(Var)), -5), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -4), "") StrReplace(SubStr((tsP(Var)), -4), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -3), "") StrReplace(SubStr((tsP(Var)), -3), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -2), "") StrReplace(SubStr((tsP(Var)), -2), ".", "")
VarAll .= newVar "`n"
newVar := StrReplace( tsP(Var), SubStr((tsP(Var)), -1), "") StrReplace(SubStr((tsP(Var)), -1), ".", "")
VarAll .= newVar "`n"
MsgBox % VarAll
exitapp
tsP(ZAHL) {
StringSplit,u,ZAHL
IF (u0 > 3)
DUMMI:= (u0=4) ? (ZAHL := u1 "." u2 u3 u4 ) : (u0=5)?(ZAHL := u1 u2 "." u3 u4 u5) : (u0=6) ? (ZAHL := u1 u2 u3 "." u4 u5 u6) : (u0=7)? (ZAHL := u1 "." u2 u3 u4 "." u5 u6 u7) : (u0=8) ? (ZAHL := u1 u2 "." u3 u4 u5 "." u6 u7 u8) : (u0=9) ? (ZAHL := u1 u2 u3 "." u4 u5 u6 "." u7 u8 u9) : (u0=10) ? (ZAHL := u1 "." u2 u3 u4 "." u5 u6 u7 "." u8 u9 u10) : (u0=11) ? (ZAHL := u1 u2 "." u3 u4 u5 "." u6 u7 u8 "." u9 u10 u11) : (ZAHL:= u1 u2 u3 "." u4 u5 u6 "." u7 u8 u9 "." u10 u11 u12)
return ZAHL
}
[/code]