Hier mal ein Bsp.
<td>xxx<br />Nächste Stufe: €50.00<br />
Ich will in diesem String die einzigste Zahl isolieren.
_stringbetween funktioniert nicht, da sich zu einem die xen ändern,
man nicht weis in was, also geht keine IF-Schleife.
Stringright geht auch nicht da die Zahl immer eine Stelle mehr oder weniger hinzu bekommt.
Hoffe auf eure Hilfe, weil ich nicht mehr weiter komme.
Gruß Energy
StringRegExp findet es. Wenn du dich damit auskennst oder googlest, ist das ein recht einfacher Fall.
peethebee
Hallo!
so gehts:
; StringCleantonum.au3
; wie bring ich saubere numerische Werte zusammen
#include <string.au3>
[/autoit] [autoit][/autoit] [autoit]$StringtoTest="<br>blubber>kkkqqqq13,77"
$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]
[/autoit] [autoit][/autoit] [autoit]; 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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Hi,
[autoit]#include<Array.au3>
Global $str = '<td>xxx<br />Nächste Stufe: €50.00<br />'
Global $re = StringRegExp($str, '\d{1,}\.\d{1,}', 3)
_ArrayDisplay($re)
So long,
Mega
danke für die hilfe, jetzt klappts, kann irgendwie des thema closen,
oda muss das ein admin machen?
