считывание данных и файла например txt
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- skiperski
- Идеолог
-
- Сообщения: 1386
- Зарегистрирован: 25.06.2002 (Вт) 15:52
skiperski » 24.03.2004 (Ср) 17:36
- Код: Выделить всё
Public Function GetTextFile(ByVal FilePath As String) As String
Dim fd As Long 'File Descriptor
fd = FreeFile()
Open FilePath For Input As #fd
GetTextFile = input(LOF(fd), #fd)
Close #fd
End Function
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Mikle, Yandex-бот и гости: 11