[Данные, строки] Как удалить ненужные символы и преобразовать строку в число?

[Kalisnik]

Конкретный пример:
Мы имеем текст в буфере.

бв\%
23,7

Присваеваем его переменной.

$q = ClipGet()

После этого переменная, видимо, принимает следующее значение.

$q = "бв\%" & @CRLF & "23,7"

Нужно убрать все сторонние символы и преобразовать строку в число.

$q = 23.7

 

[Suppir]

$a = StringSplit(Clipget(), @CRLF)
ConsoleWrite(StringReplace($a[$a[0]], ",", "."))

Не забываем говорить спасибо ;)

 

[madmasles]

Kalisnik
Так можно попробовать:

$q = "бв\%" & @CRLF & "23,7"
If StringInStr($q, ",") <> 0 Then
	$q = StringReplace($q, ",", ".")
	$q = StringRegExpReplace($q, "[^.0-9]", "")
Else
	$q = StringRegExpReplace($q, "[^0-9]", "")
EndIf
MsgBox(0, "", $q)

 

[Kalisnik]

Спасибо!

 

[XM]

If StringInStr($q, ",") <> 0 Then
    $q = StringReplace($q, ",", ".")
    $q = StringRegExpReplace($q, "[^.0-9]", "")
Else
    $q = StringRegExpReplace($q, "[^0-9]", "")
EndIf

Добавлено:

Сообщение автоматически объединено: 29 Май 2010

В прочем повторил код madmasles' а.
Но это нормально. ;)

 

[gregaz]

А зачем условие : If ?

$q = "бв\%" & @CRLF & "23,7"
$iRez=StringRegExpReplace(StringRegExpReplace ( $q, ",", '.'),"[^\d.]", '')
ConsoleWrite($iRez & @LF)