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

[Math]

Например, есть переменная $stroka, значение которой - 1A2B3C. Например, в этой строке лишними являются символы A и 2. Как их убрать? Что бы получилась новая переменная, со значением 1B3C.

 

[madmasles]

Math,
Так?

$sString = '1A2B3C'
$aDel = StringSplit($sString, '')
ConsoleWrite('before: "' & $sString & '"' & @LF)
For $i = 1 To $aDel[0]
	$sString = StringReplace($sString, $aDel[$i], '')
	ConsoleWrite($i & @TAB & 'Del: ' & $aDel[$i] & @TAB & 'Result: "' & $sString & '"' & @LF)
Next
ConsoleWrite('after: "' & $sString & '"' & @LF)

 

[axlwor]

$sStr = '1A2B3C'
consolewrite('string before: ' & $sStr & @CRLF)
Dim $aA[2] = ['a', '2']
for $i = 0 to ubound($aA) - 1
$sStr = StringReplace ($sStr, $aA[$i], '')
next
consolewrite('string after: ' & $sStr & @CRLF)

 

[Garrett]

$sString = '1A2B3C'
$sString = StringRegExpReplace($sString, '(.*)A2.*?', '$1')
ConsoleWrite($sString & @CRLF)

 

[madmasles]

Garrett,
Так еще проще.

$sString = '1A2B3C'
$sString = StringRegExpReplace($sString, 'A2', '')
ConsoleWrite($sString & @LF)

 

[axlwor]

запутаем человека :laugh:

 

[Math]

С каждым постом всё проще и проще. Последний вариант мне понравился больше всего, ввиду его простоты, но почему при:

$sString = '2+4=?'
$sString = StringRegExpReplace($sString, '=?', '')
ConsoleWrite($sString & @LF)
Run ("C:\WINDOWS\notepad.exe")
Sleep(1000)
Send($sString)

в блокнот выдаётся этот ответ? -

2;?

Ведь вроде должно быть

2+4

 

[Garrett]

Math
Потому что "?" это служебный символ, и должен быть экранирован "=\?"


Добавлено:

Сообщение автоматически объединено: 21 Окт 2011

madmasles [?]

Так еще проще.

Согласен

 

[madmasles]

Garrett [?]

Потому что "?" это служебный символ, и должен быть экранирован "=\?"

Или так можно.

$sString = '2+4=?'
$sString = StringRegExpReplace($sString, '[=?]', '')
ConsoleWrite($sString & @LF)

 

[r35p3ct]

Не?

ConsoleWrite(StringReplace('1A2B3C','A2','') & @LF)


axlwor [?]

а если будет '12AB3C'

Действительно, туплю( Сказывается рабочий день :whistle:

UPD:
Вариант madmasles тоже кстати не сработает.
Так вернее:

$sString = '1Ad2B3C'
$sString = StringRegExpReplace($sString, '[A2]', '')
ConsoleWrite($sString & @LF)

 

[axlwor]

а если будет '12AB3C'

 

[Math]

У себя я сделал так:

$postLine = ClipGet()
$postLine  = StringRegExpReplace($postLine ,' = \?', '')
ConsoleWrite($postLine  & @LF)

Для моих целей работает идеально.