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

   
   
     

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

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12

 

  Вопрос: Хелп ! Работа с текстом.VB6 Добавлено: 11.10.10 19:59  

Автор вопроса:  MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965 

Ответить

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

Номер ответа: 16
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #16 		Добавлено: 11.10.10 22:56
  1. # Public Property Get File(Path As String) As String
  2.  Dim s As String, h As String
  3.  Dim i As Long
  4.  i = FreeFile
  5.  Path = ("C:\text.txt")
))))))))))))))))))

Ответить

Номер ответа: 17
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #17 Добавлено: 11.10.10 23:13
да меня тоже порадовало xD

Ответить

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



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #18 Добавлено: 12.10.10 11:09
Читать файл построчно чтобы потом его склеивать? Вы извращенцы.

Ответить

Номер ответа: 19
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #19 		Добавлено: 12.10.10 13:39
AWP пишет:
))))))))))))))))))

AgentFire пишет:
да меня тоже порадовало xD

Я опять че то не то ляпнул?хотя все работает с
  1. # Public Property Get File(Path As String) As String
  2.  Dim s As String, h As String
  3.  Dim i As Long
  4.  i = FreeFile
  5.  Path = ("C:\text.txt")

Блин чет я ваще запутался %)

Ответить

Номер ответа: 20
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #20 		Добавлено: 12.10.10 15:41
Перечитай внимательно 4 пост

Ответить

Номер ответа: 21
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #21 Добавлено: 12.10.10 16:10
MISTER X пишет:
Я опять че то не то ляпнул?
да более чем! :)

  1. Property Get File(Path As String)
  2. ...
  3. Path = ("C:\text.txt")

Ответить

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



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #22 Добавлено: 12.10.10 17:46
Перечитай внимательно 4 пост

К чему это вообще?
По теме
  1.  
  2. Text1.Text = Input(LOF(hFile), #hFile)

для ANSI и /2 для Unicode.
При этом наду учитывать что стандартный текстбокс больше 64К тексты не кушает.
Разумная альтернативая - RichTextBox. Нет ограничений на длину + никакого гемора с файлами.

Ответить

Номер ответа: 23
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #23 		Добавлено: 12.10.10 21:29
AgentFire пишет:
да более чем!

А если не писать path=... то ругается

Ответить

Номер ответа: 24
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #24 		Добавлено: 12.10.10 22:37
LamerOnLine пишет:
Перечитай внимательно 4 пост

К чему это вообще?
По теме
 
Text1.Text = Input(LOF(hFile), #hFile)

для ANSI и /2 для Unicode.
При этом наду учитывать что стандартный текстбокс больше 64К тексты не кушает.

Не, никто не спорит. Я просто уже подзабыл. Итак. Расставляем все точки над багами.
1. Более кошерный вариант моего кода c учетом замечаний LamerOnLine
  1.  
  2. Public Property Get File(Path As String) As String
  3. Dim s As String
  4. Dim i As Long
  5. i = FreeFile
  6. Open Path For Input As #i
  7. File = Input(LOF(hFile), #i)
  8. Close #i
  9. End Property
  10.  
  11. Public Property Let File(Path As String, ByVal Value As String)
  12. Dim i As Long
  13. i = FreeFile
  14. Open Path For Output As #i
  15. Print #i, Value
  16. Close #i
  17. End Property


2. Чтобы записать в файл "C:\еда.txt" текст "Я буду искать в интернете сам", нужно написать:
  1.  
  2. File("C:\еда.txt") = "Я буду искать в интернете сам"


3. Чтобы записать в файл ";D:\Games\Battlefield 2\Readme.txt" текст "Я буду искать в интернете сам", нужно написать:
  1.  
  2. File("D:\Games\Battlefield 2\Readme.txt") = "Я буду искать в интернете сам"


4. Чтобы считать из файла "E:\Intall\Readme.txt" весь текст в строковую переменную S, нужно написать:
  1.  
  2. Dim S As String
  3. S = File("E:\Intall\Readme.txt")


5. Чтобы считать из файла, путь к которому указан в текстовом поле Text1.Text текст в переменную G, нужно написать:
  1.  
  2. Dim G As String
  3. G = File(Text1.Text)


6. Чтобы записать в файл "C:\mytext.txt" текст, указанный в текстовом поле Text2.Text, нужно написать:
  1.  
  2. File("C:\mytext.txt")=Text2.Text


7. Чтобы записать в файл, путь к которому указан в текстовом поле txtPath текст "Я буду искать в интернете сам", нужно написать:
  1.  
  2. File(txtPath.Text) = "Я буду искать в интернете сам"



Теперь смекнул?

Ответить

Номер ответа: 25
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #25 Добавлено: 12.10.10 23:17
"Я буду искать в интернете сам" замени "Я буду учить Vb.NET чтобы не трахать сам себе моцк@

Ответить

Номер ответа: 26
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #26 Добавлено: 13.10.10 02:23
VBD, почитай где-нибудь чем свойства отличаются от методов и в каких случаях что нужно использовать

Ответить

Номер ответа: 27
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #27 		Добавлено: 13.10.10 09:33
AgentFire пишет:
"Я буду искать в интернете сам" замени "Я буду учить Vb.NET чтобы не трахать сам себе моцк@

От этого боюсь тема только просто переименуется из "Хелп ! Работа с текстом.VB6" в "Хелп ! Работа с текстом.VB.NET"

Artyom пишет:
VBD, почитай где-нибудь чем свойства отличаются от методов и в каких случаях что нужно использовать

По мне эта хрень (которую я запилил) очень удобная. Так что отвянь.

Ответить

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



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #28 Добавлено: 13.10.10 10:11
VβÐUηìt, во первых, если пишешь
File = Input(LOF(hFile), #i)
то косяк налицо. Спишем на невнимательность.
Во-вторых, у тебя какой акк а баттле?

Ответить

Номер ответа: 29
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #29 		Добавлено: 13.10.10 12:02
Да, точно накосячил. Вот хороший, годный вариант:
  1.  
  2.  
  3. Public Property Get File(Path As String) As String
  4. Dim s As String
  5. Dim i As Long
  6. i = FreeFile
  7. Open Path For Input As #i
  8. File = Input(LOF(#i), #i)
  9. Close #i
  10. End Property
  11.   
  12. Public Property Let File(Path As String, ByVal Value As String)
  13. Dim i As Long
  14. i = FreeFile
  15. Open Path For Output As #i
  16. Print #i, Value
  17. Close #i
  18. End Property


LamerOnLine пишет:
Во-вторых, у тебя какой акк а баттле?

А что? :)

Ответить

Номер ответа: 30
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #30 Добавлено: 13.10.10 12:49
VβÐUηìt пишет:
боюсь тема только просто переименуется из "Хелп ! Работа с текстом.VB6" в "Хелп ! Работа с текстом.VB.NET"

и то приятней будет. главное, чтобы не "... Работа с QBasic 1.0 beta" -_-

Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12

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



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