[RegExp] узнать количество пробелов в начале строки

[rivega]

Добрый день.
Задача такая:узнать количество пробелов в начале строки(до начала любого текста, и без пробелов в самой строке).

 

[gregaz]

Архаический вариант :

$sText="     Text"
;$sPatern = "^(\s*)\S.+"
$sPatern = "(?s)^(\s*)\S.+" ;Так корректней
$sResult = StringRegExpReplace( $sText, $sPatern, '${1}' )
ConsoleWrite(" $sResult= " & StringLen($sResult) & @CRLF)

 

[CreatoR]

Ну тут уже и без рег. выражении можно обойтись:

$vTest = '      My Test'
$iSpace_Len = StringLen($vTest) - StringLen(StringStripWS($vTest, 1))

ConsoleWrite($iSpace_Len & @LF)

 

[inververs]

CreatoR [?]

Ну тут уже и без рег. выражении можно обойтись:

Ага. Или вообще так:

StringReplace('   SPACE_SPACE_SPACE', ' ', '')
ConsoleWrite('Количество пробелов в строке: ' & @extended & @LF)

 

[Medic84]

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

 

[inververs]

Medic84
ага, ну мало ли. Может в конце строки и нет воовсе пробелов.

 

[AZJIO]

$sText = "     Text"
StringRegExp($sText, '^(\s+)', 1)
MsgBox(0, 'Сообщение', @extended - 1)

 

[rivega]

Круто, последнее то, что надо!

 

[gregaz]

rivega [?]

Круто, последнее то, что надо!

Только надо учесть , что при отсутствии пробелов выдаст результат =-1

Еще один вариант :

;$sText = "Te xt "
$sText = "   Te xt "	
$i=StringInStr($sText, StringRegExpReplace( $sText, '(?s)^\s*(\S).+', '${1}'))
MsgBox(0,"", 'Число пробелов =' & $i-1)

 

[CreatoR]

gregaz [?]

Только надо учесть , что при отсутствии пробелов выдаст результат =-1

Можно + заменить на *, и всё будет как надо .
Я как то забыл что StringRegExp устанавливает код @extended.


P.S.
Напомню, что \s это не только пробел (Chr(32)), но и любой „пустой“ символ (Chr(9) по Chr(13)).

 

[gregaz]

CreatoR [?]

Можно + заменить на *, и всё будет как надо

.Я как то забыл что StringRegExp устанавливает код @extended.

Ха, тогда самое красивое решение от Azjio

StringRegExp($sText, '^(\s*)', 1)
MsgBox(0, 'Сообщение', @extended - 1)

Кстати скобки здесь излишни:

StringRegExp($sText, '^\s*', 1)

 

[madmasles]

gregaz,
CreatoR [?]

Напомню, что \s это не только пробел (Chr(32)), но и любой „пустой“ символ (Chr(9) по Chr(13)).

$sText = '     ' & @CRLF & 'Text'
StringRegExp($sText, '^\h*', 1)
ConsoleWrite('h: ' & @extended - 1 & @LF)
StringRegExp($sText, '^\s*', 1)
ConsoleWrite('s: ' & @extended - 1 & @LF)

 

[CreatoR]

madmasles
Вы думаете я этого не знаю?

Автор указал именно на пробел в названии и содержимом темы, про другие символы речь не шла, вот я и подумал что стоит упомянуть эту деталь.