сЧИТАТЬ вСЮ иНФУ иЗ фАЙЛА
Подскажите пожалуйста, как считать всю информацию из файла вне зависимости от её типа? И в какую переменную или объект её можно записать?
Заранее спасибо.
Заранее спасибо.
Цитата:
Originally posted by Loki&Co
Подскажите пожалуйста, как считать всю информацию из файла вне зависимости от её типа? И в какую переменную или объект её можно записать?
Подскажите пожалуйста, как считать всю информацию из файла вне зависимости от её типа? И в какую переменную или объект её можно записать?
В принципе ты можешь открыть файл как бинарный и считывать его по байту в переменную типа Byte, хотя не уверен что ето будет работать безупречно...надо попробовать.
Где-то это уже обсуждали, получилось что-то подобное:
dim s as String
dim b() as Byte
Open FileName For Binary As #1
s=String(LOF(1),chr$(0))
Get #1,,s
close
b=StrConv(s,vbFromUnicode)
Здесь содержимое файла загоняется в строку, а потом в байтовый массив.
dim s as String
dim b() as Byte
Open FileName For Binary As #1
s=String(LOF(1),chr$(0))
Get #1,,s
close
b=StrConv(s,vbFromUnicode)
Здесь содержимое файла загоняется в строку, а потом в байтовый массив.
Цитата:
Originally posted by USA-Lesh
Где-то это уже обсуждали, получилось что-то подобное:
dim s as String
dim b() as Byte
Open FileName For Binary As #1
s=String(LOF(1),chr$(0))
Get #1,,s
close
b=StrConv(s,vbFromUnicode)
Здесь содержимое файла загоняется в строку, а потом в байтовый массив.
Где-то это уже обсуждали, получилось что-то подобное:
dim s as String
dim b() as Byte
Open FileName For Binary As #1
s=String(LOF(1),chr$(0))
Get #1,,s
close
b=StrConv(s,vbFromUnicode)
Здесь содержимое файла загоняется в строку, а потом в байтовый массив.
-шиняга какая-то
Dim Bin() As Byte
Open "C:\File.bin" For Binary As #1
ReDim Bin(0 To LOF(1) - 1) As Byte
Get 1, , Bin()
Close #1
- быстро и сердито
))))