Как построчно загрузить файл в listbox

[Nbv_tim]

никак не получается построчно прогрузить файл то одна строка из каждого файла то вообще ничего.

func addstr()
	For $i = 1 To UBound($aArrey) -1 
	$file = FileOpen($aArrey[$i] & "STATUS.txt",0)
	check()
next
EndFunc
	func check()

	$line = FileReadLine($file) 
	GUICtrlSetData($List1,$line)

вначале перебираю файл далее его открываю и сразу вызываю функцию чтения строк. как только прочитал, записываю в listbox. если брать просто fileread то он в одну строку все запихивает.

 

[snoitaleR]

Nbv_tim
Можно попробовать использовать в качестве разделителя перевод строки и возврат каретки @CRLF...

aaaaaaa
bbbbbbbbb
ccccccccccc
ddddddddd
eeeeeeeeeee

; НАЧАЛО

 $GUI=GUICreate('Список из файла')
 $LIST=GUICtrlCreateList('',10,10)

 $FILE=FileOpen('file.txt',0)
 $TEXT=FileRead($FILE)

 Opt("GUIDataSeparatorChar",@CRLF) 

 GUICtrlSetData($LIST,@CRLF&$TEXT)

 GUISetState()

 While True
  Switch GUIGetMsg()
   Case -3
    Exit
  EndSwitch
 WEnd

; КОНЕЦ

 

[Nbv_tim]

Nbv_tim
Можно попробовать использовать в качестве разделителя перевод строки и возврат каретки @CRLF...

aaaaaaa
bbbbbbbbb
ccccccccccc
ddddddddd
eeeeeeeeeee

; НАЧАЛО

 $GUI=GUICreate('Список из файла')
 $LIST=GUICtrlCreateList('',10,10)

 $FILE=FileOpen('file.txt',0)
 $TEXT=FileRead($FILE)

 Opt("GUIDataSeparatorChar",@CRLF) 

 GUICtrlSetData($LIST,@CRLF&$TEXT)

 GUISetState()

 While True
  Switch GUIGetMsg()
   Case -3
    Exit
  EndSwitch
 WEnd

; КОНЕЦ

Там вся проблема в том что там нет перевода каретки файл делается в linux если его открывать на редактирование то данные в одну строчку если на чтение то построчно. поэтому readline могу вытащить строки а вот fileread не получается

 

[madmasles]

Nbv_tim,

Предупреждение

За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

 

[Nbv_tim]

файл такого типа
ааааааааbbbbbbbcccccccccddddddd если на редактирование если на чтение открывать
то
аааааааа
bbbbbbbb
cccccccccc
dddddddd
readline работает но только на одной строке и затыкается если fileread то все в одну строку

 

[alex33]

А если так?

$aLines = StringSplit(FileRead("file.txt"), @LF)

 

[snoitaleR]

Nbv_tim
В Linux строки разделяются символом "перевод строки" @LF.
Тогда надо будет подправить две строки в скрипте:

Opt("GUIDataSeparatorChar",@LF)

 GUICtrlSetData($LIST,@LF&$TEXT)

 

[Nbv_tim]

А если так?

Разделитель воткнуть ну в принципе наверно можно, вроде сделал

func check()
for $i=1 to 5
	$line = FileReadline($file) 
	Opt("GUIDataSeparatorChar",@LF) 
	_GUICtrlListBox_AddString($List1,@LF&$line)
Next
	FileClose($file)

все загрузил сортировку убрал))

 

[Skif_off]

Я обычно проверяю любой текст из файла или буфера обмена:

Select
    Case StringInStr($sOut, @CRLF) > 0
        $sDelimiter = @CRLF
    Case StringInStr($sOut, @LF) > 0
        $sDelimiter = @LF
    Case Else
        $sDelimiter = @CR
EndSelect

На всякий случай, даже если точно знаю, какое окончание строк (достаточно было один раз столкнуться с неприятностью ).

 

[Nbv_tim]

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

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