Считывание с файла!

[11BOSS11]

У меня есть файл в который записаны строки.

Нужно забить в масив построчно все строки после строки Chr(10)+Chr(13) (эти строки я использую как ориентиры) и пока не втретится тоже Chr(10)+Chr(13)........

я пробовал обычным Input, но в таком случае не видит Chr(10)+Chr(13)...

 

[Xalet]

Line Input #fileNumber , varName

 

[11BOSS11]

Line Input #fileNumber , varName

таким образом оно не воспримет строку Chr(10)+Chr(13).....
а мне надо как то так считать, чтобы увидеть эту строку, так как она является нужным мне маркером.......

 

[Xalet]

Chr(10)+Chr(13) это же конец строки(новая строка и возврат каретки) или я чего-то не понимаю?

text$ = notesStream.ReadText( [ oneLine& ] , [ eol& ] )

 

[nvyush]

таким образом оно не воспримет строку Chr(10)+Chr(13).....
а мне надо как то так считать, чтобы увидеть эту строку, так как она является нужным мне маркером.......

Нужно забить в масив построчно все строки после строки Chr(10)+Chr(13) (эти строки я использую как ориентиры) и пока не втретится тоже Chr(10)+Chr(13)

Line Input # reads characters from a sequential file until it encounters a newline character. Line Input # does not read the newline character into the variable.

Оно само разбивает на строки, т.е. нужно просто заключить Line Input # в цикл и выходить по eof.

 

[11BOSS11]

Chr(10)+Chr(13) это же конец строки(новая строка и возврат каретки) или я чего-то не понимаю?

ну оно то верно в принципе......... я просто использую два рядом стоящих ентера(жосткий и мягкий как маркеры..(чтобы знать откуда и покуда считывать)).... мне наверное тут надо как то может бинарно считывать файл ....

 

[Xalet]

ну оно то верно в принципе......... я просто использую два рядом стоящих ентера(жосткий и мягкий как маркеры..(чтобы знать откуда и покуда считывать)).... мне наверное тут надо как то может бинарно считывать файл ....

ну так и сделайте проверку на пустую строку, а лучше другой маркер используйте

 

[11BOSS11]

просто мне надо какие то невидимые для глаз при просмотре файла разделители.......... вот.....елси бы не они ,- тогда бы вообще проблем бы не было........или елси бы они были просто String допустим "Marker"......- тогда бы просто Line Input считал бы и все ОКэЙ , а так надо именно невидимые разделители, решил испольховать 2 рядом стоящих ентера

 

[Medevic]

Может классом NotesStream воспользоваться?

 

[11BOSS11]

пустая строка не подойдет,.....а какой другой маркер например?

 

[Xalet]

пустая строка не подойдет,.....а какой другой маркер например?

например 17 пробелов или табов. не видно...

 

[ToxaRat]

черен стрим всё берется как надо, главное указать что это бинарник

 

[11BOSS11]

мм .. я не пользовался NotesStream, может кто примерчик подбросит плиз.............

Добавлено: вот я открываю бинарно файл, и счытываю побайтно его,
и вот проблема, что то оно не хочет считыватся ,- переменная stroka12 пустая на каждой итерации........

FILENAME2="C:\999.txt" 
Dim fileNum2 As Integer
fileNum2% =Freefile()	
Open FILENAME2 For Binary As fileNum2% Charset=kodirovka
Dim stroka12 As String
OtrezHeader=False
k=0

Do While OtrezHeader = False
k=k+1		
Get #fileNum2% ,k , stroka12 
If stroka12=Chr(10) Then
Print "НАшли a0"
Get #fileNum2% ,k+1 , stroka12 
If stroka12=ad Then
Print "НАшли ad"
OtrezHeader=True
k=k+1
End If
End If

Loop

 

[Xalet]

Binary file: The number of bytes read from the file is equal to the length of the string currently assigned to variableName. If variableName has not been initialized, no data is read from the file.

 

[11BOSS11]

Binary file: The number of bytes read from the file is equal to the length of the string currently assigned to variableName. If variableName has not been initialized, no data is read from the file.

делаю так чтобы задать размер строки , мм но не находит Chr(10) ,Chr(13)......

FILENAME2="C:\999.txt" 
Dim fileNum2 As Integer
fileNum2% =Freefile()	
Open FILENAME2 For Binary As fileNum2% Charset=kodirovka
Dim stroka12 As String
stroka12= " " ' определяем размер строкии
OtrezHeader=False
k=0

Do While OtrezHeader = False
k=k+1		
Get #fileNum2% ,k , stroka12 
If stroka12=Chr(10) Then
Print "НАшли a0"
Get #fileNum2% ,k+1 , stroka12 
If stroka12=ad Then
Print "НАшли ad"
OtrezHeader=True
k=k+1
End If
End If

Loop

 

[ToxaRat]

мм .. я не пользовался NotesStream, может кто примерчик подбросит плиз.............

примерчик есть прямо в хелпе

 

[Medevic]

В хелпе есть примеры NotesStream.
В твоём примере не задан ad. И первым символом обычно идет возврат каретки chr(13), а потом перевод строки chr(10).

 

[Xalet]

как по мне переменная К здесь лишняя. Дебагером посмотрите, что оно вам считывает при каждом гете, или в лог распечатайте =)

 

[11BOSS11]

как по мне переменная К здесь лишняя. Дебагером посмотрите, что оно вам считывает при каждом гете, или в лог распечатайте =)

оно как то вообще неправильно считівает, - везде пробелы! stroka=" " ....

 

[11BOSS11]

помоему чтото не то с кодировкой.....

Open FILENAME2 For Binary As fileNum2% Charset=kodirovka

а кодировка у мну:

kodirovka= UTF-8

.........потомучто считывает квадратики.........