Какая-то неясность с Binary

[Alfa]

Вот такой код не работает :

Код: Выделить всё

Dim gettextfromfile As String
Open "C:\dadattt.txt" For Binary As #1
gettextfromfile = 8 'Без этой строки не работает
Get #1, 7, gettextfromfile
Close #1
MsgBox "5" & gettextfromfile & "5" '5 и 5 для показания начала и конца строк


А так :

Код: Выделить всё

Dim gettextfromfile As String
Open "C:\dadattt.txt" For Binary As #1
'gettextfromfile = 8
Get #1, 7, gettextfromfile
Close #1
MsgBox "5" & gettextfromfile & "5"


ничего.(Кроме конечно 55)

С чем это связано, не поможете?

[Mikle]

Второй вариант тоже работает, только gettextfromfile имеет нулевую длину. Лучше так:

gettextfromfile = space$(LenTextInByte)
Get #1, , gettextfromfile

[Alfa]

А тогда сколько надо было вытягивать?

И должно же быть так :
Get #номер, сколько, куда

А сколько куда девается?

[Vi]

И должно же быть так :
Get #номер, сколько, куда

На самом деле

Код: Выделить всё

Get #номер_файла, где_в_файле, куда_писАть

А сколько писАть, определяет реальный размер строки в твоем случае.

[Alfa]

Это же Put, а не Get получается....

[GSerg]

Нет, получается get.
При работе с файлами, открытыми в бинарном режиме, Get тырит столько, каков размер переменной, в которую производится тыренье. Если переменная Long, будет стырено 4 байта. В случае со строкой тырится столько байт, какова длина строки на момент тыринья. Так что делай space$(lof(n)).

[Alfa]

То есть так :

Код: Выделить всё

HowMany = 20
GetTextFromFile = space$(HowMany)
Get #1, HowMany, GetTextFromFile


?

[v-adix]

ф-ция Space заполеяет твою строковую переменную таким кол-вом пробелов, сколько ты укажешь в качестве параметра. Например:
dim x as string

x=space$(20)

тогда переменная х будет заполнена 20 пробелами. тоесть, она занимает 20 байт. когда ты будешь "тырить" данные из файла таким обрабом:

get #fileno,, x

то в переменную x будет записано столько байт, сколько переменная х занимает в памяти. А т.к. она занимает 20 байт, то будет загружено 20 байт. а работать с ними так (в цикле делай что хочешь):

for i = 1 to len(x)
msgbox asc(x)
next i

Если ты хочешь прочитать, например, с байта 10 до байта 20, то можно сделать и так:

dim x as string
x = space$(10)
seek #fileno, 10
get #fileno,,x

Вот и всё! Ничего сложного нет!

[_NeoN_]

А если хочешь прочитать весь файл то пиши
x=space$(lof(1))
get #1,,x