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

   
   
     

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

Страница: 1 |

 

  Вопрос: НУжна помощь!!! Добавлено: 25.10.09 05:51  

Автор вопроса:  Zharik | ICQ: 403609227 
как мне открыть в TextBox или RichTextBox текстовый файл с помошью OpenFileDialog????

Ответить

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

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



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 25.10.09 09:23
На этот вопрос отвечали, наверное, уже 1000раз!google тебе в помощь

Ответить

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



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #2 		Добавлено: 25.10.09 13:10
и еще гугл не требует регистрации

Ответить

Номер ответа: 3
Автор ответа:
 oi



Вопросов: 5
Ответов: 10
  Профиль | | #3 Добавлено: 25.10.09 16:02
  1. Dim FileNum As Integer
  2. Dim txt As String
  3. Dim alltxt As String
  4. FileNum = FreeFile
  5.  
  6. 'открываем файл в режиме чтения
  7. Open CommonDialog1.FileName For Input As FileNum
  8.  
  9. 'запускаем вышеупомянутый цикл
  10. Do Until EOF(FileNum)
  11. 'считываем строку из файла с номером FileNum и кладём её в
  12. 'переменную txt
  13. Line Input #FileNum, txt
  14. 'теперь к переменной alltxt добавляем содержимое переменной txt -
  15. 'строки и vb-константу vbCrLf (Chr(13)+Chr(10)), т.к. каждая строка
  16. 'должна быть с новой строки :-)
  17. alltxt = alltxt + txt + vbCrLf
  18. Loop
  19.  
  20. 'закрываем файл с номером FileNum
  21. Close #FileNum
  22.  
  23. 'выводим содержимое переменной alltext
  24. MsgBox alltxt
  25.  


CommonDialog1 - имя CommonDialog.

Ответить

Номер ответа: 4
Автор ответа:
 DotNet256)))



Вопросов: 3
Ответов: 12
  Профиль | | #4 Добавлено: 26.10.09 18:09
а не проще так:
Dim AllText As String
Dim FileName As String

'открываем файл в режиме чтения
Open FileName For Input As #1
    AllText = [B]Input(LOF(1), 1)[/B]
Close #1

'выводим содержимое переменной AllText
MsgBox AllText

Ответить

Номер ответа: 5
Автор ответа:
 DotNet256)))



Вопросов: 3
Ответов: 12
  Профиль | | #5 Добавлено: 26.10.09 18:09
а не проще так:
Dim AllText As String
Dim FileName As String

'открываем файл в режиме чтения
Open FileName For Input As #1
    AllText = Input(LOF(1), 1)
Close #1

'выводим содержимое переменной AllText
MsgBox AllText

Ответить

Номер ответа: 6
Автор ответа:
 DotNet256)))



Вопросов: 3
Ответов: 12
  Профиль | | #6 Добавлено: 26.10.09 18:11
да блин, 3 раз ошибся

Dim AllText As String
Dim FileName As String

FileName = "C:\FileName.txt"

'открываем файл в режиме чтения
Open FileName For Input As #1
    AllText = Input(LOF(1), 1)
Close #1

'выводим содержимое переменной AllText
MsgBox AllText

Ответить

Номер ответа: 7
Автор ответа:
 DotNet256)))



Вопросов: 3
Ответов: 12
  Профиль | | #7 Добавлено: 26.10.09 18:11
да блин, 3 раз ошибся

Dim AllText As String
Dim FileName As String

FileName = "C:\FileName.txt"

'открываем файл в режиме чтения
Open FileName For Input As #1
    AllText = Input(LOF(1), 1)
Close #1

'выводим содержимое переменной AllText
MsgBox AllText

Ответить

Номер ответа: 8
Автор ответа:
 DotNet256)))



Вопросов: 3
Ответов: 12
  Профиль | | #8 Добавлено: 26.10.09 18:11
да блин, 3 раз ошибся

Dim AllText As String
Dim FileName As String

FileName = "C:\FileName.txt"

'открываем файл в режиме чтения
Open FileName For Input As #1
    AllText = Input(LOF(1), 1)
Close #1

'выводим содержимое переменной AllText
MsgBox AllText

Ответить

Номер ответа: 9
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #9 		Добавлено: 29.10.09 10:58
http://dump.ru/file/3667105

Ответить

Страница: 1 |

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



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