API READFILE

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Лёха_Virus
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 168
Зарегистрирован: 24.03.2003 (Пн) 17:13
Откуда: Анграск

API READFILE

Сообщение Лёха_Virus » 13.11.2003 (Чт) 19:36

никак не могу считать содержимое файла в стринговую переменную
делаю так:
dim strdata as String
succ = ReadFile(hfile, ByVal strdata, fsize, read, ov)

возвращает 0 считанных байт.... я точно помню что в стринг можно считать, но не помню как... подскажите плизз.

skiperski
Идеолог
Идеолог
Аватара пользователя
 
Сообщения: 1386
Зарегистрирован: 25.06.2002 (Вт) 15:52

Сообщение skiperski » 13.11.2003 (Чт) 21:03

Код: Выделить всё
Public Function GetTextFile(ByVal FilePath As String) As String
   
    Dim iFF As Long
   
    iFF = FreeFile()
    On Error GoTo hErr
    Open FilePath For Input As iFF
    GetTextFile = Input(LOF(iFF), iFF)
hErr:
    Close #iFF
   
End Function

Emzari
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 129
Зарегистрирован: 06.09.2002 (Пт) 9:08
Откуда: Georgia

Сообщение Emzari » 22.11.2003 (Сб) 5:46

Текстовые фаилы можно читать так

через Refferences подключаеш проекту библиотеку Microsoft scripting runtaim

Код: Выделить всё
Dim NewFSO As New FileSystemObject
Dim File As File
Dim strFile As TextStream
Dim strText As String

Set File = NewFSO.GetFile(Путь  к фаилу)
Set strFile = File.OpenAsTextStream(ForReading)
If File.Size <> 0 Then
        strText = strFile.ReadAll
        strFile.Close
End If


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 6

    TopList