Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Общие вопросы работы с программой  
     
  Получение всех параметров командной строки  
  Простой пример, как можно получить все значения командной строки.
Вам понадобится элемент CommandButton.
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String
Function ParamStr(index As Integer) As String
Dim str As String
Dim PStr() As String
Dim i As Integer
Dim c As Integer
Dim openQ As Boolean
str = GetCommandLine
c = 0
ReDim PStr(c)
For i = 1 To Len(str)
PStr(c) = PStr(c) + Mid(str, i, 1)
If Mid(str, i, 1) = Chr(34) And openQ = False Then openQ = True Else If Mid(str, i, 1) = Chr(34) And openQ = True Then openQ = False
If Mid(str, i, 1) = " " And openQ = False Then
c = c + 1
ReDim Preserve PStr(c)
End If
Next i
If (index > c) Then ParamStr = "" Else ParamStr = deleteQ(PStr(index))
End Function
'эта функция удаляет кавычки из строки
Function deleteQ(str As String) As String
For i = 1 To Len(str)
If Mid(str, i, 1) <> Chr(34) Then deleteQ = deleteQ + Mid(str, i, 1)
Next i
End Function

Private Sub Command1_Click()
MsgBox ParamStr(1)
MsgBox ParamStr(2)
MsgBox ParamStr(3)
End Sub
 
     
  VBNet online (всего: 51566)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам