| Вопрос: функция ENVIRON | Добавлено: 03.06.06 20:44 |
Автор вопроса:  Nj | ICQ: 223663115 |
| Нет у меня ни МСДН, ни толкового учебника, в инете не нашел - Люди, прошу - объясните как ей пользоваться? |
| Ответы | Всего ответов: 25 |
|
Номер ответа: 1 Автор ответа:  Calhoon ICQ: 789764 Вопросов: 90 Ответов: 230 |
Web-сайт: Профиль | | #1 | Добавлено: 04.06.06 01:07 |
|
Где-то здесь в примерах было...
A = Environ ("windir"
 'получить директорию Windows
A = Environ ("TMP" 'директория временных файлов TEMP
A = Environ ("BLASTER" 'координаты звуковой карты
A = Environ ("PATH" 'пути, объявленные в autoexec.bat 'Добавьте на форму элементы TextBox (установите свойство Multiline=True) и CommandButton. Скопируйте следующий код, запустите программу, нажмите на кнопку...
Private Sub Command1_Click() m = 1 Do EnvString = Environ(m) Text1.Text = Text1.Text & vbNewLine & Environ(m) m = m + 1 Loop Until EnvString = "" End Sub |
||
|
Номер ответа: 2 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 04.06.06 07:13 |
|
Option Explicit
Private Sub Form_Load() Info End Sub Public Sub Info() Dim i As Byte For i = 1 To 28 Text1 = Text1 & Environ(i) & vbCrLf & vbCrLf Next End Sub |
||
|
Номер ответа: 3 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #3 | Добавлено: 04.06.06 21:46 |
|
2 А11СПАСИБО !!!
Как я 3 года без нее жил.... ?????????? |
||
|
Номер ответа: 4 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #4 | Добавлено: 06.06.06 12:02 |
|
For i = 1 To 28
А почему, собственно, 28? Для справки: числовой параметр, передаваемый функции Environ может принимать значения от 1 до 255. |
||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 06.06.06 12:12 |
|
А почему, собственно, 28?
А там после 28 уже ничего не идет...
Для справки: числовой параметр, передаваемый функции Environ может принимать значения от 1 до 255. |
||
|
Номер ответа: 6 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #6 | Добавлено: 06.06.06 12:35 |
| Да, точно. Кроме того, необходимо всегда искать винду в папке c:\windows: в других папках её нет. И Мои документы тоже всегда в c:\мои документы. Да. И переменных в окружении всегда ровно 28. Это точно. | ||
|
Номер ответа: 7 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #7 | Добавлено: 06.06.06 12:53 |
|
А там после 28 уже ничего не идет...
И переменных в окружении всегда ровно 28.
Ну, давайте считать: ALLUSERSPROFILE=C:\Documents and Settings\All Users APPDATA=C:\Documents and Settings\APashenko.ALIDIROOT\Application Data CLIENTNAME=Console CommonProgramFiles=C:\Program Files\Common Files COMPUTERNAME=PASHENKO ComSpec=C:\WINDOWS\system32\cmd.exe FP_NO_HOST_CHECK=NO HOMEDRIVE=C: HOMEPATH=\Documents and Settings\APashenko.ALIDIROOT LOGONSERVER=\\DC NUMBER_OF_PROCESSORS=1 OS=Windows_NT Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Common Files\Roxio Sha red\DLLShared PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH PROCESSOR_ARCHITECTURE=x86 PROCESSOR_IDENTIFIER=x86 Family 15 Model 4 Stepping 9, GenuineIntel PROCESSOR_LEVEL=15 PROCESSOR_REVISION=0409 ProgramFiles=C:\Program Files PROMPT=$P$G SESSIONNAME=Console SystemDrive=C: SystemRoot=C:\WINDOWS TEMP=C:\DOCUME~1\APASHE~1.ALI\LOCALS~1\Temp TMP=C:\DOCUME~1\APASHE~1.ALI\LOCALS~1\Temp USERDNSDOMAIN=ALIDIROOT.RU USERDOMAIN=ALIDIROOT USERNAME=APashenko USERPROFILE=C:\Documents and Settings\APashenko.ALIDIROOT windir=C:\WINDOWS Кроме того, необходимо всегда искать винду в папке c:\windows: в других папках её нет.
А если на диск D: поставить? Или Win2000 взять - там по умолчанию C:\Winnt. А Win9x вообще при установке спрашивает, в какую папку ставить. И Мои документы тоже всегда в c:\мои документы.
В Win2k и выше по умолчанию "C:\Documents and Settings\username\Мои документы". Переназначается на раз. У нас в конторе, например "Мои документы" всегда на D:. |
||
|
Номер ответа: 8 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #8 | Добавлено: 06.06.06 13:09 |
|
Pashenko жжот!
http://www.google.ru/search?hl=ru&q=define%3A%D0%B8%D1%80%D0%BE%D0%BD%D0%B8%D1%8F&lr= |
||
|
Номер ответа: 9 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #9 | Добавлено: 06.06.06 14:00 |
| 2 Pashenko - отдельное спасибо | ||
|
Номер ответа: 10 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 06.06.06 14:00 |
GSerg, а тут у многих напряг с этим  это тебе не вбстриит )
|
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 06.06.06 14:01 |
|
опа! и Nj тут... ))0 я ж говорю у многих...
|
||
|
Номер ответа: 12 Автор ответа: Сергей Вопросов: 2 Ответов: 4 |
Профиль | | #12 | Добавлено: 06.06.06 14:17 |
|
Я так и понял,что напряг с этим не только у меня.... )
________________________________________________________________________ This communication is for use by the intended recipient and contains information that may be privileged, confidential or copyrighted under law. If you are not the intended recipient, you are hereby formally notified that any use, copying or distribution of this e-Mail, in whole or in part, is strictly prohibited. Please notify the sender by return e-Mail and delete this e-Mail from your system. Unless explicitly and conspicuously stated in the subject matter of the above e-Mail, this e-Mail does not constitute a contract offer, a contract amendment, or an acceptance of a contract offer. This e-Mail does not constitute consent to the use of sender's contact information for direct marketing purposes or for transfers of data to third parties. This email has been scanned for all viruses by the MessageLabs service. |
||
|
Номер ответа: 13 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #13 | Добавлено: 06.06.06 14:21 |
| 2 HACKER - награждается Первой Премией Флудер Дня , и ты становишься её обладателем уже не в первый раз, т.о. ты Почентный Флудер Дня. Нет чтобы объснить, если ты вдруг что-то знаешь, но ты только мнение свое высказываешь - она всем так интересно... | ||
|
Номер ответа: 14 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #14 | Добавлено: 06.06.06 14:42 |
|
Nj, ты не понял. Это же черный (aka кавказский) юмор. Смейся
|
||
|
Номер ответа: 15 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #15 | Добавлено: 06.06.06 15:09 |
|
Pashenko, GSerg решил приколоться, а ты принял его слова за чистую монету, и начал перечислять переменные и пути )))
|
||