Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Файлы.. текстовые... Добавлено: 24.03.04 21:56  

Автор вопроса:  Padre | Web-сайт: vb.narod.ru

Как можно открыть текстовой файл моей программой(например, самодельный блокнот)???

Но не просто открыть, а чтобы текст содержащийся в текстовом файле, поместился в текстовое поле(Text1) моей программы.

Так можно??

Кто знает, помогите пожалуйста

Ответить

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

Номер ответа: 1
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
  Web-сайт: hw.t-k.ru
 Профиль | | #1 		Добавлено: 24.03.04 23:17

Под 9х у текстового поля ограничение 64 Кб, под 2k/XP/2003 - неизвестное... но большое ;)

А файл открыть, я думаю особых затруднений не должно вызывать... хотя:

    Open lpFileName For Binary Access Read As nf
        sFileData = String$(LOF(nf), &H0)
        Get nf, 1, sFileData
    Close nf

Ответить

Номер ответа: 2
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #2 Добавлено: 25.03.04 09:54

Option Explicit

Private Sub Form_Load()

Dim hFile As Byte

hFile = FreeFile

Open "c:\mytext.txt" For Input As hFile

Text1.Text = Input(LOF(hFile), hFile)

Close hFile

End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам