Прочитать первую строчку из переменной хранящей в себе многострочный текст.

[Belfigor]

Помогите, в буфере обмена есть текст, его я загоняю в переменную, из всего текста мне нужно знать что написано в первой строчке, как мне ее засунуть в отдельную переменную? :blink:

 

[snoitaleR]

Belfigor

MsgBox(0,"",StringLeft(ClipGet(),StringInStr(ClipGet(),@CR)))

 

[madmasles]

Belfigor
Или так:

#include <Array.au3>
$bak = ClipGet()
$aBak = StringSplit($bak, @CR)
_ArrayDisplay($aBak)

 

[Belfigor]

Спасибо, приду домой потестю

 

[madmasles]

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)

 

[CreatoR]

madmasles [?]

А так, мне кажется, лучше

Чем? задача намного проще, зачем ещё какие то массивы с циклами придумывать:

$sData = ClipGet()

;Метод используя строковые функции
$aFirstLine = StringLeft($sData, StringInStr($sData, @LF, 1, 1)-1)
ConsoleWrite($aFirstLine & @LF)

;Метод используя функции рег. выражения
$aFirstLine = StringRegExpReplace($sData, '\r?\n((?s).*?)$', '')
ConsoleWrite($aFirstLine & @LF)

В данном примере, вариант с рег. выражением, имеет приемущество в случае когда обрабатывается текст содержащий всего одну строчку.

 

[madmasles]

CreatoR
Абсолютно с Вами согласен в случае, если надо прочитать только первую строку. А если надо найти строку, содержащую, например, определенный текст.

 

[gregaz]

Или так : ( раз уж я сделал)

;Запоминаем в буфер  техт :
;111111111111
;222222222222
;333333333333
$sFirstLine=StringRegExpReplace(ClipGet(),'\r?\n[^\r\n]*','')
ConsoleWrite('$sFirstLine = ' & $sFirstLine & @LF)

Добавлено:

Сообщение автоматически объединено: 17 Апр 2010

Судя по всему рег.выражение Creator'a будет работать быстрее из-за (?s).


Добавлено:

Сообщение автоматически объединено: 17 Апр 2010

А так чуть проще и сохраняется скорость :

$sFirstLine=StringRegExpReplace(ClipGet(),'(?s)\r?\n.*','')

 

[CreatoR]

madmasles [?]

А если надо найти строку, содержащую, например, определенный текст.

То это уже другая задача ;)