Visual Basic в вопросах и ответах

[\\Sergey//]

На счет первого кода - поставь вместо

Код: Выделить всё

Input #1, a

Код: Выделить всё

Line Input #1, a

На счет второго - в произвольном доступе чтение файла производится с помощью GET

[P-cad]

Насколько я понимаю, line input считывает каждую строчку в отдельную переменную?

[\\Sergey//]

Да. Это так и есть.

[P-cad]

Фу, я сейчас написал последнюю строчку. Мучался около месяца. Я файловый менеджер сделал!
Кажется, еще и работает...

[\\Sergey//]

Интересно посмотреть. Вложить в заархивированном виде можешь?

[P-cad]

Постараюсь вечером залить.

[P-cad]

Вот...
EFM 1.0 beta.
Код прилагается.
Не стесняйся критиковать - не обижусь
Может что интересное посоветуешь.
это же Бета версия.

[\\Sergey//]

Что ж, не плохо. Только уж больно скудная информация о файлах там дается. Мой тебе совет - используй модель FSO. Тогда о файле можно будет узнать столько инфы - мама не горюй.
Вот не полный список:
1 Атрибуты файла
2 Дата создания
3 Дата последнего использования
4 Дата последнего изменения
5 Путь к файлу
6 Краткое имя
7 Краткий путь
8 Полный размер
9 Тип
Также в FSO существует большое количество функций по работе с папками.

Кстати, а как долго ты уже VB изучаешь?

[P-cad]

Около двух лет, просто меня раньше интересовало решение задач, а сейчас вот решил расширить знания... Так что я FSO пробовал, но как то не врубился в эту тему. Если можешь, поподробнее объяснишь?(а ведь тему-то я создал из-за проблем с данной прогой)

[\\Sergey//]

Что именно ты не понял в FSO?

[P-cad]

Как создать объект FSO. А без него, сам понимаешь, я пока и попробовать ничего не могу в FSO. Вроде смотрел в самоучителе VВ - все равно ничего не получается.

[\\Sergey//]

Открываешь меню Project, выполняешь команду References, в появившемся окне устанавливаешь галочку напротив Microsoft Scripting Runtime и, наконец нажимаешь OK.
Теперь пишешь код:

Код: Выделить всё

Dim fso As New FileSystemObject ' Объявляем переменную 
' типа FSO
Dim drv As Drive ' Объявляем переменную для работы с диском
Set drv = fso.GetDrive(fso.GetDriveName("C:\")) ' Получаем 
' доступ к диску
With drv
Form1.Caption = .FileSystem ' Получаем и выводим в заголовке
' формы файловую систему диска C:\
End With

[P-cad]

Ясно. Моя ошибка в том, что я не подключал данный файл к проге. Попробую. А что насчет файлов?

[\\Sergey//]

Блин, целый день в инет выйти не могу!

Вот код для получения основной информации о файле:

Код: Выделить всё

Dim fso As New FileSystemObject 
Dim fil As File 
Set fil = fso.GetFile("C:\1.txt") 
With fil
Print .Attributes
Print .DateCreated
Print .DateLastAccessed
Print .DateLastModified
Print .Drive
Print .Name
Print .Path
Print .ShortName
Print .ShortPath
Print .Size
Print .Type
End With

[P-cad]

With fill значит, что действие происходит над объектом fil?

[\\Sergey//]

Конструкция With...End With по своей сути просто уменьшает длину кода. Вместо fil ты ставишь любой объект, имеющий свойства и методы и в дальнейшем, задавая свойство объекта ты не пишешь сам объект, а ставишь точку и указываешь свойство. Очень удобно.
Следующие два кода выполняют одинаковые функции, однако размер второго кода меньше:

Код: Выделить всё

Print fil.Attributes 
Print fil.DateCreated 
Print fil.DateLastAccessed 
Print fil.DateLastModified 
Print fil.Drive 
Print fil.Name 
Print fil.Path 
Print fil.ShortName 
Print fil.ShortPath 
Print fil.Size 
Print fil.Type 

Код: Выделить всё

With fil
Print .Attributes 
Print .DateCreated 
Print .DateLastAccessed 
Print .DateLastModified 
Print .Drive 
Print .Name 
Print .Path 
Print .ShortName 
Print .ShortPath 
Print .Size 
Print .Type 
End With

[P-cad]

Мда... Пробовал такую фишку?
--
randomize timer
for i = 1 to 10000
form1.top = rnd * 5000
form1.left = rnd * 5000
next i
--
я сейчас просто работаю над такой прогой - разные глюки в компе делает. Не подскажешь, как сделать, чтобы прога сама загружалась,без
разрешения пользователя, планировщик не считается?

[ARV]

Visual BASIC: где ошибка? - ошибка в выборе системы программирования...
И потом, какое отношение все эти проблемы имеют к "интеграции с ПК"? тем более, что речь уже пошла о всяких вредных программах...

[P-cad]

АRV, отвечаю. Во-первых, в пояснении к "интеграция с ПК" написано:"обсуждаем драйвера, протоколы, ЯЗЫКИ ПРОГРАММИРОВАНИЯ". Во-вторых, эта "вредоносная программа" не уйдет ни на чей комп и создается для прикола, а не вреда. Просто глюки не отслеживаются по контролалтделит;-). В- третьих, мы тут не флудим, а общаемся и обсуждаем VВ, так что, господа модераторы, не к чему вам и придраться - все по ГОСТу .

[\\Sergey//]

я сейчас просто работаю над такой прогой - разные глюки в компе делает. Не подскажешь, как сделать, чтобы прога сама загружалась,без
разрешения пользователя, планировщик не считается?

То-есть ты хочешь, чтобы программа сама запускалась при включении компьютера?
Тут есть два способа:
1) Поместить программу в папку "Автозагрузка"
2) В системном реестре по адресу HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run создать параметр типа REG_SZ и указать в этом параметре путь к программе.