Прочитать первую строчку из переменной хранящей в себе многострочный текст.
- Автор темы Belfigor
- Дата начала
- Сообщения
- 7,790
- Репутация
- 2,323
Belfigor
А так, мне кажется, лучше:
А так, мне кажется, лучше:
Код:
#include <Array.au3>
Dim $aBakNew[1]
$bak = ClipGet()
If $bak = "" Then Exit
$aBak = StringSplit($bak, @CRLF)
;_ArrayDisplay($aBak)
For $i = 1 To $aBak[0]
If StringLen($aBak[$i]) <> 0 Then
_ArrayAdd($aBakNew, $aBak[$i])
$aBakNew[0] += 1
EndIf
Next
_ArrayDisplay($aBakNew)
- Сообщения
- 8,673
- Репутация
- 2,486
madmasles [?]
В данном примере, вариант с рег. выражением, имеет приемущество в случае когда обрабатывается текст содержащий всего одну строчку.
Чем? задача намного проще, зачем ещё какие то массивы с циклами придумывать:
Код:
$sData = ClipGet()
;Метод используя строковые функции
$aFirstLine = StringLeft($sData, StringInStr($sData, @LF, 1, 1)-1)
ConsoleWrite($aFirstLine & @LF)
;Метод используя функции рег. выражения
$aFirstLine = StringRegExpReplace($sData, '\r?\n((?s).*?)$', '')
ConsoleWrite($aFirstLine & @LF)В данном примере, вариант с рег. выражением, имеет приемущество в случае когда обрабатывается текст содержащий всего одну строчку.
Или так : ( раз уж я сделал)
Добавлено:
Судя по всему рег.выражение Creator'a будет работать быстрее из-за (?s).
Добавлено:
А так чуть проще и сохраняется скорость :
Код:
;Запоминаем в буфер техт :
;111111111111
;222222222222
;333333333333
$sFirstLine=StringRegExpReplace(ClipGet(),'\r?\n[^\r\n]*','')
ConsoleWrite('$sFirstLine = ' & $sFirstLine & @LF)Добавлено:
Сообщение автоматически объединено:
Судя по всему рег.выражение Creator'a будет работать быстрее из-за (?s).
Добавлено:
Сообщение автоматически объединено:
А так чуть проще и сохраняется скорость :
Код:
$sFirstLine=StringRegExpReplace(ClipGet(),'(?s)\r?\n.*','')