VBNet - Форум

Вопрос: EOF Добавлено: 09.04.09 14:33

Автор вопроса: Sergey

При считывании файла в переменную, EOF натыкается на символ №26 и считает, что это конец файла.

Можно ли как-то обойти это, используя EOF?
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #1	Добавлено: 09.04.09 16:50
	Была же тема. Я там писал подсказку. Ответить

Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #2	Добавлено: 09.04.09 17:03
	Используй бинарный режим чтения файла. Ответить

Номер ответа: 3 Автор ответа: VβÐ Вопросов: 15 Ответов: 194	Web-сайт: www.homacosoft.com Профиль \| \| #3	Добавлено: 14.04.09 06:29
	Function GetTextFile(FileName As String) As String Dim d() As Byte Dim l As Long Dim h As String Dim s As String l = FileLen(FileName) ReDim d(l) As Byte Open FileName For Binary As #1 Get #1, , d() Close #1 h = Space(l + 1) For i = 1 To l + 1 If d(i - 1) <> 26 Then s = Chr(d(i - 1)) Mid$(h, i, 1) = s End If Next i GetTextFile = h End Function Ответить

Номер ответа: 4 Автор ответа: Антон Вопросов: 0 Ответов: 5	Профиль \| \| #4	Добавлено: 16.04.09 15:52
	VBD пишет: Function GetTextFile Вы считаете целесообразным использовать такой тормоз для чтения файла? Я лично делаю так: Function LoadFileToString(pathFile As String) As String Dim fileBytes() As Byte ReDim fileBytes(1 To FileLen(pathFile)) As Byte Dim openFile As Integer openFile = FreeFile Open pathFile For Binary Access Read As openFile Get #openFile, , fileBytes Close openFile LoadFileToString = StrConv(fileBytes, vbUnicode) End Function Сравните и почувствуйте разницу... Ответить

Страница: 1 |