• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы 11BOSS11
  • Дата начала
1

11BOSS11

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

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

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

Xalet

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

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

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.
 
1

11BOSS11

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

Xalet

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

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

11BOSS11

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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Может классом NotesStream воспользоваться?
 
1

11BOSS11

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

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
черен стрим всё берется как надо, главное указать что это бинарник
 
1

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
 
X

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.
 
1

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
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
В хелпе есть примеры NotesStream.
В твоём примере не задан ad. И первым символом обычно идет возврат каретки chr(13), а потом перевод строки chr(10).
 
X

Xalet

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

11BOSS11

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

11BOSS11

помоему чтото не то с кодировкой.....
Код:
Open FILENAME2 For Binary As fileNum2% Charset=kodirovka
а кодировка у мну:
Код:
kodirovka= UTF-8
.........потомучто считывает квадратики......... ;)
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!