| Вопрос: Загрузка инфовмации из файла в Text | Добавлено: 26.05.07 17:13 |
Автор вопроса:  GeniX | Web-сайт: porrygatter.zx6.ru | ICQ: 418811267 |
| Народ, помогите! Как загружать текст из опредлённого *.txt в Text? Очень срочно надо! |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 26.05.07 17:23 |
|
http://www.vbnet.ru/faq/showtopic.asp?id=285
С тебя 10 кликов и 15 нажатий клавишы 
|
||
|
Номер ответа: 2 Автор ответа: Rezus ICQ: 401147850 Вопросов: 7 Ответов: 16 |
Профиль | | #2 | Добавлено: 26.05.07 17:32 |
|
f = FreeFile
Open "  :\1.txt" For Input As f
Text1.Text = Input(LOF(f), f) Close f |
||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 26.05.07 17:41 |
|
Код процедуры
Dim strText As String
Dim lngFreeFile As Long lngFreeFile = FreeFile Open "C:\1.txt" For Binary Access Read As #lngFreeFile strText = String$(LOF(#lngFreeFile),vbNullChar) Get #lngFreeFile, ,strText Close #lngFreeFile Text1.Text = strText По памяти писал
|
||
|
Номер ответа: 4 Автор ответа: Alexandrus ICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #4 | Добавлено: 26.05.07 17:43 |
|
Гораздо быстрее будет ,если грузить в режиме двоичного доступа.
Dim strB as String Open "test.txt" For Binary as #1 strB=Space(LOF(1)) Get #1,,strB Text1.text=strB Close #1 |
||
|
Номер ответа: 5 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #5 | Добавлено: 26.05.07 17:47 |
|
Сразу видно у кого какой стиль оформления кода
|
||
|
Номер ответа: 6 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #6 | Добавлено: 26.05.07 19:18 |
|
Сразу видно у кого какой стиль оформления кода Ты же не пирог печешь и не девку в жены выбираешь....
|
||
|
Номер ответа: 7 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #7 | Добавлено: 26.05.07 19:31 |
| Оно конечно так...Но я не собираюсь в простейшем коде, ещё и отступы здесь делать.Вложенные IF ещё куда не шло,но здесь... | ||
|
Номер ответа: 8 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #8 | Добавлено: 26.05.07 20:50 |
|
Dim s As String = My.Computer.FileSystem.ReadAllText(System.AppDomain.CurrentDomain.BaseDirectory & "settings.txt", System.Text.Encoding.GetEncoding(1251))
|
||
|
Номер ответа: 9 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #9 | Добавлено: 26.05.07 21:30 |
| А чё, инфа из моего линка из библиотеки кодов уже не актуальна? | ||
|
Номер ответа: 10 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #10 | Добавлено: 26.05.07 21:57 |
|
Morpheus:Всё нормально,обыграли те-же яйца только с разных сторон)) Сбоку?!)
|
||
|
Номер ответа: 11 Автор ответа: GeniXICQ: 418811267 Вопросов: 40 Ответов: 243 |
Web-сайт: Профиль | | #11 | Добавлено: 26.05.07 23:35 |
| Спасибо всем, но я нашел нужную информацию раньше вас всех(на другом сайте) | ||
|
Номер ответа: 12 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #12 | Добавлено: 27.05.07 00:31 |
| [Thinking] Автор как то прочитал мысли некоторых форумян и нашёл тот небезызвестный мануал [ /Thinking] | ||
Страница: 1 |